Erreur dans mes codes

Salut le forum

Je souhaite enregistrer mon fichier dans le dossier "Commercial" du serveur01.
Voici le chemin d'acces du fichier

Code:

---

\\serveur01\commercial\exercices 2013\proforma 2013

---

Voici le code que j'utilise:

Code:

---

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

Bonjour,
et qu'as-tu dans "Feuil1.Range("A1")" ?

En plus de la remarque ci-dessus, je rajouterai aussi :

Est-ce que ton chemin d'accès existe ?; c'est-à-dire :

Code:

---

1 2	\\serveur01\commercial\EXERCICE2013\PROFORMA2013\

---

EDIT : Oups, j'avais pas vu que tu avais des Mkdir après tes variables :mrgreen:

Citation:

---

Envoyé par illight

En plus de la remarque ci-dessus, je rajouterai aussi :

Est-ce que ton chemin d'accès existe ?; c'est-à-dire :

Code:

---

1 2	\\serveur01\commercial\EXERCICE2013\PROFORMA2013\

---

EDIT : Oups, j'avais pas vu que tu avais des Mkdir après tes variables :mrgreen:

---

Bonjour illight
s'il n'existe pas, il le crée

Code:

---

1 2 3

... If Dir(Proforma, vbDirectory) = "" Then MkDir Proforma ...

---

Salut le forum

Mon problème a été résolu.
Il faut signaler que la cellule R1 était vide et c'est ce qui était à l'origine du débogage.

Bonjour,
Je ne comprends pas,
ton code

Code:

---

1 2 3

.... ThisWorkbook.SaveAs Filename:=Proforma & "\" & Feuil1.Range("A1") ....

---

Ta dernière réponse

Citation:

---

Il faut signaler que la cellule R1 était vide et c'est ce qui était à l'origine du débogage.

---

8O 8O 8O
????