C'est Re-moi
J'ai regardé cette xla "Dellinks.xla" ... c'est vrai que j'ai le même message que toi, suis sous WinME / XL2000.
J'essaie de comprendre... Pourtant c'est du MS... et ils disent bien dans la Base de connaissances
XL: Delete Links Wizard Available que c'est OK pour XL2000 et même 97
Voici la macro qui plante :
==================================================================
Public BAsstMsg, SmryBookNme, OpenBook_Name, DNLmsg, GetDNLName, GetChartName, GetQryName, GetObjName, ChtCode, DNLName, DNLRefTo, OnAct, OnForm, HLKA, HLKSA, HyperMsg, NFRM As String
Public StopProcess, FL, HNL, DNL, CL, MQL, OL, FLflag, DNLflag, HNLflag, CHTflag, ECHTFlag, QLflag, OLflag, SelAllFlag, ObjErrFlag, OBERR, ChtTitleFlag As Boolean
Public MyArray(), Selected_LinksArray(), Delete_Array()
Public FS, Bmyballoon, BHelpBln1, BHelpBln2, BHelpBln3, BHelpBln4, Defined_NameLink, SmryBK As Object
Public I, II, Z, SS, HelpFlag, Menuflag, EndFlag, BookCnt, Times, FormulaLnkFound, response, CntCbox As Integer
Public Link_Array
Public EndRange
' FS as Obj -- SpaceSheet as String
Sub Aut
pen()
On Error GoTo SkipMenu
Menuflag = 0
Dim AddWizSubItem As Object
Set AddWizSubItem = CommandBars("Worksheet menu bar").Controls("Tools")
For Each X In AddWizSubItem.Controls
If X.Caption = "&Wizard" Then
Menuflag = 1
End If
Next X
If Not Menuflag = 1 Then
AddWizSubItem.Controls.Add(Type:=msoControlPopup).Caption = _
"&Wizard"
End If
With AddWizSubItem.Controls("Wizard")
.Controls.Add(Type:=msoControlButton).Caption = "Delete Links..."
.Controls("Delete Links...").OnAction = "StartDeleteLinkWiz"
End With
Exit Sub
SkipMenu:
MsgBox "Routine Location Error Code: 1" & Chr(10) & "Please record this error code."
End
End Sub
==================================================================
Le message vient d'une erreur pour l'établissement de barre de menus.
Je regarde un peu, il est possible que ça ne tourne pas sur les version FR ... une première idée non vérifiée...
Si Ti ou STéphane passe par là ...
@+Thierry
