Discussion :

[alexandrefcsm]

Bonjour,

Je n'arrive pas à utliser la synthaxe de l'étoile dans mon fichier.

Je fais une macro pour ouvrir un fichier PDF : je l'ai testé avec un nom fixe, c'est OK

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe W:\Liste_de_fichier\16_20976\result\20976RA1014b_Noise.pdf", vbNormalFocus 'path & way

Mais après j'aurai besoin de que le début soit mis nom pas en variable mais en "n'importe quoi" je ne connaitrais que la fin du fichier. (j'ai essayé la méthode de l'étoile mais sans grand succès)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe W:\Liste_de_fichier\16_20976\result\*_Noise.pdf", vbNormalFocus 'path & way

J'ai regardé sur internet et des forums, je n'ai pas trouvè tutoriel et ce que j'ai fait n'a pas fonctionné...

Je vous remercie d'avance

[Nodens_swiss]

Hello
Tu ne peux pas utiliser *.
Il te faut le chemin exact.
Regarde ce poste :
http://www.developpez.net/forums/d15...f/#post8669980
J’y ai indiqué comment utiliser le boite de dialogue « FileDialog » et comment agir sur le filtre pour n’obtenir que les fichiers pdf et rechercher tous ceux contenant un terme.

[Marc-L]

Bonjour,

rappel :

Important : Éditorial - à lire avant de poster


Sinon un fichier ne peut-être ouvert qu'à partir de son chemin et de son nom complets …

[kiki29]

Salut, voir l'aide en ligne sur GetOpenFilename ou FileDialog(msoFileDialogFilePicker).

[alexandrefcsm]

Désolé Marc-L, erreur d'inatention

Donc si J'ai compris,

Il faut que je rechercher dans mon répertoire comment s'appelle mon fichier.

Donc si j'ai 10 fichiers, je dois comparer mes 10 fichiers avec le ou les mots clés correspondant à mon fichier

Une fois que j'ai le bon, dire a VBA ouvre öoi celui-là?

[kiki29]

Salut, pour ce qui est de la recherche dans des fichiers PDFs voir : Acrobat Reader : Recherche dans tous les PDFs d'un dossier (via APIs)

[alexandrefcsm]

Bonjour Kiki,

J'ai lu et essayer de comprendre le fichier de david, mais je ne veux pas rechercher dans le fichier PDF, je veux juste rechercher dans les noms de fichiers (j'ai peut être mal compris son fichier)



Dans chaque dossier de mesure, j'ai 7 fichiers pdf où je ne connais que l'emplacement du dossier et que la dernière partie du nom... (exemple : noise.pdf)

Et je ne peux pas demander à la personne de rentrer tout le nom du fichier ...

[kiki29]

Salut, dans ce cas voir : Liste des fichiers d'un dossier. Cela devrait mieux correspondre à ta demande.

[alexandrefcsm]

Oh parfait ! J'essaie ca dans mon code et je te tiens au courant !

[kiki29]

Re, ou cela : Liste des fichiers d'un dossier + Liens

[alexandrefcsm]

Le premier me suffit, j'ai juste besoin du nom mais plus compliqué que je le pensais haha

