Discussion :

[landi440]

Bonjour,

Je sais que le sujet a déjà été abordé et que des tutoriels ont été faits, mais je n'ai pas trouvé la réponse

J'ai 1 classeur Excel (Excel 2002) qui contient 100 onglets dont je dois copier le contenu dans 100 classeurs différents (1 dans chaque) et qui portent le même nom (mais dans des répertoires différents).

En VBA, cela prend environ 6 secondes par classeur (ouvrir, copier, coller, sauvegarder et fermer) soit 10 minutes environ au total.

Mon but est de gagner du temps...

Je sais que via ADO on peut écrire dans un classeur Excel fermé mais dans mon cas, c'st le contenu complet de chaque onglet qu'il faut copier et celui-ci n'est pas du tout arrangé comme une base de donnée (avec des entêtes bien rangées etc.).

Donc, pour résumer, comment copier le contenu d'un onglet Excel qui contient de tout vers un autre classeur Excel fermé ?

Merci
@+

[House MD]

J'imagine que tu utilises déjà les :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.screenupdating=false

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

excel.visible=false

Mais comment copies-tu tes donnnées (10 min ca me parait long...)

tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MyBk.sheets(A).Copy
ActiveWorkbook.saveas:="..."

?

[landi440]

Bonjour
Effectivement j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

Par contre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

excel.visible=false

, je ne sais pas ce que c'est

En fait 10 minutes, cela fait 6 secondes par onglet

J'ouvre mon document source qui contient 100 onglets et par une boucle,
- j'ouvre le document receveur sur le bon onglet,
- je me repositionne sur mon document source sur le bon onglet
- je fais un un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Select

et je copie (CTRL-C)
- je me déplace sur le document receveur
- je fais coller CTRL+V une 1ère fois
- je fais ensuite un collage spécial valeur
- je sauvegarde le document receveur
- je passe à l'onglet suivant sur le document source

[SilkyRoad]

bonjour

Donc, pour résumer, comment copier le contenu d'un onglet Excel qui contient de tout vers un autre classeur Excel fermé ?

Ce n'est pas possible si tes feuilles contiennent autre chose que des données brutes. Tu devras ouvrir les classeurs pour copier les feuilles.


bonne journée
michel

[landi440]

OK Merci à tous