Re : Macro d'exportation PDF
Bonjour,
Je ne sais pas si mon aide pourra te rendre service mais je me suis trouvé confronté à un problème semblable. J'ai trouvé une solution sur le forum et je te la propose :
Private Sub CommandButton1_Click()
'sauvegarde facture
Dim Fichier As String
x = Range("D11").Value
Fichier = "" & x & Format(Date, "(dd-mm-yy)")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\GESTION\administratif\sauvegardes factures et devis\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Cette macro permet d'enregistrer au format PDF en nommant le fichier par ce qui est inscrit dans une cellule ( ici D11 ) et de lui ajouter la date d'enregistrement.
Le chemin d'enregistrement est à adapter à tes besoins.
Cette macro enregistre en PDF seulement la zone imprimable définie.
De cette façon j'ai un dossier de doubles de factures et pas un dossier de pages entières ou de fichiers complets.
Seul bémol, j'utilise 2007 et je ne sais pas si ce code fonctionne avec une autre version. Mais peut être que oui si PDF Créator ou équivalent.
Bon courage.