Discussion :

[moidoudou54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[moidoudou54]

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

[moidoudou54]

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 !

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moidoudou54]

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