LA METHODE Add de l'objet Sheet a echouée : SOLUTION

**Dorel.D** · 03/03/2020, 09h23

Bonjour, j'ai un code que je veux utiliser pour ouvrir une feuille dans un classeur a partir d'un bouton mais avant je voudrais vérifier sil existe. ça fonctionne. Il y a là un probleme pour l'ajout de la feuille
Voici le code de mon bouton

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton9_Click()
Dim Nom As String, i As Byte, Verif As Boolean, myMonth As Integer, myYear As Integer, myDate As Date, ee As String, a As Long
 myDate = Date ' enregistre la date d'aujourd'hui dans la variable myDate
 
myMonth = (Month(myDate))  ' No du mois précédent
myYear = Year(Date) 'No année
ee = ""
recom:
Verif = False
Nom = InputBox("Définissez le nom du nouveau svp", "Ajout nouveau ") & "" & (myMonth) & " - " & myYear
 
If Nom = "" Then Exit Sub
 
 
    With Workbooks("AVIONS")
  For i = 1 To .Worksheets.Count
     If .Sheets(i).Name = Nom Then
         Verif = True
          Exit For
     End If
  Next i
End With
 
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Workbooks("AVIONS").Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
        Application.ScreenUpdating = False
        Workbooks("AVIONS").Sheets(1).Activate
        Range("A1:P3").Select
        Selection.Copy
        Workbooks("AVIONS").Sheets(Nom).Activate
        Range("A1").Select
        ActiveSheet.Paste
        'On copie colle uniquement le format des colonnes
        Workbooks("AVIONS").Sheets(1).Activate
        Columns("A:P").Select
        Selection.Copy
        Workbooks("AVIONS").Sheets(Nom).Activate
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
Unload Me
UserForm1.Show
End Sub

**Menhir** · 03/03/2020, 09h58

Je t'ai déjà donné la solution ici : https://www.developpez.net/forums/d2.../#post11403753

**Dorel.D** · 03/03/2020, 10h05

oui je vous ai repondu, peut-etre super nul mais je suis actuellement perdu

**Dorel.D** · 03/03/2020, 10h15

je viens de voir un tas de code dans le module, il n'y a pas d'anciennes données qui affectent mon code ?

**Menhir** · 03/03/2020, 10h37

Ce qui est écrit dans la ligne 30 de ton code ne peut pas se faire en une seule ligne.
Il y a deux action :
1 - Création d'une nouvelle feuille.
2 - Affectation d'un nom à cette nouvelle feuille.

Il faut faire ça sur DEUX lignes de code.

De plus, il faut indiquer le parent (classeur) de la Sheet du paramètre After.