copier l'image depuis l'outil photo

Le
magic-dd
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JRM
Le #6418461
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


magic-dd
Le #6420981
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
Publicité
Poster une réponse
Anonyme