Enregistrer un fichier dans un dossier sur un lecteur réseau

Bonjour,

j'ai créé une macro pour enregistrer mon fichier en pdf, par contre je voudrais l'enregistrer sur un lecteur réseau du avec la lettre Z: sur un cloud privé (disque dur externe).

la macro et la suivante :

 enregistrepaiements_lots()

Dim NomDossier As String
Dim CheminDossier As String

On Error GoTo 1

NomDossier = Application.InputBox("Dossier Enregistrement:", "Dossier")
CheminDossier = "\\wdmycloud\INFIRMIERES\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xltypexlsx, Filename:=CheminDosssier & "paiements_lots_" & Range("B1") & Range("C1").Value & ".pdf", quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, from:=1, to:=2, openafterpublish:=False

1

End Sub

je l'ai testé en enregistrant le fichier sur mon bureau et elle focntionne mais sur mon lecteur reseau, je ne vois pas le fichier dans le dossier ??

le chemin serait \\wdmycloud\INFIRMIERES\Nom de l'infirmière\détail des paiements par FSE transmises \ la j'ai crée des dossiers pour l'année du type 01-JANVIER, je voudrais enregistrer mon fichiers dans le dossier 01-JANVIER ?

Merci pour votre aide.

Bonjour,

Utilises l'enregistreur de macro et fais le manuellement, ensuite arrête l'enregistreur et regarde le code créé

A+