Exportation Devis en pdf
Bonjour à tous,
Je continue dans mon apprentissage du code VBA.
Aujourd'hui je bloque sur l'exportation de ma feuille active au format pdf dans un dossier prédéfini.
Quand je lance la macro, je n'ai aucun message d'erreur mais il ne se passe rien!! Aucun fichier n'est créé dans le dossier D:\Devis.
Sub EnregistrementDevis()
Dim Chemin As String
Chemin = "D:\Devis"
ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & "Devis_" & Range("B2").Value & Range("J2").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False
End Sub
Quelqu'un aurait il une idée pour corriger cette macro?
Par avance merci pour votre aide précieuse
Bonjour,
Peut-être ainsi : Chemin = "D:\Devis\" > je crois qu'il manque l'oblique inversé à la fin ...
ric
Merci, c'était bien ça qui bloquait!!
Y a-t-il une commande pour que le fichier pour s'ouvre après sa création?
Bonjour,
Peut-être : openafterpublish:=False >> openafterpublish:=True ...
ric