Même avec la solution, je n'arrive pas à voir comment m'y prendre pour obtenir mes noms de fichiers ... J'ai mon nom paramètre de nom de fichier en constante et mon chemin de fichier en variable. Donc si j'ai bien compris je dois utiliser la fonction qui doit regarder la liste des fichiers dans ce dossier (j'ai pas trouver cette sous-fonction, peut être rch) et ensuite faire une boucle condition pour savoir si ma constante de nom de fichier est présente dans le nom de ce fichier. Si vrai copier coller dans Excel et le tour est joué ?

Dans ton fichier Excel je ne comprend ta fonction recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub SearchForFiles(sRoot As String)
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long, i As Long, sDoss As String
 
    hFile = FindFirstFile(sRoot & ALL_FILES, WFD)
    If hFile <> INVALID_HANDLE_VALUE Then
        Do
            If (WFD.dwFileAttributes And vbDirectory) Then
                If Asc(WFD.cFileName) <> vbDot Then
                    iNbDossier = iNbDossier + 1
                    If FP.bRecurse Then SearchForFiles sRoot & TrimNull(WFD.cFileName) & vbBackSlash
                End If
            Else
                If MatchSpec(WFD.cFileName, FP.sFileNameExt) Then
                    FP.nCount = FP.nCount + 1
                    sDoss = Right$(sRoot & TrimNull(WFD.cFileName), Len(sRoot & TrimNull(WFD.cFileName)) - iLen)
                    ShParam.Cells(FP.nCount + RDepart - 1, 2) = sDoss
                End If
            End If
        Loop While FindNextFile(hFile, WFD)
    End If
    Application.StatusBar = iNbDossier & " / " & FP.nCount
    FindClose hFile
End Sub

[kiki29]

Salut, tu ne comprends pas et tu veux aller modifier le fichier fourni !?

Liste Fichiers permet de sélectionner le dossier racine à partir duquel la recherche commencera.
La recherche récursive ou non se fera dans les dossiers / sous dossiers à partir de la racine.
Cela avec le filtre pour le nom de fichier du style *noise.pdf ou autre saisit dans la TextBox.

Ces paramètres sont conservés pour les recherches futures.
Les copies d'écran, quand on les regarde, en disent long.

[alexandrefcsm]

J'ai passé du temps dessus, j'ai commencé à comprendre

Pas évident comme code, je ne pense pas que j'aurai été capabe de faire ceci moi-même

Un collègue passant m'a envoyé sur un autre lien qu'il déjà a utilisé : http://excel.developpez.com/faq/?pag...riptingRuntime

Je le trouve moins lourd, mais est-ce la meilleure méthode?

[kiki29]

Salut, c'est même certain, à l'époque j'avais des dizaines de milliers de fichiers à traiter ( opérations répétées plusieurs fois par jour pendant 1 mois et demi ) , le gain en terme de temps était conséquent et sans appel pour les APIs par rapport à FSO ou DIR. Maintenant avec qqs dizaines de fichiers c'est moins évident.

[alexandrefcsm]

En effet, pour de grandes quantité de fichier je devrais revoir mon code (certainement prendre une formation à VBA ^^)

Je suis presque au but de ce que je souhaite faire.

Maintenant, j'ai mes noms de fichier en entier, mais je n'arrive toujours pas à faire de rechercher approximative avec l'étoile? Quelle est sa fonction réllement?

Du coup, je pensais tester la partie droite des noms : Boucle while plus fonction si qui teste si le nom la partie droite correspond à ce que je veux pour me ressortir la cellule du où se trouve mon de fichier.

Est-ce que ceci peut marcher?

[kiki29]

Salut, regarde Manipuler les chaînes de caractères en VB6 et VBA Excel avec l'opérateur Like, ainsi que l'aide en ligne sur ce dernier. On va y arriver.

Extrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim MyCheck
MyCheck = "aBBBa" Like "a*a"    ' Renvoie True.
MyCheck = "F" Like "[A-Z]"    ' Renvoie True.
MyCheck = "F" Like "[!A-Z]"    ' Renvoie False.
MyCheck = "a2a" Like "a#a"    ' Renvoie True.
MyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' Renvoie True.
MyCheck = "BAT123khg" Like "B?T*"    ' Renvoie True.
MyCheck = "CAT123khg" Like "B?T*"    ' Renvoie False.

[kiki29]

Re, bref qqch comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Option Explicit
 
Sub TestListeFichiers()
Dim Dossier As String, sRch As String
 
    'Définit le répertoire pour débuter la recherche de fichiers.
    '(Attention à ne pas indiquer un répertoire qu contient trop de sous-dossiers ou de
    'fichiers, sinon le temps de traitement va être très long).
    Dossier = "C:\Faq\Faq VBA\Exemples"
    sRch = "*ess*.pdf"
 
    Columns("A:E").Delete Shift:=xlUp
    ListeFichiers Dossier, sRch
 
    'Ajuste la largeur des colonnes A:E en fonction du contenu des cellules.
    Columns("A:E").AutoFit
    Application.StatusBar = "Terminé"
End Sub
 
Sub ListeFichiers(Repertoire As String, sNomRch As String)
Dim Fso As Object    'Scripting.FileSystemObject
Dim SourceFolder As Object    'Scripting.Folder
Dim SubFolder As Object    'Scripting.Folder
Dim FileItem As Object    'Scripting.File
Dim i As Long
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(Repertoire)
 
    'Récupère le numéro de la dernière ligne vide dans la colonne A.
    i = Range("A" & Rows.Count).End(xlUp).Row + 1
 
    'Boucle sur tous les fichiers du répertoire
    For Each FileItem In SourceFolder.Files
        'Inscrit le nom du fichier dans la cellule
        If FileItem.Name Like sNomRch Then
            Cells(i, 1) = FileItem.Name
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
                                       Address:=FileItem.ParentFolder & "\" & FileItem.Name
            '            'Indique la date de création
            '            Cells(i, 2) = FileItem.DateCreated
            '            'Indique la date de dernier acces
            '            Cells(i, 3) = FileItem.DateLastAccessed
            '            'Indique la date de dernière modification
            '            Cells(i, 4) = FileItem.DateLastModified
            '            'Nom du répertoire
            '            Cells(i, 5) = FileItem.ParentFolder
 
            i = i + 1
        End If
    Next FileItem
 
    For Each SubFolder In SourceFolder.subfolders
        ListeFichiers SubFolder.Path, sNomRch
    Next SubFolder
End Sub

[alexandrefcsm]

Ta fonction fonctionne merci. Je vais pouvoir avancer

J'étais resté sur le nom approximatif ...

Je vais devoir étudier cette histoire de like *

Car tout ce que je tente ne marche pas par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub recherche()
    Dim i As Integer
    Dim celluleValue As String
 
    Do
        i = i + 1
 
    If celluleValue Like "*noise*" Then
    celluleValue = True
 
 
            Else
    celluleValue = False
 
     End If
    Loop While celluleValue = True
 
    MsgBox "Trouvé ligne " & i
End Sub

C'est le dernier message après je passe en résolu mais j'aimerais comprendre

[kiki29]

Re, dans le code du post 17, il y a sRch = "*ess*.pdf"

[alexandrefcsm]

j'ai essayé *noise*.pdf

c'est pareil il me trouve toujours la première ligne, je me poserai la tête dessus quand je reviendrai en France. Ca sera plus simple avec l'aide (et un clavier AZERTY <3 )

Ton code marche parfaitement, je te remercie *1000
Bonne journée