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
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
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" <zalliel@discussions.microsoft.com> a écrit dans le message de
news: 94896F62-CFF4-4B8B-BC7F-09E3E0C14DCB@microsoft.com...
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
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
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
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" <zalliel@discussions.microsoft.com> a écrit dans le message de
news: 94896F62-CFF4-4B8B-BC7F-09E3E0C14DCB@microsoft.com...
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
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
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
Ah bon ?
Daniel
"zalliel" <zalliel@discussions.microsoft.com> a écrit dans le message de
news: 0CCBE937-CF6A-4DED-A20D-69C1F2A3432D@microsoft.com...
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" <zalliel@discussions.microsoft.com> a écrit dans le message de
news: 94896F62-CFF4-4B8B-BC7F-09E3E0C14DCB@microsoft.com...
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