Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Simulateur de l'explorateur Windowss

Simulateur de l'explorateur Windowss

3 réponses
Avatar
ManBas
Bonjour à tous,
J'ai besoin d'un "explorateur" pour choisir des photos et les charger dans
un userform.
Dans Excelabo l'astuce 1259 plante à la première ligne avec une erreur de
compilation sur le terme FileDialog. Je ne peux donc pas l'essayer pour voir
si elle pourrait répondre à mes attentes.
L'auteur précise qu'elle a été rédigée avec officeXP et ma version est
office2000.
Que me conseillez-vous?
Merci d'avance.

Sub test()
Dim Dlg As FileDialog
Dim i As Integer

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

MsgBox Dlg.SelectedItems(1)
End sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonsoir,


http://cjoint.com/?gjwitFYafH


LSteph

"ManBas" a écrit dans le message de news:
esNEfF$
Bonjour à tous,
J'ai besoin d'un "explorateur" pour choisir des photos et les charger dans
un userform.
Dans Excelabo l'astuce 1259 plante à la première ligne avec une erreur de
compilation sur le terme FileDialog. Je ne peux donc pas l'essayer pour
voir si elle pourrait répondre à mes attentes.
L'auteur précise qu'elle a été rédigée avec officeXP et ma version est
office2000.
Que me conseillez-vous?
Merci d'avance.

Sub test()
Dim Dlg As FileDialog
Dim i As Integer

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

MsgBox Dlg.SelectedItems(1)
End sub



Avatar
lSteph
... oupss quel malchance ce n'est pas la bonne version , mais tu vas
adapter, j'en suis sûr
ou cela peut te donner une idée
....

a+
;-))

"lSteph" a écrit dans le message de news:

Bonsoir,


http://cjoint.com/?gjwitFYafH


LSteph

"ManBas" a écrit dans le message de news:
esNEfF$
Bonjour à tous,
J'ai besoin d'un "explorateur" pour choisir des photos et les charger
dans un userform.
Dans Excelabo l'astuce 1259 plante à la première ligne avec une erreur de
compilation sur le terme FileDialog. Je ne peux donc pas l'essayer pour
voir si elle pourrait répondre à mes attentes.
L'auteur précise qu'elle a été rédigée avec officeXP et ma version est
office2000.
Que me conseillez-vous?
Merci d'avance.

Sub test()
Dim Dlg As FileDialog
Dim i As Integer

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

MsgBox Dlg.SelectedItems(1)
End sub







Avatar
ManBas
Merci infiniment LSteph: je pense qu'avec ça je vais obtenir ce que je veux.
A bientôt.


"lSteph" a écrit dans le message de news:

... oupss quel malchance ce n'est pas la bonne version , mais tu vas
adapter, j'en suis sûr
ou cela peut te donner une idée
....

a+
;-))

"lSteph" a écrit dans le message de news:

Bonsoir,


http://cjoint.com/?gjwitFYafH


LSteph

"ManBas" a écrit dans le message de news:
esNEfF$
Bonjour à tous,
J'ai besoin d'un "explorateur" pour choisir des photos et les charger
dans un userform.
Dans Excelabo l'astuce 1259 plante à la première ligne avec une erreur
de compilation sur le terme FileDialog. Je ne peux donc pas l'essayer
pour voir si elle pourrait répondre à mes attentes.
L'auteur précise qu'elle a été rédigée avec officeXP et ma version est
office2000.
Que me conseillez-vous?
Merci d'avance.

Sub test()
Dim Dlg As FileDialog
Dim i As Integer

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

MsgBox Dlg.SelectedItems(1)
End sub