Pourquoi mon code ne fonctionne pas?
V
Bonjour,
quelqu'un peut-il me dire pourquoi mon code ne fonctionne pas 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 " & Date & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Salut Vincenzo,
Je ne comprends pas que tu dises que TON code ne fonctionne pas. Suite à plusieurs essais sur deux ordis différents, chez moi il fonctionne parfaitement
Je ne comprends pas non plus pourquoi tu n'as pas apporté à ta demande la modification proposée
Bonnes salutations.