VBA : copier-coller une feuille dans un autre classeur
Résolu
MJGOAT
Messages postés
15
Statut
Membre
-
MJGOAT Messages postés 15 Statut Membre -
MJGOAT Messages postés 15 Statut Membre -
Bonjour, n'étant pas expert en VBA, je me tourne vers vous car j'ai besoin de votre aide !
Je voudrais créer un programme qui ouvre un fichier source (TM.xlsx) afin de copier une feuille de celui-ci (Type_mine) dans un autre classeur (en l'occurence, le classeur contenant le programme, "Programme.xlsx" dans la feuille "CC").
J'ai pour le moment fait cela :
Sub recup_donnees()
Dim fichier As String
Dim programme As String
fichier = "H:\Stage\Programme\TM.xlsx"
programme = "H:\Stage\Programme\Programme.xlsm"
Workbooks.Open Filename:=fichier 'Ouvre le fichier source
Workbooks(fichier).Worksheets("Type_mine").Cells.Copy.:=Workbooks(programme).Worksheets("CC").Range("A1") ' On colle les données
Workbooks(Nom_Fichier).Close False ' On ferme le fichier source
End Sub
Hélas, le fichier bloque au passage du copier-coller.
Pourriez-vous m'aider???
Je vous remercie d'avance de votre aide !
Je voudrais créer un programme qui ouvre un fichier source (TM.xlsx) afin de copier une feuille de celui-ci (Type_mine) dans un autre classeur (en l'occurence, le classeur contenant le programme, "Programme.xlsx" dans la feuille "CC").
J'ai pour le moment fait cela :
Sub recup_donnees()
Dim fichier As String
Dim programme As String
fichier = "H:\Stage\Programme\TM.xlsx"
programme = "H:\Stage\Programme\Programme.xlsm"
Workbooks.Open Filename:=fichier 'Ouvre le fichier source
Workbooks(fichier).Worksheets("Type_mine").Cells.Copy.:=Workbooks(programme).Worksheets("CC").Range("A1") ' On colle les données
Workbooks(Nom_Fichier).Close False ' On ferme le fichier source
End Sub
Hélas, le fichier bloque au passage du copier-coller.
Pourriez-vous m'aider???
Je vous remercie d'avance de votre aide !
A voir également:
- Vba copier une feuille dans un autre classeur sans ouvrir
- Copier coller une feuille dans un autre classeur vba - Meilleures réponses
- Copier feuille excel dans un autre classeur - Meilleures réponses
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment copier une vidéo youtube - Guide
Je ne vois que ça pour une telle erreur (vu que tu peux accéder à tes classeurs)...
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 !