macro copier feuil dans un nouveau classeur Résolu

Question

Bonjour, 

je me retourne à nouveau vers vous car je cherche depuis plusieurs jours sur le net mais je ne trouve pas de réponse qui corresponde à mon cas.

je souhaiterais copier plusieurs feuilles dans un nouveau classeur mais le soucis est que les feuilles sont constament renommées avec des dates!!!

Actuellement, les macro que je trouve sont construite avec le nom du fichier et ca ne fonctionne pas dans mon cas....

Auriez vous une idée à proposer? peut etre peut on créer une macro avec le numero de la feuil et non le nom??

Merci de votre aide.

Configuration: Windows Vista / Firefox 8.0

pijaku · Answer

Bonjour,
Tu stockes les noms des feuilles en fonction de leur numéro, puis tu copies l'array correspondant.
Un exemple pour 6 feuilles (donc un tableau dimensionné à 5 puisque première valeur 0) :
Sub CopyFeuilles()
Dim NomFeuilles(5) As String 'var tableau pour 6 feuilles
NomFeuilles(0) = Sheets(1).Name
NomFeuilles(1) = Sheets(2).Name
NomFeuilles(2) = Sheets(3).Name
NomFeuilles(3) = Sheets(6).Name
NomFeuilles(4) = Sheets(9).Name
NomFeuilles(5) = Sheets(13).Name
Sheets(Array(NomFeuilles(0), NomFeuilles(1), NomFeuilles(2), NomFeuilles(3), NomFeuilles(4), NomFeuilles(5))).Copy
End Sub
Si toutefois j'ai bien compris ta problématique...

diabolo162 · Answer

merci de repondre aussi vite...
je suis pas sur de comprendre ta proposition...enfin je ne sais pas ce que je dois remplacer....

peux tu me donner un exemple

Exemple pour mon classeur :

Feuil1 = Hivers Sem 49
Feuil2 = Hivers Sem 50 ....etc....

Il faudrait que la macro fonctionne avec "feuil1" plutot que "Hivers Sem 49" car la feuille est constament renommé

diabolo162 · Answer

ok c'est bien ca.....merci beaucoup pijaku

Macro copier feuil dans un nouveau classeur

3 réponses

Votre réponse

Discussions similaires

Newsletters