Bonjour,
J'ai essayé de modifier ma ligne :
'Appel la fonction avec les bons arguments, création du fichier *.PDF
FileName = Create_PDF(Source:=ActiveSheet, _
FixedFilePathName:="\\974850zz001\utilisat\Public\0_COMMUN\ZZ - GESTION STOCK PIC\Bon de commande", _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)
par ce que tu m'as dis pour essayer :
Dim Chemin As String
Chemin = "Le chemin de ton serveur"
'Appel la fonction avec les bons arguments, création du fichier *.PDF
FileName = Create_PDF(ActiveSheet, Chemin, True, False)
Mais en mettant cette ligne de commande, j'ai le message Erreur de compilation. Avec ma ligne de commande cela fonctionne mais la fenêtre d'enregistrement ne s'ouvre pas sur le dossier où je désire faire mes enregistrement, il me propose toujours de choisir l'emplacement de sauvegarde.
Merci à toi.