bonjour
je cherche via une boucle style: for i to fichiers, ouvrir un par un les
fichiers (dont le nom n'est pas connu a l'avance), contenus dans un
répertoire donné .
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
PMO
Bonjour,
J'ai compris que vous vouliez ouvrir TOUS les fichiers .xls d'un répertoire donné. Si c'est bien ça, voici un code qui fait: 1) Ouvre une boîte de dialogue qui déterminera le nom du répertoire. 2) Si ce répertoire contient des .xls il les ouvrira TOUS.
Faites l'essai sur un répertoire ne contenant pas une pléthore de fichiers .xls pour éviter que la durée de l'essai soit trop longue.
'********************* Sub PMO_OpenAllXLS() Dim chemin As Variant Dim i& Dim nb& Dim rep% chemin = Application.GetOpenFilename _ (Title:="Ouvrir tous les .xls") If chemin = False Then Exit Sub Do chemin = Mid(chemin, 1, Len(chemin) - 1) Loop Until Right(chemin, 1) = "" With Application.FileSearch nb& = .FoundFiles.Count If nb& > 10 Then rep% = MsgBox(nb& & " fichiers .xls ont été trouvés." & _ " Voulez-vous tous les ouvrir ?", vbYesNo) If rep% = vbNo Then Exit Sub End If .LookIn = chemin .FileType = msoFileTypeExcelWorkbooks .Execute For i& = 1 To nb& Workbooks.Open (.FoundFiles(i&)) Next i& End With End Sub '*********************
Cordialement. -- PMO Patrick Morange
bonjour je cherche via une boucle style: for i to fichiers, ouvrir un par un les fichiers (dont le nom n'est pas connu a l'avance), contenus dans un répertoire donné .
Bonjour,
J'ai compris que vous vouliez ouvrir TOUS les fichiers .xls d'un
répertoire donné.
Si c'est bien ça, voici un code qui fait:
1) Ouvre une boîte de dialogue qui déterminera le nom du répertoire.
2) Si ce répertoire contient des .xls il les ouvrira TOUS.
Faites l'essai sur un répertoire ne contenant pas une pléthore
de fichiers .xls pour éviter que la durée de l'essai soit trop longue.
'*********************
Sub PMO_OpenAllXLS()
Dim chemin As Variant
Dim i&
Dim nb&
Dim rep%
chemin = Application.GetOpenFilename _
(Title:="Ouvrir tous les .xls")
If chemin = False Then Exit Sub
Do
chemin = Mid(chemin, 1, Len(chemin) - 1)
Loop Until Right(chemin, 1) = ""
With Application.FileSearch
nb& = .FoundFiles.Count
If nb& > 10 Then
rep% = MsgBox(nb& & " fichiers .xls ont été trouvés." & _
" Voulez-vous tous les ouvrir ?", vbYesNo)
If rep% = vbNo Then Exit Sub
End If
.LookIn = chemin
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i& = 1 To nb&
Workbooks.Open (.FoundFiles(i&))
Next i&
End With
End Sub
'*********************
Cordialement.
--
PMO
Patrick Morange
bonjour
je cherche via une boucle style: for i to fichiers, ouvrir un par un les
fichiers (dont le nom n'est pas connu a l'avance), contenus dans un
répertoire donné .
J'ai compris que vous vouliez ouvrir TOUS les fichiers .xls d'un répertoire donné. Si c'est bien ça, voici un code qui fait: 1) Ouvre une boîte de dialogue qui déterminera le nom du répertoire. 2) Si ce répertoire contient des .xls il les ouvrira TOUS.
Faites l'essai sur un répertoire ne contenant pas une pléthore de fichiers .xls pour éviter que la durée de l'essai soit trop longue.
'********************* Sub PMO_OpenAllXLS() Dim chemin As Variant Dim i& Dim nb& Dim rep% chemin = Application.GetOpenFilename _ (Title:="Ouvrir tous les .xls") If chemin = False Then Exit Sub Do chemin = Mid(chemin, 1, Len(chemin) - 1) Loop Until Right(chemin, 1) = "" With Application.FileSearch nb& = .FoundFiles.Count If nb& > 10 Then rep% = MsgBox(nb& & " fichiers .xls ont été trouvés." & _ " Voulez-vous tous les ouvrir ?", vbYesNo) If rep% = vbNo Then Exit Sub End If .LookIn = chemin .FileType = msoFileTypeExcelWorkbooks .Execute For i& = 1 To nb& Workbooks.Open (.FoundFiles(i&)) Next i& End With End Sub '*********************
Cordialement. -- PMO Patrick Morange
bonjour je cherche via une boucle style: for i to fichiers, ouvrir un par un les fichiers (dont le nom n'est pas connu a l'avance), contenus dans un répertoire donné .
"Tip.tiptop" a écrit dans le message de news:d8jqob$v8n$
bonjour je cherche via une boucle style: for i to fichiers, ouvrir un par un les fichiers (dont le nom n'est pas connu a l'avance), contenus dans un répertoire donné .
"Tip.tiptop" <jean-francois.rey@atosorigin.com> a écrit dans le message de
news:d8jqob$v8n$1@smb-pub.grenoble.si.fr.atosorigin.com...
bonjour
je cherche via une boucle style: for i to fichiers, ouvrir un par un les
fichiers (dont le nom n'est pas connu a l'avance), contenus dans un
répertoire donné .
"Tip.tiptop" a écrit dans le message de news:d8jqob$v8n$
bonjour je cherche via une boucle style: for i to fichiers, ouvrir un par un les fichiers (dont le nom n'est pas connu a l'avance), contenus dans un répertoire donné .
LSteph
Bonjour, Cela choisit un rep (pas trop de fichiers) (qd la boite s'ouvre choisir le rep et annuler) et cela ouvre tout:
'**** Sub ouvtout() Dim f Application.GetOpenFilename f = Dir("*.xls")
Do While Len(f) > 0 Workbooks.Open f, UpdateLinks:=0 f = Dir Loop
End Sub '****
'lSteph
"Tip.tiptop" a écrit dans le message de news: d8jqob$v8n$
bonjour je cherche via une boucle style: for i to fichiers, ouvrir un par un les fichiers (dont le nom n'est pas connu a l'avance), contenus dans un répertoire donné .
Bonjour,
Cela choisit un rep (pas trop de fichiers)
(qd la boite s'ouvre choisir le rep et annuler)
et cela ouvre tout:
'****
Sub ouvtout()
Dim f
Application.GetOpenFilename
f = Dir("*.xls")
Do While Len(f) > 0
Workbooks.Open f, UpdateLinks:=0
f = Dir
Loop
End Sub
'****
'lSteph
"Tip.tiptop" <jean-francois.rey@atosorigin.com> a écrit dans le message de
news: d8jqob$v8n$1@smb-pub.grenoble.si.fr.atosorigin.com...
bonjour
je cherche via une boucle style: for i to fichiers, ouvrir un par un les
fichiers (dont le nom n'est pas connu a l'avance), contenus dans un
répertoire donné .
Bonjour, Cela choisit un rep (pas trop de fichiers) (qd la boite s'ouvre choisir le rep et annuler) et cela ouvre tout:
'**** Sub ouvtout() Dim f Application.GetOpenFilename f = Dir("*.xls")
Do While Len(f) > 0 Workbooks.Open f, UpdateLinks:=0 f = Dir Loop
End Sub '****
'lSteph
"Tip.tiptop" a écrit dans le message de news: d8jqob$v8n$
bonjour je cherche via une boucle style: for i to fichiers, ouvrir un par un les fichiers (dont le nom n'est pas connu a l'avance), contenus dans un répertoire donné .
