Bonjour,

Dans mon fichier j'ai un code permettant d'enregistrer le résultat de mon formulaire en PDF.
Plusieurs personnes utilisent ce fichier mais le nom du répertoire diffère en fonction des personnes ( pour certains c'est M:\.... pour d'autres O:\.... ou encore Z:\....

Est il possible d'avoir un code du type si réseau non existant alors enregistrer sur le suivant?

Voici mon code de base :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim NomFichier As String
 
NomFichier = Sheets("Fiche de renseignement Pôle").Range("E6").Value & " - " & Sheets("Fiche de renseignement Pôle").Range("D6").Value
 
Sheets("Fiche de renseignement Pôle").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\ATLAS\COMMUN\ATLAS\16 - Circuit arrivée-départ\01 - Circuits\" & NomFichier & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Je vous remercie pour votre aide