Copie de feuilles

[simon]

Bonjour,

Voila j'ai un classeur Excel contenant plus de 150 feuilles formatées de la même façon, et je souhaite n'en avoir qu'une seule, ceci afin de les importer dans Access par la suite. Je cherche depuis un moment mais j'avance pas beaucoup.

Est-ce possible?

Merci pour vos réponses

Simon

 

[Abel]

Bonjour simon,

Oui, sûrement.

Un petit exemple ?

Abel.

 

[simon]

Bonjour Abel,

En effet je recherche volontiers un petit exemple.

Simon

 

[Abel]

Re,

Pardon.

Je voulais dire : donnes nous un exemple pour que l'on puisse voir le format de tes feuilles et qu'on puisse ainsi voir la solution la plus appropriée.

Abel.

 

[simon]

Re,

Ok je vous joins le fichier en question, celui-ci contient environ 14 feuilles. Chaque feuille contient le même nbre de colonnes. Je souhaite fusionner en qq sorte ces 14 feuilles en une seule. J'ai pas ex un fichier contenant + 150 feuilles exactement dans le même format, j'envisage difficilement la solution du Ctrl+C et Ctrl+V!

Simon

 

[galopin01]

Bonjour,
Voilà qui devrait faire l'affaire.
Il faudrait peut-être mettre un garde fou si ça risque de dépasser les 65000 lignes...

Sub Test()
For i = 2 To Worksheets.Count
k = Range("A65336").End(xlUp)(3).Row
Worksheets(i).UsedRange.Cut ActiveSheet.Range("A" & k)
Next
End Sub

A+

 

[simon]

Merci à galopin01,

Cela marche parfaitement. J'arrive au résultat espéré.

Simon