Enregistrer sous réseau ne fonctionne pas

Bonjour à tous,

J’ai un problème de fou. J’ai réalisé un bouton de contrôle associé au code suivant :

Private Sub CommandButton1_Click()
Dim fichier As String
    On Error Resume Next
ChDir "C:\toto\tata\"
    fichier = Application.GetSaveAsFilename( _
              fileFilter:="Excel Files (*.xlsm), *.xlsm")
    If fichier <> False Then ThisWorkbook.SaveAs fichier, FileFormat:=52
End Sub

Ainsi quand je clique sur le bouton. J’ai la boite de dialogue « Enregistrer sous » qui s’ouvre directement dans le dossier C:\toto\tata\". Impeccable tout fonctionne bien.

Tout se gâte si mon dossier n’est plus en local mais sur mon réseau. J’ai tenté des chemins long :

ChDir "\\SERVEUR\COMMUN\ dossier1\dossier 2\ "

ou court rien n’y fait :

ChDir "S:\dossier1\dossier 2\"

Je précise que j’ai un maximum de droit sur ces dossiers ou je peux lire, écrire …

Concrètement quand je clique sur le bouton, la boite de dialogue « enregistrer sous » s’ouvre en local dans mes documents ou le dernier dossier où j’étais.

J’ai vraiment tenté beaucoup de choses avant de poster, avez-vous une idée sur la question ?

Je vous remercie par avance,

Jeff

Bonjour

Il me semble qu'il faut changer d'unité (ChDrive) avant de changer de chemin...

Super ça fonctionne direct !

Merci à toi excellente journée,

++,

Jeff