Bonjours à tous,
J'ai un petit soucis quand j'ouvre mon fichier au travail (Excel 97) alors que chez moi (Excel2003) il marche très bien...
Assez surprenant car au boulot ça marche une fois sur 3...
J'ai une erreur "AUTOMATION" qui s'affiche sur les macros de "Workbook_Open"
Des fois aucune erreur mais impossible d'enregistrer. Il me laisse un message en me disant " Dossier non enregistré" et c'est tout...
Suis un peut perdu.
Voila les macros que j'ai dans "Workbook_Open"
----------------------------------------------------------------------------------
Private Sub Workbook_Open()
AddIns("Utilitaire d'analyse").Installed = True
AddIns("Utilitaire d'analyse - VBA").Installed = True
ActiveWindow.DisplayZeros = False
Call NoCalcul
Application.DisplayFullScreen = True
End Sub
---------------------------------------------------------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("l9:l50")) Is Nothing Then
Load Donnees2
Donnees2.Show
Cancel = True
End If
End Sub
------------------------------------------------------------------------
Private Sub Workbook_SheetBeforerightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("k9:k44")) Is Nothing Then
Load semaine
semaine.Show
Cancel = True
End If
If Not Application.Intersect(Target, Range("l9:l50")) Is Nothing Then
Load Donneesgen
Donneesgen.Show
Cancel = True
End If
End Sub
--------------------------------------------------------------------------
Si quelqu'un voit un truc qui cloche ..... merci beaucoup
Seb
J'ai un petit soucis quand j'ouvre mon fichier au travail (Excel 97) alors que chez moi (Excel2003) il marche très bien...
Assez surprenant car au boulot ça marche une fois sur 3...
J'ai une erreur "AUTOMATION" qui s'affiche sur les macros de "Workbook_Open"
Des fois aucune erreur mais impossible d'enregistrer. Il me laisse un message en me disant " Dossier non enregistré" et c'est tout...
Suis un peut perdu.
Voila les macros que j'ai dans "Workbook_Open"
----------------------------------------------------------------------------------
Private Sub Workbook_Open()
AddIns("Utilitaire d'analyse").Installed = True
AddIns("Utilitaire d'analyse - VBA").Installed = True
ActiveWindow.DisplayZeros = False
Call NoCalcul
Application.DisplayFullScreen = True
End Sub
---------------------------------------------------------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("l9:l50")) Is Nothing Then
Load Donnees2
Donnees2.Show
Cancel = True
End If
End Sub
------------------------------------------------------------------------
Private Sub Workbook_SheetBeforerightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("k9:k44")) Is Nothing Then
Load semaine
semaine.Show
Cancel = True
End If
If Not Application.Intersect(Target, Range("l9:l50")) Is Nothing Then
Load Donneesgen
Donneesgen.Show
Cancel = True
End If
End Sub
--------------------------------------------------------------------------
Si quelqu'un voit un truc qui cloche ..... merci beaucoup
Seb