Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Extraction et macro, possible ?

  • Initiateur de la discussion Initiateur de la discussion Julie-F
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Julie-F

XLDnaute Occasionnel
Bonjour à tous

J'ai un grand besoin d'aide. Je dois extraire les données d'un classeur sur lequel je ne peux agir qui contient plus de 120 onglets dans un nouveau fichier.
Mais plusieurs obstacles.
Seulement 100 onglets, tous batis de la même manière, sont concernés par cette récupération.
Dans Visual Objet, les onglets ne se suivent pas.

Dans ces conditions, est il possible de réaliser une macro qui puisse automatiser le
tout ?
J'ai essayé mais je n'y arrive pas et tourne en boucle mes connaissances étant limitées.

Merci d'avance.
 

Pièces jointes

Re : Extraction et macro, possible ?

oups encore,

Remplacer :
Code:
oWs1.Cells(Rw, 2) = Left(Fich, Len(Fich) - i): Exit For
par
Code:
oWs1.Cells(Rw, 2) = Left(Fich, Len(Fich) - j): Exit For
Bonne soirée

KD
 
Re : Extraction et macro, possible ?

D'accord, je modifie le code.

Et Oups pour moi. Si la macro bloquée, c'est parcequ'elle rencontrait sur des onglets masqués des #DIV/0!.
Tu ne pouvais donc pas de ton coté reproduire l'erreur que je lisais à l'écran.
Est il possible de lister ces onglets masqués (ils peuvent varier d'un classeur à l'autre) et de les exclure depuis un code associé à la macro principale ?

Bonne soirée à toi également
 
Re : Extraction et macro, possible ?

Essaye en remplaçant
VB:
If Len(oWb2.Worksheets(i).Name) < 4 Then
par
VB:
If Len(oWb2.Worksheets(i).Name) < 4 And oWb2.Worksheets(i).Visible = True Then
.

Sinon dis moi si tu as des soucis de formats sur les valeurs récupérées.

KD
 
Re : Extraction et macro, possible ?

J'ai fait les modifications que tu m'as indiqué et çà ne bug plus. J'aurai du m'en rendre compte plus tôt. 😱
Pour les formats, il ne semble pas y avoir de soucis, mais je dois t'avouer qu'il y en a trop et je préférerai pouvoir imprimer le fichier demain pour pouvoir les comparer (sans doute pas toutes mais quelques sondages, çà et là avec le fichier d'origine)
Je ne manquerai pas de te donner des nouvelles.
Un immense merci.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…