Afficher des fichiers avec le formulaire

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Lone-wolf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Lone-wolf

Lone-wolf

XLDnaute Barbatruc
Bien le bonjour a ceux qui sont en ligne.

Suite aux divers liens que l'on m'a proposé, j'ai trouvé un formulaire qui permet d'afficher dans une ListBox tous les types de fichiers.

L'incovenient c'est que, au travers de celle-ci, on ne peu pas ouvrir les fichiers.
C'est ce que je recherche.

Vous voudriez bien regarder le classeur?

Merci beaucoup
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Afficher des fichiers avec le formulaire

Bonjour Lone-wolf, le forum,

L'une ou l'autre de ces 2 macros dans le code de l'UserForm :

Code: 
Private Sub ListBox1_[COLOR="red"]Click[/COLOR]() 'simple clic
SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
ThisWorkbook.FollowHyperlink ListBox1.List(ListBox1.ListIndex)
End Sub

Code: 
Private Sub ListBox1_[COLOR="Red"]DblClick[/COLOR](ByVal cancel As MSForms.ReturnBoolean) 'double-clic
SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
ThisWorkbook.FollowHyperlink ListBox1.List(ListBox1.ListIndex)
End Sub

La méthode FollowHyperlink permet d'ouvrir un fichier quelle que soit son extension.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Re,

Pour éviter de rouvrir Excel quand il s'agit d'un fichier Excel, utiliser plutôt :

Code: 
Private Sub ListBox1_Click() 'simple clic
Dim txt$
txt = ListBox1.List(ListBox1.ListIndex)
If txt Like "*xls" Or txt Like "*xlsx" Or txt Like "*xlsm" Then
  Workbooks.Open txt
Else
  SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
  ThisWorkbook.FollowHyperlink txt
End If
End Sub

Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'double-clic
Dim txt$
txt = ListBox1.List(ListBox1.ListIndex)
If txt Like "*xls" Or txt Like "*xlsx" Or txt Like "*xlsm" Then
  Workbooks.Open txt
Else
  SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
  ThisWorkbook.FollowHyperlink txt
End If
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Bonjour Job

Sur les deux codes il y a une flèche jaune qui s'affiche sur cette ligne

ThisWorkbook.FollowHyperlink ListBox1.List(ListBox1.ListIndex)


ThisWorkbook, ne fais pas référence au classeur?
 
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Re,

Bien sûr je n'ai pas ce problème sur Excel 2003 (je teste toujours mes codes)...

Alors essayez de remplacer ListBox1.List(ListBox1.ListIndex) par ListBox1.List(ListBox1.ListIndex, 0)

Et dites-nous.

Nota : ThisWorkbook c'est le classeur contenant la macro.

A+
 
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Re,

Essayez peut-être (dernière chance, après j'abandonne) :

Code: 
Private Sub ListBox1_Click() 'simple clic
Dim txt$
txt = [COLOR="Red"]TextBox1 & "\" &[/COLOR] ListBox1.List(ListBox1.ListIndex, 0)
If txt Like "*xls" Or txt Like "*xlsx" Or txt Like "*xlsm" Then
  Workbooks.Open txt
Else
  SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
  ThisWorkbook.FollowHyperlink txt
End If
End Sub

Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'double-clic
Dim txt$
txt = [COLOR="red"]TextBox1 & "\" &[/COLOR] ListBox1.List(ListBox1.ListIndex, 0)
If txt Like "*xls" Or txt Like "*xlsx" Or txt Like "*xlsm" Then
  Workbooks.Open txt
Else
  SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
  ThisWorkbook.FollowHyperlink txt
End If
End Sub

Pour répondre à votre question sur le type de fichier, j'ai écrit dans mon 1er post :

La méthode FollowHyperlink permet d'ouvrir un fichier quelle que soit son extension.
Cliquez pour agrandir...

A+
 
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Tout simplement génial!!! Chapeau bas.

Cette fois ça marche, essais avec fichiers doc et images.

Juste SendKeys à enlever, il affichais un o sur les documents Word.

Merci infiniment Job.

Je remet le classeur au cas ou...
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Re,

Juste une chose encore.

Si avant de cliquer dans la ListBox on modifie ou efface la TextBox, il y aura une erreur.

On peut alors écrire :

Code: 
Private Sub ListBox1_Click() 'simple clic
Dim txt$
[COLOR="Red"]On Error Resume Next[/COLOR]
txt = TextBox1 & "\" & ListBox1.List(ListBox1.ListIndex, 0)
If txt Like "*xls" Or txt Like "*xlsx" Or txt Like "*xlsm" Then
  Workbooks.Open txt
Else
  SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
  ThisWorkbook.FollowHyperlink txt
End If
[COLOR="red"]If Err Then MsgBox "Vous avez modifié la TextBox !"[/COLOR]
End Sub

Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'double-clic
Dim txt$
[COLOR="Red"]On Error Resume Next[/COLOR]
txt = TextBox1 & "\" & ListBox1.List(ListBox1.ListIndex, 0)
If txt Like "*xls" Or txt Like "*xlsx" Or txt Like "*xlsm" Then
  Workbooks.Open txt
Else
  SendKeys "o" 'ou "y" sur version anglaise, évite l'alerte...
  ThisWorkbook.FollowHyperlink txt
End If
[COLOR="red"]If Err Then MsgBox "Vous avez modifié la TextBox !"[/COLOR]
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Et bien, logiquement on ne vas pas cliquer dans la ListBox si il n'y à rien.

En test, j'ai ouvert le classeur contenant les fichiers .doc, sélectionné deux fichiers (un après l'autre bien entendu). Ensuite tout en gardant ceux-ci dans la List, j'ai ouvert un dossier contenant des images; il n'y a pas u de bugs.
 
