Cellule avec date et fonction VBA

Résolu/Fermé
ptitgibus3000 Messages postés 171 Date d'inscription samedi 1 octobre 2005 Statut Membre Dernière intervention 23 juillet 2021 - 22 juil. 2021 à 10:23
ptitgibus3000 Messages postés 171 Date d'inscription samedi 1 octobre 2005 Statut Membre Dernière intervention 23 juillet 2021 - 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 1279 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 24 novembre 2022 280
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 171 Date d'inscription samedi 1 octobre 2005 Statut Membre Dernière intervention 23 juillet 2021 8
22 juil. 2021 à 11:50
Bonjour,

Super, ça marche.

Merci beaucoup.

Bonne journée.
0