Discussion :

[Miaou1978]

Bonjour,

Je débute complètement en Visual Basic avec Office 2016. J'ai regardé pleins de sujets identiques et pourtant, je ne trouve pas ce que je fais de mal. J'ai réduit mon code à l'extrême pour simplifier. Et quand je le lance, j'ai l'"erreur d'exécution 91: Variable objet ou variable de bloc With non définie" sur la ligne Boite.Show qui est en gras.

Est-ce qu'une bonne âme pourrait m'aider s'il vous plaît?

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton2_Cliquer()

Dim Boite As FileDialog

Set Boite = Application.FileDialog(msoFileDialogFolderPicker)
Boite.Show

End Sub

[Philippe Tulliez]

Bonjour,
Pour répondre, il faudrait en savoir plus.
Où se trouve la procédure nommée Bouton2_Cliquer
Le bouton est-il un bouton formulaire, un bouton Activex sur une feuille ou encore un bouton dans un UserForm

[Miaou1978]

Il s'agit d'un simple bouton dans une feuille de calcul Excel.

[Menhir]

Essaye de déclarer ta variable en Object.

Ou faire plus simple :

Code :

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

1
2
3
4
Dim Boite As Long
 
Boite = msoFileDialogFolderPicker
Application.FileDialog(Boite).Show

[Miaou1978]

Merci pour ta réponse.
Mais j'ai exactement le même message d'erreur avec.

[Philippe Tulliez]

Bonjour,

Il s'agit d'un simple bouton dans une feuille de calcul Excel.

Comme je l'ai écrit, il y a deux sortes de boutons que l'on peut dessiner sur une feuille. Le bouton formulaire et le bouton ActiveX
Le premier est lié à une procédure Sub placée dans un module alors que le second est lié à une procédure événementielle NomDuBouton_Click placée dans la feuille parente d'où mes questions.

J'ai essayé le code publié avec un ActiveX (CommandButton) et cela fonctionne parfaitement sauf évidemment que le nom de la procédure n'est pas correct si c'est un ActiveX

Sans une réponse précise aux questions posées, il est impossible d'apporter une réponse pertinente

[Miaou1978]

Merci pour vos réponses.

Effectivement, ma réponse n'était pas très précise. J'ai fait un bouton formulaire. Je ne sais pas comment faire un bouton ActiveX, je vais regarder.

Néanmoins, je suis étonné que mon code ne fonctionne pas dans un bouton formulaire.

[Philippe Tulliez]

Bonjour,l

Néanmoins, je suis étonné que mon code ne fonctionne pas dans un bouton formulaire.

Moi de même
J'ai refait un test avec la même procédure nommée Bouton2_Cliquer placée dans le module feuille et dans un module standard avec un bouton formulaire et tout fonctionne parfaitement.
Tests effectués avec Excel 2010 et Excel sur Office 365

Ce qui m'interpelle, c'est le message "j'ai l'"erreur d'exécution 91: Variable objet ou variable de bloc With non définie" sur la ligne Boite.Show" signalé à l'ouverture de la discussion

N'ayant aucun bloc With..End With, je me pose la question "Ce message apparaît-il avec le code publié ?"

[Miaou1978]

Oui c'est le seul code que j'ai.

De ce que j'en ai compris le message concerne 2 situations, soit une variable objet soit une variable de bloc With.

Etant donné que le code est très simple, et qu'il ne comporte pas d'erreur a priori, je me demandais s'il n'y avait pas un problème de version ou une librairie non installée...

[Philippe Tulliez]

Bonjour,
Comme je l'ai écrit dans le code publié, il n'y a pas de bloc With...End With et la variable objet Boite est bien déclarée et correctement typée donc je ne vois pas de raison à ce message mais comme vous avez écrit "J'ai réduit mon code à l'extrême pour simplifier", je voulais être certain que le message apparaissait bien avec ce code simplifié et donc publié.

N'y auratt-il pas un module ou une procédure nommée Boite ?
Avez-vous compiler le programme (Commande Compiler le projet VBA du menu [Débogage] de l'éditeur VBA (VBE)) pour vérifier les erreurs signalées

[Miaou1978]

Merci pour votre aide. Je suis désolé que ça ne soit pas plus concluant.

A priori, pas d'autre élément nommé Boite. J'ai essayé en changeant le nom de ma variable. La compilation fonctionne sans erreur.

En passant pas à pas dans le programme, il s'avère que la fonction Application.FileDialog(msoFileDialogFolderPicker) renvoie Nothing.

J'ai pourtant bien en référence la libraire d'objet Excel...

[pijaku]

Bonjour,

Mac ou pc?

[Menhir]

De ce que j'en ai compris le message concerne 2 situations, soit une variable objet soit une variable de bloc With.

C'est plus compliqué que ça.
En gros, VBA sort cette erreur lorsqu'il ne reconnait pas quelque chose utilisé comme un objet.
C'est une erreur très chiante à solutionner parce que ça peut être à peu près n'importe quoi.

L'option Explicit, en obligeant les déclaration et donc vérifiant les fautes d'orthographe sur les noms de variables, permet de limiter l'apparition de ce type d'erreur.

[Miaou1978]

Effectivement, j'ai oublié de précise que je suis sur Mac.

[Philippe Tulliez]

Bonjour,

Effectivement, j'ai oublié de précise que je suis sur Mac.

Quand on pose une question sur VBA et que l'on travaille sur MAC, c'est important de le préciser car il y des objets que l'on ne sait pas manipuler sur MAC
Voir le site de Ron de Bruin Select Folder with VBA/Macscript in Mac Office

[Miaou1978]

Wahou. Ca marche!

Merci beaucoup! En particulier à Philippe Tulliez. Vraiment désolé de ne pas vous avoir précisé au départ que j'étais sur Mac.