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

A voir également:

Cellule avec date et fonction VBA
Fonction si et - Guide
Excel compter cellule couleur sans vba - Guide
Aller à la ligne dans une cellule excel - Guide
Si cellule contient texte alors ✓ - Forum Excel
Fonction find vba - Astuces et Solutions

2 réponses

Réponse 1 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
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

Réponse 2 / 2

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.

Discussions similaires

Pix

Excel VBA : Récupérer la valeur d'une cellule

VBA : Range avec références variables..

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Remplir une cellule (texte) en fonction d'une autre (texte).

Discussions similaires

Newsletters