Chemin d'accès enregistrement feuil Excel en PDF (VBA)

Bonjour !!
Je rencontre une certaine difficulté à modifier une codification VBA me permettant d'enregistrer mes docs Excel en PDF. Le chemin d'accès d'enregistrement est propre à mon PC.
Je désire que ce chemin soit accessible sur n'importe quel PC. Je galère !!!
Est-ce que quelqu'un pourrait m'apporter une aide afin de modifier ma codification ou de me donner des pistes. Ci-après ma codification. MERCI !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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

---

Bonjour,
J'ai pour habitude de toujours placer mes applications dans un répertoire dédié et d'avoir des sous-dossiers pou y placer les fichiers nécessaires à la configuration de l'application, les modèles (word, excel, etc.), les pdf et ainsi de suite.
Ainsi pour connaître le chemin où se trouve mes fichiers il suffit d'utiliser l'une de ces deux instructions ThisWorkbook.Path ou ActiveWorkbook.Path

L'avantage de cette façon de travailler, c'est que l'on peut déplacer l'application comme on l'entend

Bonjour, cela est sans doute la solution, mais je suis un peu novice et je me demande comment utiliser et codifier avec votre proposition !?

Re bonjour, je connais mon chemin d'accès mais je voudrai que le chemin soit identique pour tous les utilisateurs de l'application Excel, et cela afin de permettre un enregistrement sur le bureau de n'importe quel PC. Je ne sais pas si je suis assez clair !!! Je le répète je suis novice !

Bonjour,

Citation:

---

cela est sans doute la solution, mais je suis un peu novice et je me demande comment utiliser et codifier avec votre proposition !?

---

Mais exactement comme vous l'avez fait avec la variable CheminDossier soit (CheminDossier = "C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\")



Voici un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub t() Const SubFolder As String = "pdf" Dim RootDirectory As String Dim FileName As String Dim FullName As String ' RootDirectory = ThisWorkbook.Path FileName = "MaFacture.pdf" FullName = RootDirectory & "\" & SubFolder & "\" & FileName MsgBox FullName End Sub

---

Bonjour, après une longue période d'essai, je n'arrive pas à adapter l'exemple à la macro de mon application. Pourriez-vous me donner un peu d'aide et m'indiquer la démarche à suivre.
Merci !!!
Très cordialement