Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ouvrir des fichiers dont on ignore le nom

Ouvrir des fichiers dont on ignore le nom

3 réponses
Avatar
zalliel
Bonjour,

Je voudrais pouvoir ouvrir des fichiers excel dont j'ignore le nom, dans un
répertoire, toujours le même "c:\toto" par exemple.

J'ai essayer cela mais pas de résultat
Sub zallielVeutOuvrirDesFichiers()
Dim rep, i, NomFich()
rep = "C:\Week27\"

With Excel.Application.FileSearch
.NewSearch
.LookIn = rep
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count

WorksBooks.Open Filename:=.FoundFiles(i)
Workbooks.Open .FoundFiles(i)
Open Filename For Random As .FoundFiles(i)
Next i
End If

End With

Workbooks.Add
End Sub
Signaler un problème avec ce contenu

3 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
Daniel
Bonjour.
Essaie :

Sub Test()
Dim Fich As String
Fich = Dir("C:Week27*.xls")
Do While Fich <> ""
Workbooks.Open Fich
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"zalliel" a écrit dans le message de
news:
Bonjour,

Je voudrais pouvoir ouvrir des fichiers excel dont j'ignore le nom, dans
un
répertoire, toujours le même "c:toto" par exemple.

J'ai essayer cela mais pas de résultat
Sub zallielVeutOuvrirDesFichiers()
Dim rep, i, NomFich()
rep = "C:Week27"

With Excel.Application.FileSearch
.NewSearch
.LookIn = rep
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count

WorksBooks.Open Filename:=.FoundFiles(i)
Workbooks.Open .FoundFiles(i)
Open Filename For Random As .FoundFiles(i)
Next i
End If

End With

Workbooks.Add
End Sub



Avatar
zalliel
Bonjour Daniel et merci pour ta réponse mais cela ne fonctionne pas du tout.

Cdt
Phil


Bonjour.
Essaie :

Sub Test()
Dim Fich As String
Fich = Dir("C:Week27*.xls")
Do While Fich <> ""
Workbooks.Open Fich
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"zalliel" a écrit dans le message de
news:
Bonjour,

Je voudrais pouvoir ouvrir des fichiers excel dont j'ignore le nom, dans
un
répertoire, toujours le même "c:toto" par exemple.

J'ai essayer cela mais pas de résultat
Sub zallielVeutOuvrirDesFichiers()
Dim rep, i, NomFich()
rep = "C:Week27"

With Excel.Application.FileSearch
.NewSearch
.LookIn = rep
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count

WorksBooks.Open Filename:=.FoundFiles(i)
Workbooks.Open .FoundFiles(i)
Open Filename For Random As .FoundFiles(i)
Next i
End If

End With

Workbooks.Add
End Sub








Avatar
Daniel
Ah bon ?
Daniel
"zalliel" a écrit dans le message de
news:
Bonjour Daniel et merci pour ta réponse mais cela ne fonctionne pas du
tout.

Cdt
Phil


Bonjour.
Essaie :

Sub Test()
Dim Fich As String
Fich = Dir("C:Week27*.xls")
Do While Fich <> ""
Workbooks.Open Fich
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"zalliel" a écrit dans le message de
news:
Bonjour,

Je voudrais pouvoir ouvrir des fichiers excel dont j'ignore le nom,
dans
un
répertoire, toujours le même "c:toto" par exemple.

J'ai essayer cela mais pas de résultat
Sub zallielVeutOuvrirDesFichiers()
Dim rep, i, NomFich()
rep = "C:Week27"

With Excel.Application.FileSearch
.NewSearch
.LookIn = rep
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count

WorksBooks.Open Filename:=.FoundFiles(i)
Workbooks.Open .FoundFiles(i)
Open Filename For Random As .FoundFiles(i)
Next i
End If

End With

Workbooks.Add
End Sub