Bonjour tout le monde,

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