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.
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)
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.
Code:
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 SubMerci 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)
Dernière édition: