un internaute
XLDnaute Impliqué
Bonjour le forum,
J'ai dans ThisWorkbook 2 fois la macro ci-dessous:
Pour faire revenir en cellule A1 à l'enregistrement
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1].Select
End Sub
Et une 2ème fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
ThisWorkbook.VBProject.References _
.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 0
End Sub
Et ça "gueule" évidemment.
J'ai mis en commentaires la 2ème macro donc ça va.
Y a t-il une solution pour ce genre de problème?
Merci à vous pour vos éventuels retours
J'ai dans ThisWorkbook 2 fois la macro ci-dessous:
Pour faire revenir en cellule A1 à l'enregistrement
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1].Select
End Sub
Et une 2ème fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
ThisWorkbook.VBProject.References _
.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 0
End Sub
Et ça "gueule" évidemment.
J'ai mis en commentaires la 2ème macro donc ça va.
Y a t-il une solution pour ce genre de problème?
Merci à vous pour vos éventuels retours