VBA copier onglet dans un autre classeur via un bouton
Résolu/Fermé
A voir également:
- VBA copier onglet dans un autre classeur via un bouton
- Copier une vidéo youtube - Guide
- Rouvrir un onglet fermé - Guide
- Super copier - Télécharger - Gestion de fichiers
- Copier un disque dur - Guide
- Onglet privé - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
18 juil. 2013 à 14:39
18 juil. 2013 à 14:39
Bonjour,
On va essayer...
Remplace tes 4 lignes :
par :
On va essayer...
Remplace tes 4 lignes :
Set wbSource = Workbooks.Open(vFichiers(k)) 'on ouvre le fichier Set wsSource = wbSource.Sheets(1) 'On copie les données de la feuille 4 Set wsRecap = wbRecap.Sheets(2).Add Set wsSource.Copy After =Workbooks("Absentéisme automatisation.xls").Sheets(1)
par :
Set wbSource = Workbooks.Open(vFichiers(k)) 'on ouvre le fichier Set wsSource = wbSource.Sheets(1) 'On copie la feuille wsSource.Copy After:=wbRecap.Sheets(1)
Et bien Pijaku un grand merci c'est pile ce que je souhaitais faire et ca fonctionne parfaitement.
Par contre, n'aurais tu pas une autre ligne de code pour fermer le classeur wbsource après avoir copier l'onglet
Thanks tu peux pas savoir comment j'ai galéré merciiiiii^^
Par contre, n'aurais tu pas une autre ligne de code pour fermer le classeur wbsource après avoir copier l'onglet
Thanks tu peux pas savoir comment j'ai galéré merciiiiii^^
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
18 juil. 2013 à 14:57
18 juil. 2013 à 14:57
wbSource.Close
peut être
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
18 juil. 2013 à 15:07
18 juil. 2013 à 15:07
mais de rien pour tout.
A+ n'hésite pas!
A+ n'hésite pas!
23 juin 2014 à 11:31