ça a marché ! ça marche plus !

[valou]

Bonjour le forum,

voilà mon problème, il a fonctionné, puis d'un seul coup plus rien. J'ai deux fichiers une activité journalière (une feuille à remplir par jour) le tout sur une semaine soit 5 feuilles dans le fichier (du lundi au vendredi). A la fin de la semaine je dois mettre à jour certaines données entrées dans ce fichier dans un autre fichier intitulé note de frais (tels que les frais kms, repas, etc.).
J'ai donc fait un bouton dans le 2e fichier pour une mise à jour automatique. Or cela fonctionnait bien, mais le lendemain, ça n'a plus voulu fonctionner.
Voici le code :

Private Sub MajSemaine(NbLigne, Jour, NomFichier)
Range("b" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("n5")
Range("c" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("n6")
Range("d" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("n7")
Range("e" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("n8")
Range("f" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("n9")
Range("g" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("r5")
Range("h" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("r6")
Range("i" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("r7")
Range("j" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("r8")
Range("k" & NbLigne) = Workbooks(NomFichier).Worksheets(Jour).Range("r9")
End Sub

Private Sub CommandButton1_Click()

NomFichier1 = "aj-" & Range("b3") & "-1-" & Range("b1") & "-" & Range("e1") & ".xls"
NomFichier2 = "aj-" & Range("b3") & "-2-" & Range("b1") & "-" & Range("e1") & ".xls"
NomFichier3 = "aj-" & Range("b3") & "-3-" & Range("b1") & "-" & Range("e1") & ".xls"
NomFichier4 = "aj-" & Range("b3") & "-4-" & Range("b1") & "-" & Range("e1") & ".xls"
NomFichier5 = "aj-" & Range("b3") & "-5-" & Range("b1") & "-" & Range("e1") & ".xls"

NomFichier0 = "nf-" & Range("b3") & "-" & Range("b1") & "-" & Range("e1") & ".xls"

Workbooks.Open NomFichier1
Workbooks.Open NomFichier2
Workbooks.Open NomFichier3
Workbooks.Open NomFichier4
Workbooks.Open NomFichier5

' Semaine 1

MajSemaine 12, "LUNDI", NomFichier1
MajSemaine 13, "MARDI", NomFichier1
MajSemaine 14, "MERCREDI", NomFichier1
MajSemaine 15, "JEUDI", NomFichier1
MajSemaine 16, "VENDREDI", NomFichier1

' Semaine 2

MajSemaine 19, "LUNDI", NomFichier2
MajSemaine 20, "MARDI", NomFichier2
MajSemaine 21, "MERCREDI", NomFichier2
MajSemaine 22, "JEUDI", NomFichier2
MajSemaine 23, "VENDREDI", NomFichier2

' Semaine 3

MajSemaine 26, "LUNDI", NomFichier3
MajSemaine 27, "MARDI", NomFichier3
MajSemaine 28, "MERCREDI", NomFichier3
MajSemaine 29, "JEUDI", NomFichier3
MajSemaine 30, "VENDREDI", NomFichier3

' Semaine 4

MajSemaine 33, "LUNDI", NomFichier4
MajSemaine 34, "MARDI", NomFichier4
MajSemaine 35, "MERCREDI", NomFichier4
MajSemaine 36, "JEUDI", NomFichier4
MajSemaine 37, "VENDREDI", NomFichier4

' Semaine 5

MajSemaine 40, "LUNDI", NomFichier5
MajSemaine 41, "MARDI", NomFichier5
MajSemaine 42, "MERCREDI", NomFichier5
MajSemaine 43, "JEUDI", NomFichier5
MajSemaine 44, "VENDREDI", NomFichier5

Workbooks(NomFichier1).Close
Workbooks(NomFichier2).Close
Workbooks(NomFichier3).Close
Workbooks(NomFichier4).Close
Workbooks(NomFichier5).Close

Workbooks(NomFichier0).Activate

End Sub

Le message d'erreur me dit qu'il ne trouve pas le fichier (le premier) alors que celui-ci est bien dans le même répertoire.

Je ne sais plus comment faire pour éviter ce genre de problème, d'autant que je dois ensuite transférer ces deux fichiers à d'autres personnes !

Merci de votre aide

 

[Jon]

bonjour

tes variables nomfichier contiennent-elles le chemin complet d'accès au fichier ou juste le nom des fichiers ? si elles ne contiennent que le nom des fichiers, vérifie que le répertoire courant soir le bon (curdir)

stephane

 

[valou]

Merci Jon, d'avoir répondu, mais elles contiennent juste le nom des fichiers.

Euh ! dézolé, mais moi étant plus que novice, je fais comment pour curdir ?!

 

[Valou]

Je viens de réessayer, ça marche toujours pas. Faut-il que je repense tout le programme ?!

 

[Valou]

HELP !

merci