Extraction et macro, possible ?

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

  • RecupV1.xls
    29 KB · Affichages: 39

Julie-F

XLDnaute Occasionnel
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
 

KenDev

XLDnaute Impliqué
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
 

Julie-F

XLDnaute Occasionnel
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. :eek:
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.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 845
Messages
2 092 770
Membres
105 531
dernier inscrit
Fidele Lebeni