InsertLines : argument not optional

Version imprimable

Bonjour tout le monde,

je dois insérer de nouvelles lignes dans une macro>
Comme j'avais des soucis, j'ai pompé :mouarf: cet exemple sur le forum et mon bouquin de référence (VBA pour Excel 2003 de John Walkenbach) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub AddSheetAndButton() Dim NewSheet As Worksheet Dim NewButton As OLEObject ' Ajouter le code de gestionnaire d'événements Code = "Sub CommandButton1_Click()" & vbCrLf Code = Code & " On Error Resume Next" & vbCrLf Code = Code & " Sheets(""Feuil1"").Activate" & vbCrLf Code = Code & " If Err <> 0 Then" & vbCrLf Code = Code & " MsgBox ""Impossible d'activer Feuil1.""" & vbCrLf Code = Code & " End If" & vbCrLf Code = Code & "End Sub" With ActiveWorkbook.VBProject. _ VBComponents(NewSheet.Name).CodeModule NextLine = .CountOfLines + 1 .InsertLines NextLine, Code End With End Sub
mon problème, c'est que je recoit le message 'Argument not optional' (oui, je bosse sur un excel in english :cry:) et que je ne sais absolument pas pourquoi alors la référence Microsoft Visual Basic for Applications Extensibility 5.3. est bien active.

Merci pour tout ce qui pourrait me mettre sur la voie :(

30/05/2011, 13h42
mercatog

1. CodeName à la place de Name

Code:

With ActiveWorkbook.VBProject.VBComponents(NewSheet.CodeName).CodeModule
30/05/2011, 13h58
Stutak

Merci Mercatog,
mais ca ne change rien, j' ai toujours cette alerte "argument not optional".
et c'est Insertlines qui est surligne>

Desole pour les accents, mais c'est un clavier QWERTY et j'ai pas de clavier numerique pour utiliser la touche alt.
Merci

J'ai testé ce code et ça passe sans problème:
Ajout d'une nouvelle feuille (NewSheet)
Ajout d'un CommandButton (NewButton)
Ajout du code lié à ce CommandButton

Code:

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 AddSheetAndButton()
Dim Code As String
Dim NextLine As Integer
Dim NewSheet As Worksheet
Dim NewButton As OLEObject
 
With ThisWorkbook
    'Ajout d'une feuille vierge
    Set NewSheet = .Worksheets.Add
    'Ajout d'un bouton à la faeuille
    Set NewButton = NewSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
    NewButton.Name = "CommandButton1"
    Set NewButton = Nothing
    'Ajouter le code de gestionnaire d'événements
    Code = "Sub CommandButton1_Click()" & vbCrLf
    Code = Code & "    On Error Resume Next" & vbCrLf
    Code = Code & "    Sheets(""Feuil1"").Activate" & vbCrLf
    Code = Code & "    If Err <> 0 Then" & vbCrLf
    Code = Code & "      MsgBox ""Impossible d'activer Feuil1.""" & vbCrLf
    Code = Code & "    End If" & vbCrLf
    Code = Code & "End Sub"
 
    With .VBProject.VBComponents(NewSheet.CodeName).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With
    Set NewSheet = Nothing
End With
End Sub

30/05/2011, 14h25
Stutak

Merci Mercatog,

c'est bien pour ca que je ne comprends pas !!

Je suis effectivement parti avec cet exemple et qund je pose une apostrophe devant les lignes du WITH injectant la macro, tout passe sans probleme, creation d'onglet et de bouton. Mais c'est quand je veux inserer une macro que ca coince.
J'ai relu 20 fois mon code et il me semble pas que j'ai fait une faute de recopie.
30/05/2011, 15h44
Godzestla

Bonjour,

Citation:

J'ai relu 20 fois mon code et il me semble pas que j'ai fait une faute de recopie.

Je te suggère de montrer ton code tel qu'il est maintenant, au cas où..:calim2:

Citation:

Je te suggère de montrer ton code tel qu'il est maintenant, au cas où..

Oui, j'avais eu cette impression-la.. :oops:
Donc, j'ai tout effacé et recommencé...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub AddSheetAndButton() Dim Code As String Dim NextLine As Integer Dim F2 As Worksheet With ThisWorkbook Set NewSheet = ThisWorkbook.Sheets("Data") 'Ajouter le code de gestionnaire d'événements Code = "Sub Macro_Beep()" & vbCrLf Code = Code & " Beep" & vbCrLf Code = Code & "End Sub" With .VBProject.VBComponents(NewSheet.CodeName).CodeModule NextLine = .CountOfLines + 1 .InsertLines NextLine, Code End With End With End Sub
Et maintenant ca marche.
Merci Mercatog.

Mais comment dois-je faire pour que le copier dans This Worbook pour en faire une commande d'AutoOpen ? (Private Sub Workbook_Open() )

Merci

Bon,
et bien finalement je suis arrivé a mes fins.
Je post ici mon résultat qui fonctionne si cela peut etre utile a quelqu'un

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub AddSheetAndButton()
Dim Code As String
Dim NextLine As Integer
 
  With ThisWorkbook
    Code = "Sub Macro_Beep()" & vbCrLf
    Code = Code & "    Beep" & vbCrLf
    Code = Code & "End Sub"
 
    With .VBProject.VBComponents("ThisWorkbook").CodeModule
      NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With
  End With
End Sub

et puis le meme en utilisant CreateEventProc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub AddSheetAndButton()
Dim Code As String
Dim NextLine As Integer
 
  With ThisWorkbook
    Code = Code & "    Beep" & vbCrLf
 
     With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
       NextLine = .CreateEventProc("Open", "Workbook")
       .InsertLines NextLine + 1, Code
     End With
  End With
End Sub

Mereci pour votre aide :ccool: