l'outil "photo d'excel 2003" permet de faire une photo d'une selection
de cellule pr=E9-=E9tablie.
Comment enregistrer cette image issue de cette photographie dans un
dossier ( C:/Images/) avec pour nom celui du classeur excel mais bien
entendu avec l'extension .jpg ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JRM
Bonjour magic-dd,
Ci-dessous une macro de Daniel Joss récupéré dans les archives du forum et adaptée à tes besoins.
'**************** Sub exportgif() 'Daniel Joss Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste 'Tu peux également enregistrer en GIF '.Export "C:Images" & ThisWorkbook.Name & ".gif", "GIF" .Export "C:Images" & ThisWorkbook.Name & ".jpg", "JPG" End With ActiveWorkbook.Close False End Sub '********************
-- Cordialement, JRM
Bonjour à tous
l'outil "photo d'excel 2003" permet de faire une photo d'une selection de cellule pré-établie.
Comment enregistrer cette image issue de cette photographie dans un dossier ( C:/Images/) avec pour nom celui du classeur excel mais bien entendu avec l'extension .jpg ?
merci de votre aide
Bonjour magic-dd,
Ci-dessous une macro de Daniel Joss récupéré dans les archives du forum
et adaptée à tes besoins.
'****************
Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
'Tu peux également enregistrer en GIF
'.Export "C:Images" & ThisWorkbook.Name & ".gif", "GIF"
.Export "C:Images" & ThisWorkbook.Name & ".jpg", "JPG"
End With
ActiveWorkbook.Close False
End Sub
'********************
--
Cordialement,
JRM
Bonjour à tous
l'outil "photo d'excel 2003" permet de faire une photo d'une selection
de cellule pré-établie.
Comment enregistrer cette image issue de cette photographie dans un
dossier ( C:/Images/) avec pour nom celui du classeur excel mais bien
entendu avec l'extension .jpg ?
Ci-dessous une macro de Daniel Joss récupéré dans les archives du forum et adaptée à tes besoins.
'**************** Sub exportgif() 'Daniel Joss Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste 'Tu peux également enregistrer en GIF '.Export "C:Images" & ThisWorkbook.Name & ".gif", "GIF" .Export "C:Images" & ThisWorkbook.Name & ".jpg", "JPG" End With ActiveWorkbook.Close False End Sub '********************
-- Cordialement, JRM
Bonjour à tous
l'outil "photo d'excel 2003" permet de faire une photo d'une selection de cellule pré-établie.
Comment enregistrer cette image issue de cette photographie dans un dossier ( C:/Images/) avec pour nom celui du classeur excel mais bien entendu avec l'extension .jpg ?
merci de votre aide
magic-dd
salut
merci pour l'astuce
cela fonctionne bien
je vais maintenant essayer d'automatiser cela à mes 120 fichiers excel
je reviendrais p etre pour de l'aide
salut
merci pour l'astuce
cela fonctionne bien
je vais maintenant essayer d'automatiser cela à mes 120 fichiers excel