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

berru76 · 21 Mai 2023

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 · 21 Mai 2023

Re

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

Enrichi (BBcode):

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

Staple1600 · 21 Mai 2023

Bonjour

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

berru76 · 21 Mai 2023

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 · 21 Mai 2023

Re

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

Enrichi (BBcode):

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 · 21 Mai 2023

Staple1600 à dit:

Re

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

Enrichi (BBcode):

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 · 21 Mai 2023

bonjour
Marche nickel
un grand Merci

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

berru76

XLDnaute Occasionnel

Pièces jointes

Staple1600

Staple1600

XLDnaute Barbatruc

berru76

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

berru76

XLDnaute Occasionnel

berru76

XLDnaute Occasionnel

Discussions similaires