Extraction et macro, possible ?

[Julie-F]

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.

 

[KenDev]

Re : Extraction et macro, possible ?

oups encore,

Remplacer :

oWs1.Cells(Rw, 2) = Left(Fich, Len(Fich) - i): Exit For

par

oWs1.Cells(Rw, 2) = Left(Fich, Len(Fich) - j): Exit For

Bonne soirée

KD

 

[Julie-F]

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]

Re : Extraction et macro, possible ?

Essaye en remplaçant

If Len(oWb2.Worksheets(i).Name) < 4 Then

par

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]

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.