XL 2019 Exporter une plage en une image nommée

[bambi]

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 😉

 

[mapomme]

Bonjour @bambi,
Essayez:

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

 

[bambi]

Merci beaucoup @mapomme
ça fonctionne parfaitement
Bonne journée 😉