Bonjour
J'ai fait pas mal de recherche, j'ai trouvé plein d'explication sur la marche à suivre pour cette simple opération, mais toujours pas moyen de trouver la solution (Je suis même passer par le "enregistrer macro" ).
J'essaye tout simplement de copier une cellule d'un fichier excel vers un autre.
Code :
- Dim Chemin, FichierS, FichierC
-
- Chemin = "C:\Blabla"
- FileCopy (Chemin & "\Template.xls" ), (Chemin & "\FichierCible.xls" )
- FichierC = Chemin & "\FichierCible.xls"
- FichierS = Chemin & "\Données.xls"
-
- Workbooks.Open FichierC
- Workbooks.Open FichierS
-
- Workbooks(FichierS).Range("A3" ).Select
- Selection.Copy
- Workbooks(FichierC).Range("C5" ).Select
- ActiveSheet.Paste
- 'J'ai essayé ça aussi mais ça marche po non plus
- 'Workbooks(FichierC).Sheets(1).Range("C5" ).Value = Workbooks(FichierS).Sheets(1).Range("A3" ).Value
- 'Workbooks(FichierC).Sheets(1).Cells(5, 2).Value = Workbooks(FichierS).Sheets(1).Cells(3, 1).Value
|
Mon fichier est créé correctement, les fichiers excels sont bien ouverts, mais le copie de cellule ne se fait pas.
Si quelqu'un a une idée, merci d'avance.
Message édité par StefaNouF le 09-03-2012 à 17:01:46