AugusteP
XLDnaute Nouveau
Bonjour, petit souci... je n'arrive pas à coder pour que l'enregistrement ou l'exportation en PDF se fasse sur n'importe quel Pc et par n'importe quel utilisateur
Avez-vous une idée, ci-après ma ligne de code. Merci pour votre aide !!
Private Sub CommandButton1_Click()
'Déclaration des variables
Dim NomDossier As String
Dim CheminDossier As String
On Error GoTo 1
'Nom de dossier
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
'Enregistrement sous format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Préparation de commande_" & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False
1
End Sub
Avez-vous une idée, ci-après ma ligne de code. Merci pour votre aide !!
Private Sub CommandButton1_Click()
'Déclaration des variables
Dim NomDossier As String
Dim CheminDossier As String
On Error GoTo 1
'Nom de dossier
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
'Enregistrement sous format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Préparation de commande_" & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False
1
End Sub