Copier onglet de plusieurs fichiers d'un classeur Excel 2003
Résolu/Fermé
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
-
15 févr. 2013 à 00:12
micheleliane Messages postés 76 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 15 janvier 2015 - 17 févr. 2013 à 16:11
micheleliane Messages postés 76 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 15 janvier 2015 - 17 févr. 2013 à 16:11
A voir également:
- Copier onglet de plusieurs fichiers d'un classeur Excel 2003
- Liste déroulante excel - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Renommer plusieurs fichiers - Guide
- Formule excel - Guide
- Copier une vidéo youtube - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 15/02/2013 à 09:31
Modifié par michel_m le 15/02/2013 à 09:31
Bonjour,
Sans précisions de ta part, tu risque d'attendre longtemps une proposition
par ex. :
onglets du même nom oui, quel nom ?
qui commencent tous par un mot identique oui, quel mot ?
il est positionné normalement dans le dossier pourquoi "normalement"? dans le dossier le m^me que que les classeur source ?
que contient les plages A11: A55 ? pour cela
mettre un classeur source sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
Michel
Sans précisions de ta part, tu risque d'attendre longtemps une proposition
par ex. :
onglets du même nom oui, quel nom ?
qui commencent tous par un mot identique oui, quel mot ?
il est positionné normalement dans le dossier pourquoi "normalement"? dans le dossier le m^me que que les classeur source ?
que contient les plages A11: A55 ? pour cela
mettre un classeur source sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
Michel
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
15 févr. 2013 à 10:39
15 févr. 2013 à 10:39
Bonjour,
Dans ce code, il y a tout un passage à adapter, car votre demande initiale manque cruellement de renseignements.......
Mais bon, p'têtre que ça fonctionne!..... mais pour le coup, ça fait turbiner mes méninges. J'prends une pause!
En cas de difficulté d'adaptation, tu dis...
Dans ce code, il y a tout un passage à adapter, car votre demande initiale manque cruellement de renseignements.......
Mais bon, p'têtre que ça fonctionne!..... mais pour le coup, ça fait turbiner mes méninges. J'prends une pause!
Option Explicit 'Sources : 'http://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers Sub MichelEliane() Dim Chemin As String, Fichier As String, Feuille As String, MotCommun As String Dim Cpt As Integer, DrLig As Long Dim ClasseurRecap As Workbook, Wsh As Worksheet, FeuilRecap As Worksheet Dim Temps Temps = Timer 'ClasseurRecap = notre classeur de récap Set ClasseurRecap = ThisWorkbook '---------------------------- A ADAPTER :-------------------------------------- '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- Set Wsh = ClasseurRecap.Sheets(2) 'Sheets(2) est une feuille du classeur 'Recap qui doit être vide! 'au besoin changer le num de cette feuille Set FeuilRecap = ClasseurRecap.Sheets(1) 'Sheets(1) est la feuille du classeur de récap 'dans laquelle tu souhaites regrouper tes données Chemin = "C:\Documents and Settings\Utilisateur\Bureau\Nouveau dossier\" 'Chemin d'accès au répertoire Feuille = "Feuil2" 'nom des feuilles des différents classeurs à regrouper MotCommun = "Classe" 'classeurs commencent tous par un mot identique mettre ici ce mot '--------------------------- FIN ADAPTATIONS --------------------------------- '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 'Initialisation du compteur de fichiers traités Cpt = 0 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "*.xls") Do While Len(Fichier) > 0 If Left(Fichier, Len(MotCommun)) = MotCommun Then 'Incrémentation du compteur de fichiers Cpt = Cpt + 1 ClasseurRecap.Names.Add "plage", RefersTo:="='" & Chemin & "[" & Fichier & "]" & Feuille & "'!$A$11:$H$55" With FeuilRecap DrLig = .Range("A" & Rows.Count).End(xlUp).Row + 1 End With With Wsh .Range("A11:H55") = "=plage" .Range("A11:H55").Copy FeuilRecap.Range("A" & DrLig).PasteSpecial xlPasteValues .Range("A11:H55").Clear End With End If Fichier = Dir() Loop MsgBox Cpt & " fichiers ont été traités en : " & Timer - Temps & " secondes." End Sub
En cas de difficulté d'adaptation, tu dis...
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 15/02/2013 à 11:41
Modifié par michel_m le 15/02/2013 à 11:41
Bpnjour Frank
je pensais plutôt à employer ADO mais...
De toutes façons, vaut peut-^tre mieux attendre la réaction de Micheleliane, surtout si, comme il le dit, il est nul en VBA...
d'ailleurs, si on emploie ADO, il faudrait la version d'Excel
je pensais plutôt à employer ADO mais...
De toutes façons, vaut peut-^tre mieux attendre la réaction de Micheleliane, surtout si, comme il le dit, il est nul en VBA...
d'ailleurs, si on emploie ADO, il faudrait la version d'Excel
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
15 févr. 2013 à 11:16
15 févr. 2013 à 11:16
Salut,
Oui, bien sur ADO doit fonctionner, certainement mieux que mon exemple. Cependant, je ne maîtrise pas cette technique du tout......
Je te laisse le sujet, puisque tu y es arrivé le premier.
En cas de souci avec mon code, je reste en suivi.
Merci à toi en tout cas.
A+
Oui, bien sur ADO doit fonctionner, certainement mieux que mon exemple. Cependant, je ne maîtrise pas cette technique du tout......
Je te laisse le sujet, puisque tu y es arrivé le premier.
En cas de souci avec mon code, je reste en suivi.
Merci à toi en tout cas.
A+
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
15 févr. 2013 à 11:43
15 févr. 2013 à 11:43
Je te laisse le sujet, puisque tu y es arrivé le premier.
non, non, de toutes façons guère de temps cet aprem.... :o)
non, non, de toutes façons guère de temps cet aprem.... :o)
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
17 févr. 2013 à 16:04
17 févr. 2013 à 16:04
MERCI cela fonctionne avec l'original mon exemple ne doit pas être bon
grâce a vous j'ai compris pourquoi il fallait tout préciser,car j'aurais quelques modification a faire
et devrais certainement demander de l'aide. A ce moment la je ferais mon possible pour un model et des explications adéquats.
MERCI a pijaku et michel_m ainsi que toute l'équipe cela a été très rapide de votre part
Probléme RESOLU
grâce a vous j'ai compris pourquoi il fallait tout préciser,car j'aurais quelques modification a faire
et devrais certainement demander de l'aide. A ce moment la je ferais mon possible pour un model et des explications adéquats.
MERCI a pijaku et michel_m ainsi que toute l'équipe cela a été très rapide de votre part
Probléme RESOLU
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
17 févr. 2013 à 16:11
17 févr. 2013 à 16:11
JE PENSAIS TAPER SUR LE BOUTON RESOLU
LE PROBLEME EST RESOLU
MERCI ENCORE
LE PROBLEME EST RESOLU
MERCI ENCORE
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
15 févr. 2013 à 13:58
15 févr. 2013 à 13:58
BONJOUR ET MERCI de toutes ces réponses
Je vais essayer de fournir des données correcte
Je me met au travail
excusez ma lenteur je fais de mon mieux
Pour ADO cela ne me dit vraiment rien
A tout de suite
Je vais essayer de fournir des données correcte
Je me met au travail
excusez ma lenteur je fais de mon mieux
Pour ADO cela ne me dit vraiment rien
A tout de suite
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
Modifié par micheleliane le 15/02/2013 à 18:56
Modifié par micheleliane le 15/02/2013 à 18:56
je pense avoir réussi a envoyer en plusieurs fois les fichiers dont on prend les données et celui qui les réceptionne mille excuses je ne suis pas meilleur en informatique qu'en V.B.A.
En supplément des problèmes internet
Le chemin est ( C:\Documents and Settings\XP\Mes documents\1INSCRIPTION\seul_ma)
Prend données dans(dossier=1INSCRIPTION),(fichier=seul_"+nom"),(onglet=demande).
Reçois données (dossier=1RECEPTION),(fichier=tout),(onglet=complet)
Ci cela est possible on peut mettre le fichier "tout" dans le même dossier
Je suis en EXCEL 2003
MERCI,MERCI.
Je ne vois pas mes fichiers envoyés
En supplément des problèmes internet
Le chemin est ( C:\Documents and Settings\XP\Mes documents\1INSCRIPTION\seul_ma)
Prend données dans(dossier=1INSCRIPTION),(fichier=seul_"+nom"),(onglet=demande).
Reçois données (dossier=1RECEPTION),(fichier=tout),(onglet=complet)
Ci cela est possible on peut mettre le fichier "tout" dans le même dossier
Je suis en EXCEL 2003
MERCI,MERCI.
Je ne vois pas mes fichiers envoyés
micheleliane
Messages postés
76
Date d'inscription
mercredi 13 février 2013
Statut
Membre
Dernière intervention
15 janvier 2015
15 févr. 2013 à 22:34
15 févr. 2013 à 22:34
BONJOUR
J'ai essayé la macro de pijaku a Set Wsh = "ClasseurRecap" après avoir mis tout les noms de classeur avec classeur avant et sans, entre "" ,entre( ) toujours la même erreur
Erreur de compilation, Variable non définie. a plus tard MERCI
je viens de comprendre comment mettre pièce-jointe
https://www.cjoint.com/?CBpwjbvsJPs https://www.cjoint.com/?CBpwmhQNTSI https://www.cjoint.com/?CBpwn0hH7ME
https://www.cjoint.com/?CBpwshVjw9H J'ai réussi j'espère que malgré le mélange que j'ai fait vous comprendrez mes documents a plus tard merci a l'avance micheleliane
J'ai essayé la macro de pijaku a Set Wsh = "ClasseurRecap" après avoir mis tout les noms de classeur avec classeur avant et sans, entre "" ,entre( ) toujours la même erreur
Erreur de compilation, Variable non définie. a plus tard MERCI
je viens de comprendre comment mettre pièce-jointe
https://www.cjoint.com/?CBpwjbvsJPs https://www.cjoint.com/?CBpwmhQNTSI https://www.cjoint.com/?CBpwn0hH7ME
https://www.cjoint.com/?CBpwshVjw9H J'ai réussi j'espère que malgré le mélange que j'ai fait vous comprendrez mes documents a plus tard merci a l'avance micheleliane
15 févr. 2013 à 10:40
Désolé pour l'incruste, je n'ai pas rafraichi avant de me lancer... Sorry.
En tout cas : Sans précisions de ta part, tu risque d'attendre longtemps une proposition
même avis.