Cellule avec date et fonction VBA

Résolu/Fermé
ptitgibus3000 Messages postés 177 Date d'inscription samedi 1 octobre 2005 Statut Membre Dernière intervention 29 juillet 2023 - 22 juil. 2021 à 10:23
ptitgibus3000 Messages postés 177 Date d'inscription samedi 1 octobre 2005 Statut Membre Dernière intervention 29 juillet 2023 - 22 juil. 2021 à 11:50
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

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
Modifié le 22 juil. 2021 à 10:29
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
1
ptitgibus3000 Messages postés 177 Date d'inscription samedi 1 octobre 2005 Statut Membre Dernière intervention 29 juillet 2023 8
22 juil. 2021 à 11:50
Bonjour,

Super, ça marche.

Merci beaucoup.

Bonne journée.
0