XL 2019 Exporter une plage en une image nommée

bambi

XLDnaute Occasionnel
Bonjour à toutes et tous :)

Dans le fichier joint, j'exporte, sous forme d'image png, le Range("A1:R17") avec la commande CopyPicture dans un dossier qui se crée automatiquement avec pour nom la date du jour

Je voudrais modifier cette macro comme suit :
- Exporter dans un dossier prédéfini D:\Mon Dossier\ toujours le même
- Nommer la capture PNG avec la date et l'heure de capture au format ddmmyy hhmm

Exemple pour une capture ce jour à 11H58 : 140120_1158.png enregistrée dans D:\Mon Dossier\

Merci d'avance pour votre aide ;)
 
Solution
Bonjour @bambi,
Essayez:
VB:
Sub export_images()
Const Chemin = "D:\Mon Dossier"     '<--- ici le chemin du dossier où sauvegarder
Dim gr1 As Object, Source1 As Range, nom As Date, fichier$
   Application.ScreenUpdating = False
   fichier = Chemin & IIf(Right(Chemin, 1) = "\", "", "\")
   fichier = fichier & Format(Now(), "ddmmyy_hhmm") & ".png"
   Set Source1 = Range("A1:R17")
   Source1.CopyPicture xlScreen, xlPicture
   With Sheets(1).ChartObjects.Add(0, 0, Source1.Width, Source1.Height)
      .Activate:: .Chart.Paste: .Chart.Export fichier: .Delete
   End With
End Sub

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @bambi,
Essayez:
VB:
Sub export_images()
Const Chemin = "D:\Mon Dossier"     '<--- ici le chemin du dossier où sauvegarder
Dim gr1 As Object, Source1 As Range, nom As Date, fichier$
   Application.ScreenUpdating = False
   fichier = Chemin & IIf(Right(Chemin, 1) = "\", "", "\")
   fichier = fichier & Format(Now(), "ddmmyy_hhmm") & ".png"
   Set Source1 = Range("A1:R17")
   Source1.CopyPicture xlScreen, xlPicture
   With Sheets(1).ChartObjects.Add(0, 0, Source1.Width, Source1.Height)
      .Activate:: .Chart.Paste: .Chart.Export fichier: .Delete
   End With
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll