> Tous les forums > Forum Bureautique
 export cellule vers image
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
massjipe
  Posté le 11/06/2015 @ 11:19 
Aller en bas de la page 
Petit astucien

Bonjour

je cherche un code pour exporter une plage de cellule vers une image JPG ou autre vers mes images pour cela j'utilise pour la sélection le code suivant

Sub EnvoiPlage()


Dim plage As Range

On Error Resume Next
Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If

End Sub

Publicité
ferrand
 Posté le 11/06/2015 à 14:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Sub EnvoiPlage()
Dim plage As Range
On Error GoTo noselec
Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
plage.CopyPicture
Application.ScreenUpdating = False
With Worksheets.Add
.Paste
With .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "H:\Images\ImgPlage.png", "PNG"
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Exit Sub
noselec:
MsgBox "Aucune plage sélectionnée"
End Sub

En rouge : remplacer par chemin du fichier image et nom du fichier image (on peut aussi enregistrer en GIF ou JPG)

massjipe
 Posté le 11/06/2015 à 15:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci

fonctionne à merveille

massjipe
 Posté le 11/06/2015 à 15:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re

Et pour enregistrer au format html

massjipe
 Posté le 13/06/2015 à 09:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Comment que je peut faire pour ajouter le code printaeramod

à la place de Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)

Sub printAreaMod()
Dim derLig As Integer
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "a1:d" & derLig
ActiveSheet.AutoFilter.ApplyFilter
End Sub

ferrand
 Posté le 13/06/2015 à 11:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

massjipe a écrit :

Et pour enregistrer au format html

HTML n'est pas un format image !

ferrand
 Posté le 13/06/2015 à 11:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

massjipe a écrit :

Bonjour

Comment que je peut faire pour ajouter le code printaeramod

à la place de Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)

Sub printAreaMod()
Dim derLig As Integer
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "a1:d" & derLig
ActiveSheet.AutoFilter.ApplyFilter
End Sub

derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set plage = Range("A1:D" & derLig)

Mais que viennent faire la zone d'impression et le filtre automatique là-dedans ?

massjipe
 Posté le 13/06/2015 à 18:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

le filtre automatique est réglé sur cellule vide quand la feuille 1 est modifié le filtre met à jour la feuil2

la zone d'impression sert à sélectionner les cellules écrites pour ensuite créer la photo pour ma page web

Sub EnvoiPlage()
Dim plage As Range
On Error GoTo noselec
ActiveSheet.AutoFilter.ApplyFilter
derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set plage = Range("A1:D" & derLig)
plage.CopyPicture
Application.ScreenUpdating = False
With Worksheets.Add
.Paste
With .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Users\JP_Masson\Pictures\anaq.jpg", "JPG"
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Exit Sub
noselec:
MsgBox "Aucune plage sélectionnée"
ActiveWorkbook.Save
End Sub
Merci du coup de main

Un bon WE

ferrand
 Posté le 13/06/2015 à 19:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Difficile voir l'effet du filtre sans modèle... ?

La zone d'impression n'a rien à faire dans cette opération (ça c'est confirmé !)

La nouvelle version rend inutile le gestionnaire d'erreur.

Si tu t'y es retrouvé, tant mieux !

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
commande vba export access vers excel 2010
transfert d'une cellule vers une autre
Image sur une cellule suivant sa valeur
Copier-Coller Cellule vers fichier Txt
lien hypertexte excel vers image
Ppt2007 Export vers Word
Export répertoire ET messages de Incredimail vers
Image conditionée par cellule fonction ligne
tirer la formule d une cellule vers la droite
Export "ciblé" d'Excel vers Access
Plus de sujets relatifs à export cellule vers image
 > Tous les forums > Forum Bureautique