Bonjour,

Je galére sur une macro toute simple à l'origine.
Je voudrais rajouter une nouvelle feuille dans mon classeur mais le souci si je déclenche la macro 2 fois, ça bug car la nouvelle feuille qui se nomme automatiquement " FEUIL1 " existe déjà.
Il faudrait que ça me rajoute à chaque fois que je déclenche la macro une feuille supllémentaire.

Je sais le faire avec un nouveau classeur avec ce code :
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
Sub Ajout_Nouveau_Classeur()
'
'   
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add
 
    Windows("Suivi.xlsm").Activate
    Sheets("Donnees").Select
    ActiveSheet.Unprotect
 
 
    'Selection.Copy
    'Wbk.Activate
    'ActiveSheet.Paste
    'Windows("Suivi.xlsm").Activate
 
End Sub
J'ai essayé avec le code suivant mais ça ne fonctionne pas :
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
Sub Ajout_Nlle_Feuille()
'
'
    Dim Sht As Sheets
    Set Sht = Sheets.Add
 
    Windows("Suivi internes.xlsm").Activate
    Sheets("Donnees").Select
    ActiveSheet.Unprotect
 
    Sht.Add
    Sht.Name = "Couverture"
    Sheets("Donnees").Select
..........
End Sub
Quelqu'un aurait il une idée

Cordialement,
Graphikris