Copie vers un autre classeur

[bansan]

Bonjour
J'aimerais a l'aide d'une macro que la valeur des cellules d'un classeur se copient vers les cellules d'un autres classeur, mais cela ne marche pas
Y a til qqun pour me repondre??


Sub macro5()


date_essai = Application.Workbooks("essai-tresorerie").Worksheets("recapitulatif").Range("B" & 5 + i).Value

date_situ07 = Application.Workbooks("Tableau Situ. chantiers ouvert avant 09-08").Worksheets("Vir&Chq").Range("AM2").Offset(0, i).Value

ligne_situ = Application.Workbooks("Tableau Situ. chantiers ouvert avant 09-08").Worksheets("Vir&Chq").Range("AM3").Offset(0, 3 * i).Value

ligne_recap = Application.Workbooks("essai-tresorerie").Worksheets("recapitulatif").Range("C" & 5 + i).Value

If date_essai = date_situ07 Then
ligne_situ = ligne_recap
End If



End Sub

 

[Robert]

Re : Copie vers un autre classeur

Bonjour Basan, bonjour le forum,

Pas sûr que ce soit la bonne réponse mais je pense qu'il serait préférable d'ajouter .xls au nom des classeur dans le code :

date_essai = Application.Workbooks("essai-tresorerie[COLOR=red].xls[/COLOR]").Worksheets("recapitulatif").Range("B" & 5 + i).Value
date_situ07 = Application.Workbooks("Tableau Situ. chantiers ouvert avant 09-08[COLOR=red].xls[/COLOR]").Worksheets("Vir&Chq").Range("AM2").Offset(0, i).Value
ligne_situ = Application.Workbooks("Tableau Situ. chantiers ouvert avant 09-08[COLOR=red].xls[/COLOR]").Worksheets("Vir&Chq").Range("AM3").Offset(0, 3 * i).Value
ligne_recap = Application.Workbooks("essai-tresorerie[COLOR=red].xls[/COLOR]").Worksheets("recapitulatif").Range("C" & 5 + i).Value

Ensuite il serait bon de déclarer les variables. J'imagine aussi que la ligne de code qui définit i n'est pas mentionnée car tu as extrait juste une partie du code... Sinon il faut la définir quelque part si tu veux qu'elle prenne une autre valeur que 0...