Fonction ChDir

**hajjar3** · 22/10/2008, 13h27

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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

Merci beaucoup pour votre aide.

**ucfoutu** · 22/10/2008, 13h53

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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