Vote positif 0 Vote négatif
Re : Afficher des fichiers avec le formulaire

Merci de me venir en aide j'ai vu le fichier :
USF-Gestion-Base -de-données.xls
C’est super jusque ce qu'il me faut.
Il faudrait faire quelques modifications
à savoir mon fichier Excel contient 30 colonnes mais peut contenir 40 colonnes
et il est sur plus de 1500 lignes. Mon objectif est de pourvoir consulter les infos directement à l'écran sans jouer avec les ascenseurs horizontaux et faire des modifs comme ton fichier
Si tu peux modifier ce formulaire et m’expliquer comment tu as fait et comment le modifier ultérieurement
Cela ma sauverez la vie…
voici le lien :

https://www.excel-downloads.com/thr...nees-ajout-modif-supress-en-un-seul-usf.9541/
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
261
PHIL37
P
pompaero
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
dysorthographie
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
254
Redba13
R
A
  • Résolu(e)
XL 2016 Afficher des lignes qui contiennent un mot spécifique.
Réponses
4
Affichages
234
Al1_44
A
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
206
AtTheOne
AtTheOne
Armisa
  • Résolu(e)
XL 2016 Optimisation des fichiers Excel volumineux
Réponses
4
Affichages
337
Armisa
Armisa
jeff1494
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
943
jeff1494
jeff1494
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
690
Nel'
N
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
236
caseras
C
P
  • Résolu(e)
Microsoft 365 Afficher / masquer des shapes ou des groupes de shapes avec condition mini/maxi
2
Réponses
27
Affichages
1 K
pat66
P
oguruma
EXCEL :: Les cases à cocher - Nouveauté dans le menu Insertion - Exemple avec choix des colonnes à afficher :: V2
Réponses
0
Affichages
158
oguruma
oguruma
patricktoulon
  • Résolu(e)
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
42 43 44
Réponses
647
Affichages
10 K
patricktoulon
patricktoulon
patricktoulon
  • Question Question
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
Réponses
2
Affichages
112
patricktoulon
patricktoulon
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
294
JJ69
J
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
697
Corentin26270
C
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
720
Lyrix
L
Frederic14
  • Question Question
XL 2019 Tirage au sort avec nombre variable
Réponses
14
Affichages
716
Frederic14
Frederic14
B
  • Résolu(e)
XL 2013 Barre de progression.
Réponses
7
Affichages
896
fanfan38
fanfan38
Usine à gaz
  • Résolu(e)
XL 2021 Rechercher dans plusieurs fichiers
2
Réponses
18
Affichages
2 K
Usine à gaz
Usine à gaz
Le_Phénomène
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
3 4 5
Réponses
66
Affichages
3 K
Dudu2
Dudu2
Retour