|
 Posté le 16/06/2004 @ 15:24 |
Nouvel astucien
| Salut à tous,
Tout d'abord merci d'avance de bien vouloir prendre un peu de votre temps pour lire et répondre à cette demande d'aide.
J'ai deux fichier excel, un "toto.xls" et un "momo.xls".
Je souhaite créer une macro sur le fichier "toto.xls" via un petit bouton de lancement qui permet la manip ci-dessous.
Voilà, je craque car je n'arrive pas à faire cette manip.
Merci d'avance de votre aide.
Voici le contenu du fichier "momo.xls" de la feuille "mimi" :
A B C
1 FRA 10
2 DEU 11
3 FRA 05
4 NLD 1
voici ce que je souhaite obtenir dans le fichier "toto.xls" de la feuille "titi" :
A B C
1 DEU 11
2 FRA 15
3 NLD 05
|
|
|
|
|
|
Posté le 16/06/2004 à 15:33 |
Petit astucien
| Slt,
quand tu dÚfinis ta macro, essaie de rÚaliser parfaitement ce que tu veux faire, du style:
- ouverture du second fichier
- copie des informations nÚcessaires
- fermeture du second fichier
- collage sur le premier fichier
Normalement þa doit marcher
Bon courage
|
|
Posté le 17/06/2004 à 00:05 |
Nouvel astucien
| Non, dÚsolÚ. VoilÓ j'ai trouvÚ la solution :
Dim ExcelApp As Excel.Application
Dim ExcelWorkBook As Excel.Workbook
Dim ExcelWorkSheet As Excel.Worksheet
Set ExcelApp = New Excel.Application
Set ExcelWorkBook = ExcelApp.Workbooks.Open(CheminDuFichierExpediteur)
Worksheets(OngletFichierRecepteur).Cells(1, 1).FormulaR1C1 = ExcelApp.Worksheets(OngletFichierExpediteur).Cells(1, 1).FormulaR1C1
bye |
|