Cellule avec date et fonction VBA
Résolu
ptitgibus3000
Messages postés
177
Date d'inscription
Statut
Membre
Dernière intervention
-
ptitgibus3000 Messages postés 177 Date d'inscription Statut Membre Dernière intervention -
ptitgibus3000 Messages postés 177 Date d'inscription Statut Membre Dernière intervention -
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.
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
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Trouver une date de naissance gratuit - Forum Webmastering
2 réponses
Bonjour,
Teste comme ceci
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