Discussion :

[Zebulon777]

Salut les amis,

bon, je suis entrain de devenir de plus en plus fou !

Nous avons un grand nombre de fichiers Excel 2003 avec un macro qui s'exécute automatiquement à l'ouverture du classeur, mais nous devons passer le tout sous Excel 2010 et là, c'est le drame !

A chaque fois j'ai l'erreur "Erreur d'exécution 91 : Variable objet ou variable de bloc With non définie" sur l'instruction "ActiveWorkbook.Sheets("COMMENTAIRES").Select" ???

Je ne comprends du tout ce qui provoque ça.

J'ai bien créé le fonction Workboook_Open dans ThisWorkbook

Code Excel :

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

1
2
3
4
 
Private Sub Workbook_Open()
    Auto_Open
End Sub

Et dans le module1, il y a :

Code Excel :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Auto_Open()
    Call Ouverture_Form
End Sub
 
Sub Ouverture_Form()
    Call Initialisation
 
    If G_SUITE Then
        FORM_ChgFic_QFU_LFPB.Lib_Machine = G_MACHINE
        FORM_ChgFic_QFU_LFPB.Show (0) '0 pour ne pas avoir de MODAL
        FORM_ChgFic_QFU_LFPB.C_Annee.SetFocus
    End If
End Sub

La procédure Initialisation est dans un autre module que j'ai appelé "FONCTIONS_COMMUNES"

Code :

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

1
2
3
4
5
Sub Initialisation()

    ActiveWorkbook.Sheets("COMMENTAIRES").Select
    WLigVersion = 47 'LIGNE DU MOT "HISTORIQUE"

L'erreur se produit donc sur la ligne rouge.

Merci d'avance pour votre aide si précieuse...

[Daniel.C]

Bonjour,

Il y a paut être confusion quand tu mets "Auto_Open" dans "Workbook_Open", ces deux macros s'exécutant automatiquement à l'ouverture.
Mets plutôt :

Private Sub Workbook_Open()
Ouverture_Form
End Sub
et :

Code :

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

1
2
3
Sub Initialisation()
 
    ThisWorkbook.Sheets("COMMENTAIRES").Select

[Gado2600]

Bonjour,

Utilises plutôt une instruction avec le CodeName de ta sheet "Commentaires" et un "Activate" plutôt qu'un "Select".

Le CodeName est le nom qui apparait dans la liste des objets Excel dans la partie développeur.

Tu aurais plutôt :

Code :

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

1
2
3
Commentaires.activate
'ou
Feuil1.activate ' Si tu n'as pas modifié le codename

(Fonctionne sous 2013)

Cordialement,

[Daniel.C]

Bonjour,

@ Gado2600 : Quelle différence fais-tu entre "Select" et "Activate" quand il s'agit d'une feuille ?

[Zebulon777]

Bon, j'ai suivi vos 2 recommandation sans plus de succès.

Maintenant, j'ai une erreur "Erreur d'exécution 424 : Objet requis" sur "COMMENTAIRES.Activate"

et si je mets : "ThisWorkbook.Sheets("COMMENTAIRES").Select", j'ai l'erreur ""Erreur d'exécution 1004 : La méthode Select de la classe Worksheet a échoué"

Boudiou d'boudiou d'boudiou, je vais craquer

[Daniel.C]

Enlève le "ThisWorkbook" à tout hasard :

Code :

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

Sheets("COMMENTAIRES").Select

[Zebulon777]

Même résultat...

J'en perds mes cheveux... lol

[Daniel.C]

Est-ce que tu peux mettre ton classeur en pièce jointe, même sans données ?

[Zebulon777]

Voila...
Et merci d'avance pour ton aide et surtout ta patience

[Daniel.C]

Ca fonctionne, ici. le code plante plus loin normalement dans la macro "Supp_LOGetALERTE".

Peut-être, dans ton classeur, la feuille est-elle masquée? Sinon, redémarre ton ordi. On est souvent surpris...

[Zebulon777]

Rien à faire !
Ca fonctionne avec Excel 2003 mais pas du tout avec Excel 2010 !

Pour info, comme j'ai les 2 excel sur ma machine, je lance Excel 2010 et je double-clique sur le fichier XLS pour l'exécuter.

Je ne sais plus du tout quoi faire...

[Daniel.C]

J'ai également ces deux versions sur mon ordi. Essaie de démarrer le classeur avec Fichier, Ouvrir.

[Gado2600]

@ Gado2600 : Quelle différence fais-tu entre "Select" et "Activate" quand il s'agit d'une feuille ?

Bonjour,

Le select est plus pour la sélection de l'objet alors que l'activate va afficher l'objet.
Tout dépend de l'utilité que tu as derrière mais j'ai pensé à cela de suite car à l'ouverture d'un fichier Excel, je ne vois pas à quoi servirait de sélectionner une sheet (il y a peut-être une raison, je ne sais pas) car, pour moi, sur une sheet, on ne peut que l'activer, la copier, la supprimer, la dupliquer, la renommer ou la changer de place. Dans tous ces cas, la sélection de celle-ci n'est pas forcément utile. Mais, il y a peut être une autre raison.

Cordialement,

[Daniel.C]

A mon ses, la seule différence que je peux voir est que "Select" permet de sélectionner plusieurs objets et que "Activate" rend actif l'un de ces éléments ("Activecell" ou "Activesheet" par exemple). Si un seul objet est concerné, les deux méthodes sont, sauf erreur, équivalentes.