Discussion :

[Invité]

Bonjour à tous,
Je profite de vos neurones avant que vous n'ayez attaqué les festivités du soir

Voici mon problème:

J'ai un classeur TOTO qui comporte plusieurs feuilles dont MENU et PARAMETRE
Je souhaite copier tous les onglets (Nb variable)du classeur TOTO sur un autre classeur TITI, sauf les feuilles MENU et PARAMETRE en récupérant le nom des onglets

J'ai chercher, mais j'ai pas trouvé ce que je voulais
Merci d'avance,

Bon réveillon et Meilleurs Voeux

[Marc-L]

Bonjour,

conformément aux règles de ce forum, merci de poster le code entrepris.

Penser aussi à l'activation de l'Enregistreur de macros puis effectuer les opérations manuellement :
une base de code est livrée sur un plateau !

______________________________________________________________________________________________________
Je suis Paris, …

[Invité]

Bonjour,

Pour la réponse :

Penser aussi à l'activation de l'Enregistreur de macros puis effectuer les opérations manuellement :
une base de code est livrée sur un plateau !

effectuer les opérations manuellement : variable entre 250 à 300 feuilles

Si vous ne délivrez pas de base code "Livré sur un plateau", il y a au moins un modèle de code à modifier par mes soins.
Sinon, A quoi sert le forum:
"Peut-être aussi à (sans être vulgaire) "Pomper" des bases de codes que fournissent les "forumeurs"

Vois-tu, dans ta réponse à ma question, il y a une question à ta réponse

Amicalement

[Marc-L]

La qualité des réponses dépendant de la qualité de la présentation initiale …


Une voie : classeur source fermé, utiliser la méthode FileCopy pour dupliquer le classeur source (voir l'aide VBA)

puis dans le nouveau classeur y supprimer les feuilles de calculs non désirées (là c'est facile avec l'Enregistreur de macros !) …

[Invité]

Re,

Ok et merci,

et bonne année

[aziz1015]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub CopieOnglets()
'
 
Dim WbC As Workbook
Dim Ws_Count As Integer, I As Integer
Dim Chemin As String
 
 
'ici le chemin du classeur TITI qui sera créé
Chemin = "E:\PRIVE\M15L702\VBA COURS"
 
Set WbC = Application.Workbooks.Add
 
WbC.SaveAs Chemin & "\TITI", xlOpenXMLWorkbook
 
Ws_Count = ThisWorkbook.Worksheets.Count
 
For I = 1 To Ws_Count
 
  If ThisWorkbook.Sheets(I).Name <> "MENU" And ThisWorkbook.Sheets(I).Name <> "PARAMETRES" Then
         ThisWorkbook.Sheets(I).Copy before:=WbC.Worksheets("Feuil1")
  End If
 
Next I
 
'si tu veux enregistre le classeur titi
'WbC.Close True
 
End Sub

Cordialement