Bonjour,
Je souhaite créer une macro pour enregistrer ma feuille excel en pdf.
Après avoir un peu fouillé sur internet je suis tombé sur la seul qui, après adaptation, ne déconnait pas et ne m'affichait pas de message d'erreur. le but, après, est de le ,modifier pour l'enregistrer à deux emplacements mais une chose à la fois
Voici mon code:
Sub verspdf()
Dim CheminDossier As String
On Error GoTo 1
CheminDossier = Range("A2").Value
If NomDossier = "" Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & Range("A1").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False
1
End Sub
Le problème est qu'il ne fait rien. Il ne créer aucun fichier et il ne m'affiche aucune erreur.
Qu'est-ce que ca dit de votre coté ?