Bonjour à tous,

j'ai écrit une macro pour créer un fichier avec 5 onglets et nommer les différents onglets.
voici ma macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
If Workbooks(book1).Sheets("P1").Cells(ligne, 1).Value = 0 Then
For n = 1 To 5 - Worksheets.Count
    Sheets.Add after:=Worksheets(Worksheets.Count)
Next
    Worksheets(1).name = ("Achat")
 
    worksheets(2).name=("vente")
 
    worksheets(3).name=("avoir")
toutefois sur le worksheets crée, j aimerai copier une feuille d un fichier nomme str, feuille ("achat 1") et la coller sur le worksheets(1).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    'Workbooks(str).Sheets("achat 1").Copy
    'Worksheets(1).Sheets("achat").Paste
j ai essayé ca mais ca ne marche pas.

Sauriez vous comment remédier à cela?

bien cordialement,