MAJ automatique

[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

 

[jaccard]

Hello, quand tu utilises Workbooks.Open NomFichier1
c'est dans le lecteur courant que tu essaye d'ouvrir NomFichier1
ajoute le chemin du fichier avec
chemin="c:\mes documents\"
Workbooks.Open chemin & NomFichier1

ou alors change de lecteur et repertoire courant :
cdrive "c"
chdir "c:\mes documents"

sinon quand tu utilises les valeurs de cellules du style :
Range("d" & NbLigne) = ...
utilise plutôt :
Range("d" & NbLigne).value = ...
dom :-;