? Copier des feuilles d'un classeur dans un autre classeur ?

[daniel_gre]

Bonjour,

je souhaites copier des feuilles (3) d'un classeur, dans un autre classeur. Le classeur cible peut etre soit un classeur existant (ajout de feuille) soit un classeur nouveau... Les feuilles a copier n'ont pas de relations avec le reste du classeur...

Quelqu'un a t'il une solution, des conseils ?

par avance merci,

Daniel.

 

[Dan]

Re : ? Copier des feuilles d'un classeur dans un autre classeur ?

Bonjour,

Clique sur ce lien -> https://www.excel-downloads.com/thr...r-des-feuilles-dans-un-nouveau-fichier.68469/

J'ai placé deux macros à cet endroit du fil -> Lien supprimé. A adapter à ton fichier bien sûr. Fais donc l'essai avec le fichier qu'avait déposé le forumeur.

SI pb n'hésite pas

 

[daniel_gre]

Re : ? Copier des feuilles d'un classeur dans un autre classeur ?

Bonjour,

merci pour ces macros...je les avais deja consulte...et d'apres ce que j'ai pu comprendre et experimente, elle ne permet de sauver qu'une seule feuille...mon objectif et de sauver plusieurs feuilles d'un classeur dans un autre...

cordialement,

Daniel.

 

[_Thierry]

Re : ? Copier des feuilles d'un classeur dans un autre classeur ?

Bonjour Cher Ami Dan, Daniel, le Forum

A l'époque le 17/05/2004, j'avais fais une démo complète sur ce sujet :

Fichier Démo à Télécharger :
usf-copy-sheets-array-another-workbooks.zip
USF-Copy-Sheets-Array-Another-WorkBooks.xls (Pour ref Moteur Recheche)

Fil de Discussion avec explications:
https://www.excel-downloads.com/threads/sauvegarde-dans-classeur.19678/



Puis un peu plus tard c'est devenue une version plus élaborée :

Fichier Démo à Télécharger :
usf-copy-sheets-array-email-etc.zip
USF-Copy-Sheets-Array-To-Email-Or-Another-WorkBooks.xls (Pour ref Moteur Recheche)

Fil de Discussion avec explications:
https://www.excel-downloads.com/threads/envoi-dun-feuille-ou-plusieurs-dun-classeur-par-email.23653/


Bonne Journée et Semaine à tous et toutes avec un Spécial Hello à mon copain Dan !

@+Thierry​

 

[papapaul]

Re : ? Copier des feuilles d'un classeur dans un autre classeur ?

Ca va peut être t'aider.


Tu crées un userform avec une listbox et un bouton

Avec le code ci dessous tu remplis la listbox

Private Sub userform_initialize()
For Each c In ActiveWorkbook.Sheets
ListBox1.AddItem c.Name
Next
End Sub

Tu mets ca dans le code du bouton

Private Sub CommandButton1_Click()

'Copie des onglets selectionnés
'dans un nouveau classeur

Dim i As Integer
Dim tmp As Integer
Dim myarray() As Variant
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ReDim Preserve myarray(tmp)
myarray(tmp) = ListBox1.List(i)
tmp = tmp + 1
End If
Next
End With
For i = 0 To UBound(myarray)
Worksheets(myarray).Copy ['la est le bleme, ca copie bien mais ca cree autant de classeurs]

Next
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then .Selected(i) = False
Next i
End With

UserForm1.Hide
End Sub

Seul petit probleme que j'ai pas encore résolu,
Ca copie bien tes onglets selectionnés mais ca créé aussi autant de nouveaux
classeur que de feuilles.
Si quelq'un sais comment bien faire cette copie de feuilles mais dans
un seul nouveau classeur, je suis interessé.

Question annexe, pour être plus clairqui je voudrais mettre l'image de mon usf
dans mes messages sur excel-downloads ?
J'y arrive avec outlook mais pas la, y'a ty un truc ??

🙄

@+

 

[Dan]

Re : ? Copier des feuilles d'un classeur dans un autre classeur ?

Bonsoir,

D'abord un bonsoir very special to my friend _Thierry venu ici pour t'aider daniel_gre. Toujours plaisir de te croiser _thierry !

Daniel_gre, exact la macro permet de sauver les feuilles que tu souhaites dans un nouveau classeur (1 feuille par classeur). Il suffit donc de changer le code pour que cela fonctionne pour plusieures feuilles. Par exemple en excluant celles que tu ne veux pas copier dans le nouveau classeur.

Vois d'abord les liens de Thierry qui devraient rencontrer ton attente aussi.

Sinon le mieux est de placer un fichier avec données non confidentielles.

A te lire

 

[papapaul]

Re : ? Copier des feuilles d'un classeur dans un autre classeur ?

🙂 🙂 🙂 BRAVO THIERRY


Absolument super §§!!!§§

Merci beaucoup du fichier USF_Copy....
C'est exactement là-dessus que je planche depuis des jours,
je n'ai plus qu' a l'adapter.
Remarque c'est en cherchant qu'on progresse mais là je vais apprendre
à vitesse supersonique.

Si tu me permets, une fois finalisée ma version pour mon bouleau,
je te ferais plein de bonne pub 😉

Je cite toujours mes sources.

@+