Cellule avec date et fonction VBA [Résolu]

Signaler
Messages postés
171
Date d'inscription
samedi 1 octobre 2005
Statut
Membre
Dernière intervention
23 juillet 2021
-
Messages postés
171
Date d'inscription
samedi 1 octobre 2005
Statut
Membre
Dernière intervention
23 juillet 2021
-
Bonjour,

Je cherche à sauvegarder automatiquement un fichier excel imprimé en PDF dans un dossier spécifique.
Jusque là ça fonctionne.

Par contre le bloque sur nom du fichier qui inclut une date.
Sur la ligne fichier je renvoi à une cellule AA1 qui est la date d'aujourd'hui avec fonction "aujourdhui()", et là ça ne marche plus, il y a un message d'erreur.
J'ai essayé plusieurs formats de date en pensant que c'était les "/" qui n'étaient pas acceptés mais même les "." ne fonctionnent pas non plus.

Voici le code utilisé.

Sub Enregistrer_PDF()
'
Dim repertoire, fichier As String
' Sheets("Test1").Select
repertoire = "C" & "\"
fichier = [X1] & " - " & "Suivi" & " - " & [AA1] & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
repertoire & fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox ("Le fichier a bien été sauvegardé dans le répertoire")
Range("F8").Select
End Sub

Vous remerciant par avance pour votre aide.

Bonne journée à tous.

Configuration: Windows / Firefox 68.0

2 réponses

Messages postés
1086
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
27 juillet 2021
231
Bonjour,
Teste comme ceci
Sub Enregistrer_PDF()
'
Dim repertoire, fichier As String, LaDate$
' Sheets("Test1").Select
repertoire = "C" & "\"
LaDate = Format([AA1], "dd-mm-yyyy")
fichier = [X1] & " - " & "Suivi" & " - " & LaDate & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
repertoire & fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox ("Le fichier a bien été sauvegardé dans le répertoire")
Range("F8").Select
End Sub
Messages postés
171
Date d'inscription
samedi 1 octobre 2005
Statut
Membre
Dernière intervention
23 juillet 2021
8
Bonjour,

Super, ça marche.

Merci beaucoup.

Bonne journée.