Discussion :

[Leilou65]

Bonjour à tous,

Je reviens vers vous car depuis hier je me bloque la tête sur un bug de ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub auto_open()
 
Dim bilan As Worksheet
 
Set bilan = Sheets("Niv de réal")
bilan.Select
 
If IsEmpty(bilan.Cells(1, 9)) = True Then
continuer = MsgBox("Merci de renseigner l'identité de votre caisse et les éléments de mutualisations avant de remplir ce document", vbOKCancel)
    If continuer = vbOK Then
    nom_caisse.Show
    End If
End If
 
End Sub

En effet je souhaite ouvrir le fichier mais en l'ouvrant j'ai un bug sur cette ligne avec l'erreur 1004 méthode sheets de l'objet_global a echoué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set bilan = Sheets("Niv de réal")

Si besoin je peux joindre le fichier.

Merci à vous tous pour votre aide.

Loumi.

[joe.levrai]

Bonjour,

il me semble que le classeur que tu ouvres ne deviens le classeur actif qu'à la fin de la procédure auto_open

tu peux tester deux pistes :

- préciser le nom du classeur devant ton objet Sheets (via le nom du classeur ou via Thisworkbook)
- déporter ce traitement dans une autre procédure qui se lancera après le Exit Sub du Auto_Open OU déporter le traitement dans une procédure dédiée (dans un module standard) que tu appelles depuis ton Auto_Open

[Leilou65]

Oui il doit m'ouvrir une boite de dialogue.
J'ai préciser le nom du classeur avec un thisworkbook mais j'ai eu le même problème.
Je vais donc tester la deuxième partie merci pour ton aide.

[antonysansh]

Bonjour,

Autre piste, remplacer la macro Auto_open par la macro évènementielle Workbook_Open la procédure étant stockée directement dans le code de l'objet ThisWorkbook le problème ne devrait plus exister.

Toute fois je dois avouer ne pas connaitre la différence en Workbook_Open dans ThisWorkbook et Auto_Open dans un module standard.

[joe.levrai]

Il y a pas mal de différences entre les deux.

Déjà, Auto_Open est plutôt conservé aujourd'hui pour des raisons de compatibilité avec les versions les plus anciennes d'excel.
Il fait partie de la catégorie des "Auto_Evt" tels Auto_Close, Auto_Deactivate... qui existaient avant la gestion évènementielle telle qu'on la connait aujourd'hui, du temps d'excel 97 et 2000 et même avant (Macro4) (je crois que c'est la version 2003 qui a provoqué l'évolution)

quelques différences :
- Auto_Open n'est pas affecté par Application.EnableEvents placé à False, contrairement à WorkBook_Open
- Workbook_Open s'exécute quand une classeur est ouvert par macro, contrairement à Auto_Open qui ne sera pas exécuté
- en cas d'utilisation des deux procédés, c'est Workbook_open qui passe en premier, ensuite c'est auto_open
- Workbook_Open est à placer dans le module Thisworkbook, Auto_Open est à placer dans un module standard
- Auto_open est muni d'une méthode "RunAutoMacros" (parenté à l'objet Workbook) pour l'appeler en dehors de son contexte classique

[Pierre Fauconnier]

Salut

[...]Toute fois je dois avouer ne pas connaitre la différence en Workbook_Open dans ThisWorkbook et Auto_Open dans un module standard.

Dans la chronologie des événements, Workbook_Open est détecté avant Auto_Open.

De plus:

• Workbook_Open est déclenché à l'ouverture du classeur, quelle que soit la méthode d'ouverture (manuelle ou par VBA);
• Auto_Open n'est déclenché que lors de l'ouverture manuelle. Ca permet à un classeur d'être ouvert par VBA sans déclencher le code à l'ouverture.

[EDI] Arggl... Coiffé par Joe [EDIT]

[antonysansh]

Je ne faisait que lire un poste en voulant y apporter une piste de réflexion et voila que j'apprends des choses. C'est cool !!!

Je crois que c'est pour ça que je passe autant de temps sur le forum de DVP.

@Joe.levrai @Pierre Fauconnier merci à vous deux

[Leilou65]

Merci à vous tous pour votre temps.
j'ai essayé plusieurs méthode mais je pense que mon fichier a vraiment un gros bug car je n'arrive même plus à l'ouvrir en neutralisant la macro.

[Invité]

bonjour,
c'est comme l'avion, tu ne peux en descendre qu’après 'arrêt complet de l'appareil!

ajoute un module standard à ton projet,place l'intégralité de ton code dedans en renommant ta sub!

Code Module1 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Subauto_open() 
Dim bilan As Worksheet
 
Set bilan = Sheets("Niv de réal")
bilan.Select
 
If IsEmpty(bilan.Cells(1, 9)) = True Then
continuer = MsgBox("Merci de renseigner l'identité de votre caisse et les éléments de mutualisations avant de remplir ce document", vbOKCancel)
    If continuer = vbOK Then
    nom_caisse.Show
    End If
End If
  EndSub

et enfin appel ta sub dans auto_open!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub auto_open()
Subauto_open
End Sub

je pense que c'est ce que voilait dire Joe!