VBA : copier-coller une feuille dans un autre classeur
Résolu/Fermé
MJGOAT
MJGOAT
- Messages postés
- 15
- Date d'inscription
- jeudi 25 avril 2013
- Statut
- Membre
- Dernière intervention
- 24 mai 2013
MJGOAT
- Messages postés
- 15
- Date d'inscription
- jeudi 25 avril 2013
- Statut
- Membre
- Dernière intervention
- 24 mai 2013
A voir également:
- Vba copier coller dans un autre classeur
- Vba copier coller une feuille dans un autre classeur - Meilleures réponses
- Copier coller une feuille excel dans un autre classeur vba - Meilleures réponses
- VBA : copier-coller une feuille dans un autre classeur ✓ - Forum - VB / VBA
- Copier/Coller entre 2 classeurs VBA ✓ - Forum - VB / VBA
- Copier coller feuille d'un classeur vers un autre classeur ✓ - Forum - VB / VBA
- VBA copier/coller onglet vers new classeur ✓ - Forum - VB / VBA
- Copier/coller d'un classeur à un autre ✓ - Forum - VB / VBA
2 réponses
MJGOAT
25 avril 2013 à 11:37
- Messages postés
- 15
- Date d'inscription
- jeudi 25 avril 2013
- Statut
- Membre
- Dernière intervention
- 24 mai 2013
25 avril 2013 à 11:37
Merci Morgothal pour ta réponse !
Hélas je rencontre toujours un problème au niveau de la copie de mon fichier source.
Il m'affiche une erreur d'excécution '9', avec le message suivant : "L'indice n'appartient pas à la sélection".
Aurait-eu une idée pour ce problème?
Merci d'avance !
Hélas je rencontre toujours un problème au niveau de la copie de mon fichier source.
Il m'affiche une erreur d'excécution '9', avec le message suivant : "L'indice n'appartient pas à la sélection".
Aurait-eu une idée pour ce problème?
Merci d'avance !
25 avril 2013 à 11:41
Je ne vois que ça pour une telle erreur (vu que tu peux accéder à tes classeurs)...
25 avril 2013 à 11:46
J'ai trouvé une solution qui fonctionne très bien finalement :
Sub recup_donnes()
Workbooks("Programme.xlsm").Worksheets("CC").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données
Workbooks.Open Filename:="H:\Stage\Programme\TM.xlsx" 'Ouvre le fichier Excel source
Workbooks("TM.xlsx").Worksheets("Type_mine").Cells.Copy _
Workbooks("Programme.xlsm").Worksheets("CC").Range("A1") 'Copie-colle le fichier
Workbooks("Tm.xlsx").Close False 'Referme le fichier source
End Sub
Je te remercie tout de même pour ton aide Morgothal ;)
Bonne journée !