Fonction ChDir

Bonjour,

Je solicite votre aide pour un problème que je n'arrive pas à résoudre après plusieurs heures de réflexion.

Voici le programme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub MacroMAX() Application.ScreenUpdating = False Dim apel, nom As String Dim z Dim days As String Dim fichier As String Dim c As Integer Dim total c = 1 apel = InputBox("Veuillez valider le chemin", "Sauvegarde", "T:xxxxxx ") Do While Cells(c, 1).Value <> "" nom = Cells(c, 1).Value days = Format(Date, "yyyy-mm-dd") fichier = nom & days & ".xls" total = apel & "\" & nom totalite = total & "\" & fichier Cells(c, 2).Value = total Cells(c, 3).Value = totalite ChDir Cells(c, 2).Value ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False c = c + 1 Loop End Sub

---

Le programme se bloque à la Ligne ChDir Cells(c, 2).Value et affiche l'erreur:

Citation:

---

erreur d'execution'76 :
chemin d'accès introuvable

---

Merci beaucoup pour votre aide.

Bonjour,
Cela te dérangerait-il de :
- mettre un msgbox (ça, c'est facile) partout où j'en ai mis un ici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

nom = Cells(c, 1).Value msgbox nom '<<<<============ days = Format(Date, "yyyy-mm-dd") fichier = nom & days & ".xls" total = apel & "\" & nom msgbox total '<<<================== totalite = total & "\" & fichier msgbox totalite ' <<<<<========== Cells(c, 2).Value = total Cells(c, 3).Value = totalite msgbox Cells(c,2).value ' <<<<<<<<===============surtout de dernier ChDir Cells(c, 2).Value

---

- de voir ce qui s'affiche et de vérifier que le répertoire existe ???

Ce serait un premier pas astucieux avant de poser une question ....

Merci pour ton aide

Autre méthode: tu fais ton exécution au pas à pas (touche F8) et tu regarde la valeur de tes variables grâce à la fenêtre variables. ;)