copier un nombre variable de feuilles

[lesuisse]

Bonjour à toutes et à tous,

J'ai un classeur dans lequel je génère un certain nombre de feuilles... nombre qui n'est jamais le meme d'une periode à l'autre.

A la fin du traitement des données, je souhaite copier dans un autre classeur toutes les feuilles à l'exception de 4 feuilles fixes, (les 4 portent toujours le meme nom).

Est ce que quelqu'un aurait une idée du code à écrire ?

Merci beaucoup

Et bien le bonjour de la Suisse

lesuisse

 

[bipbipcoyote]

Sub copie()
Dim sh As Variant
'la ligne suivante boucle sur toutes les feuilles
For Each sh In ActiveWorkbook.Sheets
'condition pour ne pas recopier à personnaliser avec des Or pour 4 feuilles
If sh.Name <> "Sheet2" Then
'copie la feuille dans le fichier book3 après la feuille 2
sh.Copy After:=Workbooks("Book3").Worksheets("Sheet2")
End If
Next
End Sub

 

[Minick]

Salut,

Un petit exemple en piece jointe

@+ Minick

 

[lesuisse]

Hello Minick, le forum,

Merci pour ton aide, mais n'est-il pas possible d'enlever l'enregistrement automatique ?
Simplement que les feuilles copiées (sans les 4 fixes) soit copiées dans un nouveau workbook sans nom ?

Merci

Lesuisse

 

[lesuisse]

Hello Bipbipcoyote,

Merci pour ton aide.
N'est-il pas possible de simplement copier les feuilles dans un nouveau workbook sans le nommer book3 ?

Merci

Lesuisse

 

[Minick]

Salut,

Il suffit de remplacer
ActiveWorkbook.Saveas ClasDst
par
ClasDst = ActiveWorkbook.Name

et d'enlever la ligne

Workbooks(ClasDst).Save

@+ Minick

 

[@+Thierry]

Bonjour Minick, LeSuisse, re BipBip, le Forum

Comme indiqué par ailleurs, BipBip, sh peut être déclaré As WorkSheet.

Un moment qu'on ne te voyait plus Minick, Welcome Back

Et pour notre ami Suisse, une autre approche avec cette démo assez complète pour manipuler une Array de WorkSheets...

=> Démo Téléchargeable Lien supprimé (18k)

=> Fil de Discussion avec complément d'info Lien supprimé

Bonne Après Midi
@+Thierry

 

[Minick]

Salut @+Thierry,

Merci pour l'accueil de come back,

J'étais pas tres loin mais occupé et quelques jours en allemagne plus tard me revoila
Je me remet doucement a faire des petites interventions de mon niveau )

@+ Minick

 

[lesuisse]

Thierry, Minick, le forum, la Suisse, l'Alsace,

Un bijou !!
Tout simplement un bijou...
Mais... Au risque de passer pour un suisse... euh... un illuminé, mais: comment puis-je inclure cette commande dans mon fichier ???????!!!!!!!!!!!!!!!!!!!!
Merci pour tes/vos lumières !!

Le Suisse déconcerté

 

[lesuisse]

Minick,

Ca marche comme je le voulais !!!

Merci bcp

@+

Le Suisse

 

[@+Thierry]

Re Bonjour le Suisse, Minick, le Fil, le Forum

Tu sais moi je suis Belge alors j'ai l'habitude ...

Au fait savais-tu pourquoi les Suisses ne font pas de Ski Nautique ?

Et bien c'est tout simplement parcequ'ils n'ont pas trouvé de lac en pente !!!

Sinon rien de plus simple, cette Démo est prévue pour une intégration immédiate dans n'importe quel classeur... Depuis VBE (Visual Basic Editeur) avec l'Explorateur de Projet tu fais un Drag & Drop du UserForm vers ton Fichier... Et Hop !!

Pour les Feuilles qui ne doivent pas être copiées :
Remplacer cette Ligne
If WS.Name <> ("Interface") Then

Par
If WS.Name <> "TaFeuille1" And WS.Name <> "TaFeuill2" Then

C'est Tout...

Bonne Fin de Journée
@+Thierry

 

[lesuisse]

Re bonjour Thierry, Minick, le fil et le forum...

Juste une précision... je ne suis pas Suisse... Je ne fais que travailler dans ce beau pays et tous les soirs, je regagne la mère patrie.

Je crois avoir pu copier le user form dans mon fichier...
Mais subsiste encore une question (On y arrivera !!): Comment affecter tous cette beauté à un bouton ???

Parce que je me retrouve avec les codes dans VBE et impossible de trouver comment faire pour allouer le tout à un bouton

Pourrais-tu encore m'éclairer ??

Merci bcp !

Bonne fin d'AM

Le Suisse pas très suisse en fait...

 

[@+Thierry]

Re re re !

Et bien, depuis Excel (pas VBE) tu prends la barre d'outil numéro 2 ci-dessous :


Tu prends le 6èm bouton de cette barre d'outils "Contrôles" et tu dessines ton bouton où bon te semble sur cette feuille.

Une fois dessiné, tu doubles-click sur ce bouton et tu vas te retrouver projetté dans un Private Module de la Feuille en question avec ce code :
Private Sub CommandButton1_Click()

End Sub

Il ne te reste qu'à écrire ceci :
Private Sub CommandButton1_Click()
USF1.Show
End Sub

Pour personnaliser ton bouton sur la feuille, tu fais un click droit quand il est sélectionné en Mode Design (Le Mode Design s'obtient et se désactive avec le premier bouton de la barre d'outils "Contrôles", celui avec une équerre bleue, une rêgle et un crayon), donc le bouton sélectionné, click droit et "Propriétés", là tu obtiendras une fenêtre avec toutes les Propriétés où tu pourras changer la couleur (BackColor), la couleur du Text (ForeColor), le Text lui-même (Caption)... etc

Bonne Découverte !
@+Thierry

 

[lesuisse]

Thierry, le reste du monde,

Encore un GRAND merci pour toutes ces explications. J'ai finalement réussi à installer le tout.

Danke, merci et bonne soirée encore.

@ +

Le suisse