VBA - ouverture d'un fichier pdf avec nom incomplet

Version imprimable

21/06/2016, 15h06
alexandrefcsm

VBA - ouverture d'un fichier pdf avec nom incomplet

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:

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:

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
21/06/2016, 15h21
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.
21/06/2016, 15h22
Marc-L

Bonjour,

rappel :

http://www.developpez.net/forums/images/misc/sticky.gif Important : Éditorial - à lire avant de poster

Sinon un fichier ne peut-être ouvert qu'à partir de son chemin et de son nom complets …
21/06/2016, 15h29
kiki29

Salut, voir l'aide en ligne sur GetOpenFilename ou FileDialog(msoFileDialogFilePicker).
21/06/2016, 15h31
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à?
21/06/2016, 15h38
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)
21/06/2016, 16h02
alexandrefcsm

1 pièce(s) jointe(s)

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)

Pièce jointe 213539

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 ...
21/06/2016, 16h18
kiki29

1 pièce(s) jointe(s)

Salut, dans ce cas voir : Liste des fichiers d'un dossier. Cela devrait mieux correspondre à ta demande.
21/06/2016, 16h25
alexandrefcsm

Oh parfait ! J'essaie ca dans mon code et je te tiens au courant !
21/06/2016, 16h31
kiki29

1 pièce(s) jointe(s)

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

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:

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

21/06/2016, 18h29
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.
22/06/2016, 14h41
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?
22/06/2016, 21h19
kiki29

1 pièce(s) jointe(s)

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.
23/06/2016, 09h34
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?

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:

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.

1 pièce(s) jointe(s)

Re, bref qqch comme ceci

Code:

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

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:

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

23/06/2016, 11h31
kiki29

Re, dans le code du post 17, il y a sRch = "*ess*.pdf"
23/06/2016, 13h16
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