Bien le bonjour!
J'ai un petit soucis, j'ai réalisé un bon de commande et j'ai réalisé une macro qui me permet d'enregistrer mon bon de commande directement sur mon bureau avec la macro suivante:
Option Explicit
Sub SaveFeuilPDF()
Dim NomFeuil$, NomFichier$, DossierSauvegarde$, CheminFichier$
NomFeuil$ = "bon de commande" '<<<<<<<<<<<<<<<<<
NomFichier$ = "Commande No" & Sheets(NomFeuil$).Range("B14") & ".PDF" ' <<<<<<<<<<<<<
DossierSauvegarde$ = "C:\Users\maëlle\Desktop" '<<<<<<<<<<<<<<<
'Export feuille
If Right(DossierSauvegarde$, 1) <> "\" Then DossierSauvegarde$ = DossierSauvegarde$ & "\"
CheminFichier$ = DossierSauvegarde$ & NomFichier$
Sheets(NomFeuil$).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier$, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Jusque là aucun soucis. Mais j'ai ensuite créé un userform qui me permettrait de changer la destination de mon fichier pdf (qui est pour le moment "C:\Users\maëlle\Desktop"). Mais je n'arrive pas à faire le lien entre les deux...
Quelqu'un pourrait-il m'aider?
Userform:
Option Explicit
Private Sub bouton_annuler_Click()
Unload UserForm1
End Sub
Private Sub Bouton_valider_Click()
Range("B1") = Box_pdf.Value
Unload Me
End Sub
Private Sub Box_pdf_Change()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub
J'ai un petit soucis, j'ai réalisé un bon de commande et j'ai réalisé une macro qui me permet d'enregistrer mon bon de commande directement sur mon bureau avec la macro suivante:
Option Explicit
Sub SaveFeuilPDF()
Dim NomFeuil$, NomFichier$, DossierSauvegarde$, CheminFichier$
NomFeuil$ = "bon de commande" '<<<<<<<<<<<<<<<<<
NomFichier$ = "Commande No" & Sheets(NomFeuil$).Range("B14") & ".PDF" ' <<<<<<<<<<<<<
DossierSauvegarde$ = "C:\Users\maëlle\Desktop" '<<<<<<<<<<<<<<<
'Export feuille
If Right(DossierSauvegarde$, 1) <> "\" Then DossierSauvegarde$ = DossierSauvegarde$ & "\"
CheminFichier$ = DossierSauvegarde$ & NomFichier$
Sheets(NomFeuil$).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier$, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Jusque là aucun soucis. Mais j'ai ensuite créé un userform qui me permettrait de changer la destination de mon fichier pdf (qui est pour le moment "C:\Users\maëlle\Desktop"). Mais je n'arrive pas à faire le lien entre les deux...
Quelqu'un pourrait-il m'aider?
Userform:
Option Explicit
Private Sub bouton_annuler_Click()
Unload UserForm1
End Sub
Private Sub Bouton_valider_Click()
Range("B1") = Box_pdf.Value
Unload Me
End Sub
Private Sub Box_pdf_Change()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub