Bonjour a tous,
J'ai récemment modifié un fichier excel avec des macros et je rencontre le message suivant car j'ai instauré un beug dans la macro en integrant une nouvelle page dans mon fichier excel.
Erreur d'exécution '1004'
Voici le descriptif de VBA
'-----Jalons
ElseIf Left(strDummy, Len(DebutNomJalon)) = DebutNomJalon Then
On Error GoTo NomSuivant
Set RefersToRangeDummy =ThisWorkbook.Namesi).RefersToRange On Error GoTo 0
Set MyControl = myBar.Controls(MenuJalon).Controls.Add(Type:=msoControlButton)
With MyControl
.Caption = Worksheets(SheetName_Parametrage).Cells(RefersToRangeDummy.Row, RefersToRangeDummy.Column - iOffsetLangue).Value
.Tag = strDummy
.OnAction = "TraiteJalon"
.Style = msoButtonCaption
End With
Le problème se situe à la ligne
Set RefersToRangeDummy =ThisWorkbook.Namesi).RefersToRange
Merci de votre aide.