XL 2016 Ajouter la formule de date "=AUJOURDHUI()" dans une macro copie et sauvegarde d'écran

[berru76]

Bonjour
Je me sers d'une macro "copie et sauvegarde d'ecran je doit rentrer la date manuellement (dans mon cas en F25)
je voudrais mettre la formule "=AUJOURDHUI()" en F25 mais elle ne fonctionne pas avec
si quelqu'un a une solution
Fichier en exemple ci joint
Merci a vous



Sub CopieEcranSaisie_PNG()
Dim Gr As Object, Rg As Range, R$, N$, C$, PathFich$
R$ = "A1:R99"
N$ = ActiveSheet.Range("F25")
C$ = ActiveWorkbook.Path & "\"
Application.ScreenUpdating = False
PathFich$ = C$ & N$ & ".jpg"
Set Rg = ActiveSheet.Range(R$): Rg.CopyPicture xlScreen, xlPicture: DoEvents
Set Gr = ActiveSheet.ChartObjects.Add(0, 0, Rg.Width, Rg.Height): DoEvents
Gr.Activate: ActiveChart.Paste: DoEvents
Gr.Chart.Export PathFich, "jpg": DoEvents
Gr.Delete: Set Gr = Nothing
Application.ScreenUpdating = True
End Sub

 

[Staple1600]

Bonjour

Tu peux essayer
N$=Format(Date("dd_mm_yyyy")
Prendre le _ car les / sont interdits dans les noms de fichier

 

[berru76]

Bonjour
j ai testé en mettant la cellule en date 21_05_2023 et essayer
N$=Format(Date("dd_mm_yyyy")
mais cela bog
pouvez vous m'expliquer ou le mettre
Merci

Sub CopieEcranSaisie_PNG()
Dim Gr As Object, Rg As Range, R$, N$, C$, PathFich$

R$ = "A1:R99"
N$ = ActiveSheet.Range("F25")
C$ = ActiveWorkbook.Path & "\"
Application.ScreenUpdating = False
PathFich$ = C$ & N$ & ".jpg"
Set Rg = ActiveSheet.Range(R$): Rg.CopyPicture xlScreen, xlPicture: DoEvents
Set Gr = ActiveSheet.ChartObjects.Add(0, 0, Rg.Width, Rg.Height): DoEvents
Gr.Activate: ActiveChart.Paste: DoEvents
Gr.Chart.Export PathFich, "jpg": DoEvents
Gr.Delete: Set Gr = Nothing
Application.ScreenUpdating = True
M$ = "copie écran sauvegardée:" & vbLf & PathFich$
MsgBox M$

End Sub

 

[Staple1600]

Re

Désolé, il y avait une coquillle
Il fallait juste remplacer ainsi

Sub CopieEcranSaisie_PNG()
Dim Gr As Object, Rg As Range, R$, N$, C$, PathFich$
R$ = "A1:R99"
N$=Format(Date,"dd_mm_yyyy")
C$ = ActiveWorkbook.Path & "\"
Application.ScreenUpdating = False
PathFich$ = C$ & N$ & ".jpg"
Set Rg = ActiveSheet.Range(R$): Rg.CopyPicture xlScreen, xlPicture: DoEvents
Set Gr = ActiveSheet.ChartObjects.Add(0, 0, Rg.Width, Rg.Height): DoEvents
Gr.Activate: ActiveChart.Paste: DoEvents
Gr.Chart.Export PathFich, "jpg": DoEvents
Gr.Delete: Set Gr = Nothing
Application.ScreenUpdating = True
M$ = "copie écran sauvegardée:" & vbLf & PathFich$
MsgBox M$

End Sub

Là, cela devrait fonctionner

 

[berru76]

Re

Désolé, il y avait une coquillle
Il fallait juste remplacer ainsi

Sub CopieEcranSaisie_PNG()
Dim Gr As Object, Rg As Range, R$, N$, C$, PathFich$
R$ = "A1:R99"
N$=Format(Date,"dd_mm_yyyy")
C$ = ActiveWorkbook.Path & "\"
Application.ScreenUpdating = False
PathFich$ = C$ & N$ & ".jpg"
Set Rg = ActiveSheet.Range(R$): Rg.CopyPicture xlScreen, xlPicture: DoEvents
Set Gr = ActiveSheet.ChartObjects.Add(0, 0, Rg.Width, Rg.Height): DoEvents
Gr.Activate: ActiveChart.Paste: DoEvents
Gr.Chart.Export PathFich, "jpg": DoEvents
Gr.Delete: Set Gr = Nothing
Application.ScreenUpdating = True
M$ = "copie écran sauvegardée:" & vbLf & PathFich$
MsgBox M$

End Sub

Là, cela devrait fonctionner

Je teste
Merci

 

[berru76]

bonjour
Marche nickel
un grand Merci