Date de creation
Bonsoir,
voici un code qui me pose probleme.
Ce code me permet d'enregistrer automatiquement un fichier excel en pdf sur mon bureau.(Jusque la tout va bien)
Sauf que je veux que la date de création du pdf apparaisse dans le nom du fichier....
Petit coup de main s'il vous plait!!
Private Sub CommandButton1_Click()
Dim obj As Object
Set obj = CreateObject("WScript.Shell")
dossierBuro = obj.SpecialFolders("Desktop") & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dossierBuro & "Fichier xyz " & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End SubMerci d'avance
Salut,
Tu rajoutes simplement & Date & dans ton code. Ca donne :
Private Sub CommandButton1_Click()
Dim obj As Object
Set obj = CreateObject("WScript.Shell")
dossierBuro = obj.SpecialFolders("Desktop") & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dossierBuro & "Fichier xyz " & Date & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End SubCordialement
Bonjour,
merci yvouille mais cela ne fonctionne pas.
Erreur d’exécution '1004'.
Slts
Salut Vicenzo,
Afin que ton code fonctionne chez moi, j'ai dû désactiver l'instruction "Option Explicit". Après ça, ton code de base et le code modifié selon ma proposition fonctionnaient bien tous les deux.
J'ai encore essayé ce matin au bureau et ça fonctionne également, selon l'image ci-dessous :
Personnellement, je ne vois pas où ça peut foirer chez toi
J'espère que quelqu'un d'autre pourra t'aider.
Amicalement.
Salut yvouille,
peux-tu me dire comment désactiver l'instruction "option explicite" s'il te plait?
Merci encore!!
Tu effaces la ligne "Optioon Explicit" ou tu la mets en commentaire ..... à condition qu'elle soit bien écrite tout au début du module dans lequel tu l'as placée, parce que je me suis rendu compte que lorsque je la réactive, c'est un autre message que "Erreur d’exécution '1004'" qui apparait chez moi
Si jamais indique ce fil comme "Résolu" et ouvre-en un autre avec la question de savoir pourquoi mon code ne fonctionne pas chez toi. Mais chez moi je te garanti qu'il fonctionne
Salutations.
Ok et merci encore