Utilisation de boites de dialogues Microsoft
Dans des modules VBA adossés à des feuille de calcul Excel, je voudrait faire appel à la boite de dialogue "Ouvrir un fichier" de Microsoft Windows, mais dans l'onglet outils de la barre de menu du module "développeur", l'option "contrôles supplémentaires" n'est pas actif et ne me permet pas d'appeler des membres de la Bbibliothèque ,Microsoft Common Dialog Control 6.0
Bonjour,
cette possibilité semble désormais sous cette icône :
A+
Bonjour à tous,
je suis toujours passé par un clic droit sur la boite à outils où ce choix est présent.
eric
EDIT : mais pour appeler les boites de dialogues tu n'as pas à passer par la boite à outils :
Dim nomfich As Variant
nomfich = Application.GetOpenFilenamet'ouvre la boite de sélection de fichier, plus qu'à tester si un fichier a bien été choisi et l'ouvrir (ou en faire ce que tu veux)
If nomfich = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & nomfichRegarde l'aide sur GetOpenFilename, des paramètres peuvent t'intéresser
Par exemple un flitre :
nomfich = Application.GetOpenFilename("Feuilles de calcul (*.xlsx),*.xlsx")Merci, fonctionnement parfait