Discussion :

[florent77]

Bonjour à toutes et à tous,

Nous sommes trois utilisateurs (sur des postes différents) à lancer une macro qui convertit un fichier excel en pdf.
Est-il possible de faire varier le chemin d'enregistrement en fonction de l'utilisateur ou dois-je créer une macro différente pour chaque utilisateur ?
Merci d'avance pour vos réponses.

Code :

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

1
2
3
4
5
6
7
8
Sub PDF()
    Dim Nom As String
    Nom = ActiveWorkbook.Name
    Nom = Left(Nom, InStrRev(Nom, ".") - 1)
    Sheets("Bilan").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:= ThisWorkbook.Path & "\" & Nom & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

[kiki29]

Salut, via ceci cela pour par exemple pour connaitre le chemin du dossier "Mes Documents" par exemple, sinon tu as Environ("USERNAME"), Environ("USERPROFILE") qui renvoient chez moi :

C:\Users\phlh\Documents
phlh
C:\Users\phlh

[florent77]

Merci beaucoup kiki29, impec !
Pour ceux que ça intéresse :

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
21
22
23
24
Sub PDF()
    Dim Nom As String
    Nom = ActiveWorkbook.Name
    Nom = Left(Nom, InStrRev(Nom, ".") - 1)
 
   If Environ("username") = "utilisateur1" Then
      Sheets("Feuille1").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:= "chemin1\" & Nom & ".pdf", _
      Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   End If
 
   If Environ("username") = "utilisateur2" Then
      Sheets("Feuille1").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:= "chemin2\" & Nom & ".pdf", 
      Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   End If
 
   If Environ("username") = "utilisateur3" Then
      Sheets("Feuille1").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:= "chemin3\" & Nom & ".pdf", 
      Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
 
End Sub