bonsoir à tous
en effet, avec le 1er fichier " copie jours effectués....." où tout est sur
le même classeur le transfert fonctionne bien.
par contre sur le 2ième fichier " jours effectués..." où j'ai 3 classeurs,
il y a 2 problèmes:
1) erreur de code, voir ci dessous en gras
malgré plusieurs essais avec l'enregistreur
2) pour les jours effectués sur la période juillet 2008 / décembre 2008 et période juillet 2009 / décembre 2009 , il n'y a pas de transfert avec message d'erreur "fichier janvier 2008 ou fichier juillet 2009 non trouvé"qui correspond au extrème des tableaux
contrairement au 1er fichier
ci joint les 2 fichiers
quelqu'un pourrait-il m'aider à résoudre ces 2 problèmes
merci d'avance
francis
en effet, avec le 1er fichier " copie jours effectués....." où tout est sur
le même classeur le transfert fonctionne bien.
par contre sur le 2ième fichier " jours effectués..." où j'ai 3 classeurs,
il y a 2 problèmes:
1) erreur de code, voir ci dessous en gras
malgré plusieurs essais avec l'enregistreur
2) pour les jours effectués sur la période juillet 2008 / décembre 2008 et période juillet 2009 / décembre 2009 , il n'y a pas de transfert avec message d'erreur "fichier janvier 2008 ou fichier juillet 2009 non trouvé"qui correspond au extrème des tableaux
contrairement au 1er fichier
Code:
'flag = False
[B]Workbooks(classeur2).Close True
Workbooks(classeur3).Close True[/B]
Application.ScreenUpdating = True
Exit Sub
erreur1:
Call MsgBox("Fichier : " & classeur2 _
& vbCrLf & "non trouvé" _
, vbExclamation, Application.Name)
Application.ScreenUpdating = True
Exit Sub
erreur2:
Call MsgBox("Fichier : " & classeur3 _
& vbCrLf & "non trouvé" _
, vbExclamation, Application.Name)
Workbooks(classeur2).Close False
Application.ScreenUpdating = True
Exit Sub
End Sub
ci joint les 2 fichiers
quelqu'un pourrait-il m'aider à résoudre ces 2 problèmes
merci d'avance
francis