FiF0o
XLDnaute Nouveau
Bonjour,
Je cherche depuis quelques jours sur internet une solution à mon problème mais je bloque toujours alors je me suis décidé d'exposer mon problème ici!
Je m'explique, j'aimerais pouvoir effectuer une macro qui copie-colle des cellules d'un onglet d'un classeur excel vers des cellules d'un onglet d'un autre classeur excel.
Je dispose de 2 fichiers excel dans C:\Documents and Settings\user\ :
- un ficher (source) nommé Donnes_Brutes avec un onglet T1
- un fichier (destination) nommé Consolidation avec un onglet T1
Je voudrais copier des plages de cellules de l'onglet T1 du fichier excel source et les coller vers d'autres plages de cellules de l'onglet T1 de mon fichier Consolidation (template).
J'ai crée mon bouton CopyOther et inséré le code ci-dessous :
Code :
J'ai réussi à corriger quelques erreurs lors du débogage mais la macro ne marche pas.
Si quelqu'un pouvait m'aider cela serait gentil,
ou bien me proposer une macro plus "académique" vue que je suis complètement débutant
Merci d'avance
Cordialement,
FiF0o
Je cherche depuis quelques jours sur internet une solution à mon problème mais je bloque toujours alors je me suis décidé d'exposer mon problème ici!
Je m'explique, j'aimerais pouvoir effectuer une macro qui copie-colle des cellules d'un onglet d'un classeur excel vers des cellules d'un onglet d'un autre classeur excel.
Je dispose de 2 fichiers excel dans C:\Documents and Settings\user\ :
- un ficher (source) nommé Donnes_Brutes avec un onglet T1
- un fichier (destination) nommé Consolidation avec un onglet T1
Je voudrais copier des plages de cellules de l'onglet T1 du fichier excel source et les coller vers d'autres plages de cellules de l'onglet T1 de mon fichier Consolidation (template).
J'ai crée mon bouton CopyOther et inséré le code ci-dessous :
Code :
Code:
Sub CopyOther()
Dim Donnees_Brutes As Workbook, Consolidation As Workbook
'ouvrir le classeur source (en lecture seule)
Set Donnes_Brutes = Application.Workbooks.Open("C:\Documents and Settings\user\Donnees_Brutes.xlsx", True)
'définir le classeur destination
Set Consolidation = ThisWorkbook
'copier les données cellules de la "Feuil1" de l'onglet T1 du classeur source vers les cellules de la "Feuil1" de l'onglet T1 du classeur destination
Donnees_Brutes.Sheets("Feuil1(T1)").Range("F127:F128").Copy Consolidation.Sheets("Feuil1(T1)").Range("E4:E5")
'fermer le classeur source
Consolidation.Close False
End Sub
J'ai réussi à corriger quelques erreurs lors du débogage mais la macro ne marche pas.
Si quelqu'un pouvait m'aider cela serait gentil,
ou bien me proposer une macro plus "académique" vue que je suis complètement débutant
Merci d'avance
Cordialement,
FiF0o