Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel FoundFiles

FoundFiles

4 réponses
Avatar
Ablobaka
Bonjour,

je souhaite récupérer tous les fichier .res d'un dossier.

Ce bout de code fonctionne dans un module sous excel par contre il y à un
Pb. sous VB6 (que je découvre) à la ligne .FoundFiles .

Quelqu'un sait t-il pourquoi ?


Merçi,
Ablobaka


Dim Chemin As String
Dim RES() As String
Chemin = Application.GetOpenFilename("*.res,*.res,Tous,*.*", 1,
"Sélection du dossier.")

'Au chemin indiqué on enlève le n° du prog etl'extention .Res pour
garder la partie
'commune de l'adresse indiquant le repertoire dans lequel se trouve les
fichiers Res.
Chemin = Left(Chemin, InStrRev(Chemin, "\"))


With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With .FoundFiles
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) - InStrRev(.Item(i),
"\"))
Next i
End With
End With

Par contre dans un projet VB

With Excel.Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles ' Plante ici
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With Excel.application.FoundFiles ' Et plante là
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) - InStrRev(.Item(i),
"\"))
Next i
End With
End With
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Pour le premier point d'erreur, il te suffit d'ajouter une référence à
Microsoft Office Object Library dont dépend MsoFileTypeAllFiles.
Pour le deuxième point, c'est normal, tu tentes d'accéder à la propriété
Founfiles directement depuis l'application alors que celle-ci n'est
accessible qu'à partir de FileSearch.
Cordialement
Pascal


"Ablobaka" a écrit dans le message de news:
%
Bonjour,

je souhaite récupérer tous les fichier .res d'un dossier.

Ce bout de code fonctionne dans un module sous excel par contre il y à un
Pb. sous VB6 (que je découvre) à la ligne .FoundFiles .

Quelqu'un sait t-il pourquoi ?


Merçi,
Ablobaka


Dim Chemin As String
Dim RES() As String
Chemin = Application.GetOpenFilename("*.res,*.res,Tous,*.*", 1,
"Sélection du dossier.")

'Au chemin indiqué on enlève le n° du prog etl'extention .Res pour
garder la partie
'commune de l'adresse indiquant le repertoire dans lequel se trouve les
fichiers Res.
Chemin = Left(Chemin, InStrRev(Chemin, ""))


With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With .FoundFiles
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) - InStrRev(.Item(i),
""))
Next i
End With
End With

Par contre dans un projet VB

With Excel.Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles ' Plante ici
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With Excel.application.FoundFiles ' Et plante là
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) - InStrRev(.Item(i),
""))
Next i
End With
End With




Avatar
Clément Marcotte
Bonjour,

VB6 ne supporte pas FileSearch.


"Ablobaka" a écrit dans le message de
news:%
Bonjour,

je souhaite récupérer tous les fichier .res d'un dossier.

Ce bout de code fonctionne dans un module sous excel par contre il y
à un

Pb. sous VB6 (que je découvre) à la ligne .FoundFiles .

Quelqu'un sait t-il pourquoi ?


Merçi,
Ablobaka


Dim Chemin As String
Dim RES() As String
Chemin = Application.GetOpenFilename("*.res,*.res,Tous,*.*", 1,
"Sélection du dossier.")

'Au chemin indiqué on enlève le n° du prog etl'extention .Res
pour

garder la partie
'commune de l'adresse indiquant le repertoire dans lequel se
trouve les

fichiers Res.
Chemin = Left(Chemin, InStrRev(Chemin, ""))


With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With .FoundFiles
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) -
InStrRev(.Item(i),

""))
Next i
End With
End With

Par contre dans un projet VB

With Excel.Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles ' Plante ici
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With Excel.application.FoundFiles ' Et plante là
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) -
InStrRev(.Item(i),

""))
Next i
End With
End With




Avatar
Clément Marcotte
Désolé, lu trop vite...


"Clément Marcotte" a écrit dans le
message de news:
Bonjour,

VB6 ne supporte pas FileSearch.


"Ablobaka" a écrit dans le message de
news:%
Bonjour,

je souhaite récupérer tous les fichier .res d'un dossier.

Ce bout de code fonctionne dans un module sous excel par contre il
y


à un
Pb. sous VB6 (que je découvre) à la ligne .FoundFiles .

Quelqu'un sait t-il pourquoi ?


Merçi,
Ablobaka


Dim Chemin As String
Dim RES() As String
Chemin = Application.GetOpenFilename("*.res,*.res,Tous,*.*",
1,


"Sélection du dossier.")

'Au chemin indiqué on enlève le n° du prog etl'extention .Res
pour

garder la partie
'commune de l'adresse indiquant le repertoire dans lequel se
trouve les

fichiers Res.
Chemin = Left(Chemin, InStrRev(Chemin, ""))


With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With .FoundFiles
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) -
InStrRev(.Item(i),

""))
Next i
End With
End With

Par contre dans un projet VB

With Excel.Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles ' Plante ici
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With Excel.application.FoundFiles ' Et plante là
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) -
InStrRev(.Item(i),

""))
Next i
End With
End With







Avatar
Ablobaka
Merci bcp, j'ai ajouté les références indiqué par Papou et ça marche impec.
!
"Clément Marcotte" a écrit dans le message
de news:uV$
Désolé, lu trop vite...


"Clément Marcotte" a écrit dans le
message de news:
Bonjour,

VB6 ne supporte pas FileSearch.


"Ablobaka" a écrit dans le message de
news:%
Bonjour,

je souhaite récupérer tous les fichier .res d'un dossier.

Ce bout de code fonctionne dans un module sous excel par contre il
y


à un
Pb. sous VB6 (que je découvre) à la ligne .FoundFiles .

Quelqu'un sait t-il pourquoi ?


Merçi,
Ablobaka


Dim Chemin As String
Dim RES() As String
Chemin = Application.GetOpenFilename("*.res,*.res,Tous,*.*",
1,


"Sélection du dossier.")

'Au chemin indiqué on enlève le n° du prog etl'extention .Res
pour

garder la partie
'commune de l'adresse indiquant le repertoire dans lequel se
trouve les

fichiers Res.
Chemin = Left(Chemin, InStrRev(Chemin, ""))


With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With .FoundFiles
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) -
InStrRev(.Item(i),

""))
Next i
End With
End With

Par contre dans un projet VB

With Excel.Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles ' Plante ici
.LookIn = Chemin
.SearchSubFolders = False
.Execute

With Excel.application.FoundFiles ' Et plante là
ReDim RES(1 To .Count)
For i = 1 To .Count
RES(i) = Right(.Item(i), Len(.Item(i)) -
InStrRev(.Item(i),

""))
Next i
End With
End With