Fonction recherche un fichier automatiquement
Résolu
Bro
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Fonction recherche un fichier automatiquement
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Fonction si et - Guide
9 réponses
Bonjour,
J'ai fait cela, voir si cela convient!
La seul contrainte il faut le nom du fichier avec son extension
http://www.cjoint.com/data3/3KgsMJ3jCTj.htm
J'ai fait cela, voir si cela convient!
La seul contrainte il faut le nom du fichier avec son extension
http://www.cjoint.com/data3/3KgsMJ3jCTj.htm
Bonjour,
un essai : https://www.cjoint.com/c/DKgvDzX3nIT
Dès qu'un nom de fichier est satisfaisant la recherche s'arrête et passe au mot suivant.
Les autres occurrences ne sont pas recherchées. Si pas ça, mettre une chaine plus précise.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
un essai : https://www.cjoint.com/c/DKgvDzX3nIT
Dès qu'un nom de fichier est satisfaisant la recherche s'arrête et passe au mot suivant.
Les autres occurrences ne sont pas recherchées. Si pas ça, mettre une chaine plus précise.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Bonjour,
Mais après plusieurs tests, je n'arrive à avoir que le lien pour le premier nom (cellule A2).
Pas chez moi.
Attention qu'il ne reconnait pas les répertoires virtuels. Par exemples remplacer Utilisateurs par Users
De plus il faut avoir les droits pour lire le répertoire sinon il est sauté.
De plus je n'arrive pas à élargir la ressources (rechercher directement à la racine C\)
Je veux bien voir pour modifier mais la recherche sera très longue, tous les sous-répertoires, même ceux inutiles, seront explorés.
Tu as combien de noms à rechercher ?
eric
Mais après plusieurs tests, je n'arrive à avoir que le lien pour le premier nom (cellule A2).
Pas chez moi.
Attention qu'il ne reconnait pas les répertoires virtuels. Par exemples remplacer Utilisateurs par Users
De plus il faut avoir les droits pour lire le répertoire sinon il est sauté.
De plus je n'arrive pas à élargir la ressources (rechercher directement à la racine C\)
Je veux bien voir pour modifier mais la recherche sera très longue, tous les sous-répertoires, même ceux inutiles, seront explorés.
Tu as combien de noms à rechercher ?
eric
Bonjour,
Pour les répertoires, j'ai bien vérifié qu'ils ne sont pas pas protégés.
En test j'ai déplacé des fichiers à retrouver par excel dans un même dossier et rien a faire, c'est comme si la boucle ne se faisait pas sur la colonne A (seul le premier s'affiche).
J'ai environ 800 lignes, donc 800 noms a retrouver dans un dossier qui pourra être n'importe où sur le disque C des différentes personnes qui utiliseront ce fichier.
Pour les répertoires, j'ai bien vérifié qu'ils ne sont pas pas protégés.
En test j'ai déplacé des fichiers à retrouver par excel dans un même dossier et rien a faire, c'est comme si la boucle ne se faisait pas sur la colonne A (seul le premier s'affiche).
J'ai environ 800 lignes, donc 800 noms a retrouver dans un dossier qui pourra être n'importe où sur le disque C des différentes personnes qui utiliseront ce fichier.
Bonjour,
Version grandement améliorée.
Les répertoires ne sont parcourus plus qu'une fois alors qu'ils l'étaient pour chaque nom auparavant.
Et des dizaines de milliers de répertoires inutiles à parcourir en moins.
A tester : https://www.cjoint.com/c/DKjrlFeD8XI
eric
Version grandement améliorée.
Les répertoires ne sont parcourus plus qu'une fois alors qu'ils l'étaient pour chaque nom auparavant.
Et des dizaines de milliers de répertoires inutiles à parcourir en moins.
A tester : https://www.cjoint.com/c/DKjrlFeD8XI
eric
Bonsoir Bro, bonsoir le forum,
Ta recherche se fait sur tous les fichiers ou uniquement les fichiers Excel (ou autre) ?
Ta recherche se fait sur tous les fichiers ou uniquement les fichiers Excel (ou autre) ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Bro, bonjour le forum,
je pensais te proposer une solution rapidement mais j'ai surestimé mes compétences. Pour le moment je m'y casse les dents et n'y arrive pas... Désolé
je pensais te proposer une solution rapidement mais j'ai surestimé mes compétences. Pour le moment je m'y casse les dents et n'y arrive pas... Désolé
Bonjour tout le monde,
Je me permet un petit up car j'en ai besoin pour le boulot.
Merci d'avance à ceux qui pourront m'aider.
Je me permet un petit up car j'en ai besoin pour le boulot.
Merci d'avance à ceux qui pourront m'aider.
N'attends pas de réponse... Pas d'accord Raymond ! C'est je crois faisable. Le problème est d'aller dans tous les sous-dossiers de chaque dossier/sous-dossier. j'ai bataillé et n'y suis pas arrivé parce que je suis une bille en VBA mais je pense qu'un expert devrait résoudre ça en quelques ligne de code.
Bro, as tu posté sur d'autres forums ?
Bro, as tu posté sur d'autres forums ?
Cela ouvre une boite de dialogue de choix de fichiers, a mettre dans la feuille concernée:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Ouverture
End Sub
Private Sub Ouverture()
Dim chemindossier, VoirDossier, DossierChoisi
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = CurDir()
.Show
If .SelectedItems.Count > 0 Then
chemindossier = .SelectedItems(1)
ChDir chemindossier
Else
chemindossier = ""
End If
End With
Else
DossierChoisi = VoirDossier("Choisir le dossier")
If DossierChoisi <> "" Then
chemindossier = DossierChoisi
ChDir DossierChoisi
End If
End If
End Sub
De plus je ne connais pas l'extension du fichier à l'avance.
J'en profite pour précisé, que je ne souhaite pas ouvrir le fichier, juste avoir la fenêtre avec la recherche du fichier
http://www.cjoint.com/data3/3Khj5yQ5Qfp.htm
Je n'ai pu tester ta solution car il me remonte une erreur:
"Erreur de compilation:
Le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur les systèmes 64 bits. Vérifiez et mettez à jour les instructions Declare, puis marquez-les avec l'attribut PtrSafe."