Salut le forum

Je souhaite enregistrer mon fichier dans le dossier "Commercial" du serveur01.
Voici le chemin d'acces du fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
\\serveur01\commercial\exercices 2013\proforma 2013
Voici le code que j'utilise:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Enreg()
Dim Dossier As String, Exercice As String, Proforma As String
 
'Dossier = "C:\Commercial"
Dossier = "\\serveur01\commercial"
 
Exercice = Dossier & "\EXERCICE " & Format(Date, "yyyy")
If Dir(Exercice, vbDirectory) = "" Then MkDir Exercice
 
Proforma = Exercice & "\PROFORMA " & Format(Date, "yyyy")
If Dir(Proforma, vbDirectory) = "" Then MkDir Proforma
 
ThisWorkbook.SaveAs Filename:=Proforma & "\" & Feuil1.Range("A1") ', FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
Il y'a debogage et le message d'erreur est le suivant:
Erreur d'exécution '1004'
La Méthode 'Saveas' de l'objet'_Workbook' a échoué.
Merci de me donner un coup de main