j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier
C:\excel\Cd07
Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement
puis de les refermer.
Tous ces tableurs ont des noms un peu barbares du genre :
041129104302ExpData.xls ou 041129132713ExpData.xls
La partie traitement et fermeture ne pose pas de problème.
Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant la
commande
Workbooks.OpenText Filename:=
sans avoir à rentrer les noms des tableurs un à un dans VBA.
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
Bonsoir. Essaie :
Sub Test() Dim NomFichier As String ChDrive "C" ChDir "C:excelCd07" NomFichier = Dir("*.xls") Do While NomFichier <> "" Workbooks.Open Filename:=NomFichier ' 'Ton code ' ActiveWorkbook.Close NomFichier = Dir Loop End Sub
Cordialement. Daniel
"oliv '" a écrit dans le message de news:
Bonjour
j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier C:excelCd07 Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement puis de les refermer. Tous ces tableurs ont des noms un peu barbares du genre : 041129104302ExpData.xls ou 041129132713ExpData.xls La partie traitement et fermeture ne pose pas de problème. Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant la commande Workbooks.OpenText Filename: > sans avoir à rentrer les noms des tableurs un à un dans VBA.
merci d'avance pour la réponse -- olivier
Bonsoir.
Essaie :
Sub Test()
Dim NomFichier As String
ChDrive "C"
ChDir "C:excelCd07"
NomFichier = Dir("*.xls")
Do While NomFichier <> ""
Workbooks.Open Filename:=NomFichier
'
'Ton code
'
ActiveWorkbook.Close
NomFichier = Dir
Loop
End Sub
Cordialement.
Daniel
"oliv '" <oliv@discussions.microsoft.com> a écrit dans le message de news:
A21F92D7-7A00-4989-AEF4-C44C972AB89A@microsoft.com...
Bonjour
j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier
C:excelCd07
Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement
puis de les refermer.
Tous ces tableurs ont des noms un peu barbares du genre :
041129104302ExpData.xls ou 041129132713ExpData.xls
La partie traitement et fermeture ne pose pas de problème.
Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant
la
commande
Workbooks.OpenText Filename: > sans avoir à rentrer les noms des tableurs un à un dans VBA.
Sub Test() Dim NomFichier As String ChDrive "C" ChDir "C:excelCd07" NomFichier = Dir("*.xls") Do While NomFichier <> "" Workbooks.Open Filename:=NomFichier ' 'Ton code ' ActiveWorkbook.Close NomFichier = Dir Loop End Sub
Cordialement. Daniel
"oliv '" a écrit dans le message de news:
Bonjour
j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier C:excelCd07 Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement puis de les refermer. Tous ces tableurs ont des noms un peu barbares du genre : 041129104302ExpData.xls ou 041129132713ExpData.xls La partie traitement et fermeture ne pose pas de problème. Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant la commande Workbooks.OpenText Filename: > sans avoir à rentrer les noms des tableurs un à un dans VBA.
merci d'avance pour la réponse -- olivier
oliv '
ça marche merci beaucoup
Bonsoir. Essaie :
Sub Test() Dim NomFichier As String ChDrive "C" ChDir "C:excelCd07" NomFichier = Dir("*.xls") Do While NomFichier <> "" Workbooks.Open Filename:=NomFichier ' 'Ton code ' ActiveWorkbook.Close NomFichier = Dir Loop End Sub
Cordialement. Daniel
"oliv '" a écrit dans le message de news:
Bonjour
j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier C:excelCd07 Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement puis de les refermer. Tous ces tableurs ont des noms un peu barbares du genre : 041129104302ExpData.xls ou 041129132713ExpData.xls La partie traitement et fermeture ne pose pas de problème. Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant la commande Workbooks.OpenText Filename: > > sans avoir à rentrer les noms des tableurs un à un dans VBA.
merci d'avance pour la réponse -- olivier
ça marche
merci beaucoup
Bonsoir.
Essaie :
Sub Test()
Dim NomFichier As String
ChDrive "C"
ChDir "C:excelCd07"
NomFichier = Dir("*.xls")
Do While NomFichier <> ""
Workbooks.Open Filename:=NomFichier
'
'Ton code
'
ActiveWorkbook.Close
NomFichier = Dir
Loop
End Sub
Cordialement.
Daniel
"oliv '" <oliv@discussions.microsoft.com> a écrit dans le message de news:
A21F92D7-7A00-4989-AEF4-C44C972AB89A@microsoft.com...
Bonjour
j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier
C:excelCd07
Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement
puis de les refermer.
Tous ces tableurs ont des noms un peu barbares du genre :
041129104302ExpData.xls ou 041129132713ExpData.xls
La partie traitement et fermeture ne pose pas de problème.
Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant
la
commande
Workbooks.OpenText Filename: > > sans avoir à rentrer les noms des tableurs un à un dans VBA.
Sub Test() Dim NomFichier As String ChDrive "C" ChDir "C:excelCd07" NomFichier = Dir("*.xls") Do While NomFichier <> "" Workbooks.Open Filename:=NomFichier ' 'Ton code ' ActiveWorkbook.Close NomFichier = Dir Loop End Sub
Cordialement. Daniel
"oliv '" a écrit dans le message de news:
Bonjour
j'ai une cinquantaine de tableurs excel qui se trouvent dans le dossier C:excelCd07 Et le "but du jeu" c'est de les ouvrir un par un d'effectuer un traitement puis de les refermer. Tous ces tableurs ont des noms un peu barbares du genre : 041129104302ExpData.xls ou 041129132713ExpData.xls La partie traitement et fermeture ne pose pas de problème. Mais je ne sais pas comment faire pour les ouvrir un par un en utilisant la commande Workbooks.OpenText Filename: > > sans avoir à rentrer les noms des tableurs un à un dans VBA.
