pourquoi ne marche plus

[jean32]

Bonjour,

Quelqu'un pourrait il me dire pourquoi la listbox n' affiche plus les fichiers du répertoire.
Cette petite application a été créée avec excel 2000 sous xp, maintenant win7 et excel 2013.
Je vous joint une partie du fichier.
Merci de vos réponse et éventuellement une solution
Merci à tous

Jean

 

[herve62]

Bonjour
Il semble bizarre que ce fichier fonctionnait ?
Sinon pour créer ta liste de fichier dans ta Listbox cela serait mieux :

Private Sub UserForm_Initialize()
'PasDeCroix Me
Dim thisbookpath As String
Dim cherchefichier As FileSearch
Dim i As Integer
On Error Resume Next

chemin = "c:\DATA\essai\"             ' REMETTRE le chemin
Direction = Dir(chemin & "\*.xls")

Do While Len(Direction) > 0
ListBox1.AddItem Direction
Direction = Dir()
Loop
End Sub

enfin j'ai testé cela fonctionne

 

[jean32]

Re Bonjour,
Merci de la réponse, mais oui le fichier marchait super bien, à l' affichage du contenu du dossier, un DoubleClic sur un classeur et celui ci s'ouvrais sans problème, je croix que excel 2013 ne supporte pas certaine commande d' office 2000, la preuve en est que à la fin de la macro il y a un message qui ne s' affiche pas, donc la macro s' arrête en cour de fonction.
Tu me dis qu' il te semble bizarre que ce fichier marchait, a ton avis pourquoi cette commande ne peut pas marcher.
J' ai testé ta solution cela marche mais impossible d' ouvrir le fichier.
A+
Jean

 

[Chris24]

Bonsoir jean32

Application.FileSearch n'est plus pris en charge par VBA depuis version 2007

Cdt

 

[jean32]

Bonjour Chris24,
Je me doutais bien qu' il s' agissait d' une erreur du VBA, y aurrait il moyen de contourner cela tout en gardant la même structure de code.
Bonne journée
jean

 

[Chris24]

Bonjour

Une piste
https://www.excel-downloads.com/threads/nouveau-code-pour-application-filesearch.153773/

 

[herve62]

Bonjour
Je viens donc de mettre le code dans ton fichier : tout fonctionne , pas besoin de compliquer c'est le résultat qui compte
Remet ton chemin pour chez toi

 

[VIARD]

Bonjour
Je viens donc de mettre le code dans ton fichier : tout fonctionne , pas besoin de compliquer c'est le résultat qui compte
Remet ton chemin pour chez toi

Bonjour Jean, Chris, Hervé et à toutes et tous

Voici ma version sans l'affichage
Chemin adapté.

A+ Jean-Paul

 

[VIARD]

Bonjour Jean, Chris, Hervé et à toutes et tous

Voici ma version sans l'affichage
Chemin adapté.

A+ Jean-Paul

Bonjour Jean, Chris, Hervé

Il y a quelques années j'ai été confronté à ce problème (Application.FileSearch)
Et pour être sur d'avoir la bonne extension.
voici le fichier revisité.

A+ Jean-Paul

 

[jean32]

Boujour à tous,
Je viens de tester vos fichiers, tous sont très bien, mais avec toutefois un petit couac, les fichiers de VIARD n' ouvrent pas les fichiers sélectionné par contre celui de HERVE62 ouvre bien les fichiers sélectionné, mais quand le code est intégré dans mon application il se produit l' erreur suivante

Une petite solution et c' est parfait.
En tous cas un grand merçi de votre aide car je n' y connais plus grand chose depuis toute ces années
jean

 

[herve62]

Bonsoir
Oui normal , tu as un Option Explicit en tête je crois ? donc tu dois déclarer Direction
Dim direction as variant
cela doit être Ok !
sinon , un peu plus complexe celui de Viard est correct , il faut que tu rajoutes ma Sub listbox1_dblclick

 

[VIARD]

Bonsoir
Oui normal , tu as un Option Explicit en tête je crois ? donc tu dois déclarer Direction
Dim direction as variant
cela doit être Ok !
sinon , un peu plus complexe celui de Viard est correct , il faut que tu rajoutes ma Sub listbox1_dblclick

Bonjour Jean, Chris, Hervé

J'ai repris et légèrement modifié le module DblClick d'Hervé qui fonctionne très bien.
Le fichier modifié.

A+ Jean-Paul

 

[jean32]

Re bonsoir,
Je vient de mettre à jour mon application et cela marche bien maintenant, en tous cas je remercie tous les intervenant de ce fil, vous êtes supper.
Encore un grand merçi
Jean

 

[VIARD]

Re bonsoir,
Je vient de mettre à jour mon application et cela marche bien maintenant, en tous cas je remercie tous les intervenant de ce fil, vous êtes supper.
Encore un grand merçi
Jean

Bonjour Jean, Chris, Hervé et à toutes et tous

J'ai rebricolé le fichier pour le rendre plus propre.
dernière version.

Salutation
Jean-Paul

 

[jean32]

Re bonsoir à vous tous,
J' ai pris la dernière version qui marche bien comme les autres d' ailleurs, mais après réflection, car j' ai en fait trois répertoire a afficher, et je me demande pour gagner en lourdeur de fichier si cela ne serait pas plus simple de se servir du multipage, au lieu d' avoir 3 userform je n' en aurais plus qu'un seul. Est il possible de faire cela?

Merci à vous tous et une bonne soirée
Jean