Erreur 400 macro VBA

[mariaunaud35]

Bonjour à tous,

J'ai essayé de modifier une macro qui fonctionnait très bien et depuis le message "Erreur 400" apparait.

Je n'arrive pas à trouver d'où vient l'erreur surtout que quand je force la lecture de la macro l'action est parfaitement exéctuée.

Si quelqu'un a un peu de temps pour regarder...

Merci d'avance.

Voivi le code pour ceux qui n'ouvrent pas les fichiers de n'importe qui:

Private Sub ListBox1_Click()
Dim WS As Worksheet

For Each WS In Sheets
If WS.Name = Me.ListBox1 Then
MsgBox "Procédure annulée Feuille " & WS.Name & " Existante !", vbCritical, "Alert !!!"
Exit Sub
End If
Next

Sheets("Matrix").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Me.ListBox1
End Sub

Sub Feuille()
'
' Feuille Macro
' Création des feuilles agents
'
' Touche de raccourci du clavier: Ctrl+Maj+Q
'

Set ListF = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each WS In Sheets
ListF(WS.Name) = WS.Name
Next WS
For Each c In Sheets("Liste").Range("A2:A" & Sheets("Liste").Range("A18").End(xlUp).Row)
If ListF.exists(c.Value) Then msg = "La feuille " & c.Value & " existe déjà!": Exit For
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = c.Value
ListF(c.Value) = c.Value
Sheets(c.Value).[H1] = c.Offset(0, 2).Value
Sheets(c.Value).[O1] = c.Offset(0, 3).Value
Sheets(c.Value).[AL1] = c.Offset(0, 4).Value
Sheets(c.Value).[A1] = c.Offset(0, 0).Value & " " & c.Offset(0, 1).Value
Sheets(c.Value).[I49] = c.Offset(0, 5).Value
Sheets(c.Value).[I50] = c.Offset(0, 6).Value
Sheets(c.Value).[I51] = c.Offset(0, 7).Value
Sheets(c.Value).[I52] = c.Offset(0, 8).Value
Sheets(c.Value).[I53] = c.Offset(0, 9).Value
Sheets(c.Value).[I54] = c.Offset(0, 10).Value
Sheets(c.Value).[I55] = c.Offset(0, 11).Value
Next c
Set ListF = Nothing
Application.ScreenUpdating = True
If msg <> "" Then MsgBox msg
End Sub

 

[Staple1600]

Re : Erreur 400 macro VBA

Bonjour


C'est normal, tu as ce code VBA

Sheets("Matrix").Copy After:=Sheets(Sheets.Count)

mais il n'y a plus de feuille Matrix sur ta PJ

 

[mariaunaud35]

Re : Erreur 400 macro VBA

Effectivement! J'ai renommé la feuille et je pensais avoir modifié tous les "matrix" en "liste"...
Merci pour le coup d'oeil neuf!
Du coup ça fonctionne bien mieux!
Encore merci!