copie dansle premier classeur

[guigui76]

Bonjour,
Présentation:
_Deux classeurs un bilan.xls et un mois.xls.
_Copie des valeurs de moi.xls en bilan.xls
la tout va bien, le problême et que le fichier bilan va changer de nom régulierement.
Comment puis-je faire pourque la macro trouve le nom du fichier de destination?

J'ai fais un essai mais je but sur un bout de la macro.

Sub Macro5ter()
Dim Source As Range, Desti As Workbook
Dim i As String

' Macro enregistrée le 27/01/2010 par Moi

If MsgBox("Avez-vous besoin de créer le fichier?", vbYesNo) = vbNo Then End
i = Range("A2").Value 'donne le nom du fichier source
b = Range("iv1") 'donne le nom du fichier destination par une formule 

Set Source = Workbooks(i).Worksheets(1).Range("A2:D254,G2:G254")
Source.Copy

[COLOR="Red"]Set Desti = Workbooks(b).Worksheets(1).activate.[/COLOR]

Range("c65536").End(xlUp)(2).PasteSpecial xlPasteAll, xlNone, , True
 Range("c19").Select
  
   Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Date"

End Sub

Merci pour votre aide et avoir lu mon post.
Bon dimanche.


la formule pour trouver le nom du fichier
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-1)

 

[guigui76]

Re : copie dansle premier classeur

Pensez-vous que cela soit possible?