Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeurs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeu rs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
On 31 jan, 10:06, "Amar Lacheheb" <amar.lache...@bipe.fr> wrote:
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeu rs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeu rs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
lSteph
Bonjour Amar,
Sub Mfich() Dim f As String Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep" f = Dir("*.xls") Do While Len(f) > 0 Application.StatusBar = f Workbooks.Open f ActiveWorkbook.Worksheets(1).Activate Call Mamacro Workbooks(f).Close True f = Dir Loop Application.StatusBar = False end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeu rs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Bonjour Amar,
Sub Mfich()
Dim f As String
Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep"
f = Dir("*.xls")
Do While Len(f) > 0
Application.StatusBar = f
Workbooks.Open f
ActiveWorkbook.Worksheets(1).Activate
Call Mamacro
Workbooks(f).Close True
f = Dir
Loop
Application.StatusBar = False
end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" <amar.lache...@bipe.fr> wrote:
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeu rs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Sub Mfich() Dim f As String Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep" f = Dir("*.xls") Do While Len(f) > 0 Application.StatusBar = f Workbooks.Open f ActiveWorkbook.Worksheets(1).Activate Call Mamacro Workbooks(f).Close True f = Dir Loop Application.StatusBar = False end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeu rs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
francois.forcet
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeu rs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Salut à toi
Résultat dans une boîte de dialogue :
With Application.FileSearch .LookIn = "C:Chemin" .FileType = msoFileTypeExcelWorkbooks .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count Liste = (Liste & Mid(.FoundFiles(I), Len(.LookIn) + 1, Len(.FoundFiles(I)) - Len(.LookIn) + 2)) & vbLf Next I End With MsgBox (Liste)
Si tu souhaites mettre le résultat dans une cellule remplaces :
MsgBox (Liste)
Par :
Range("A1") = Liste
pour un résultat dans la cellule A1
Celà devrait te convenir Dis moi !!!
On 31 jan, 10:06, "Amar Lacheheb" <amar.lache...@bipe.fr> wrote:
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeu rs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Salut à toi
Résultat dans une boîte de dialogue :
With Application.FileSearch
.LookIn = "C:Chemin"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With
With Application.FileSearch
For I = 1 To .FoundFiles.Count
Liste = (Liste & Mid(.FoundFiles(I), Len(.LookIn) + 1,
Len(.FoundFiles(I)) - Len(.LookIn) + 2)) & vbLf
Next I
End With
MsgBox (Liste)
Si tu souhaites mettre le résultat dans une cellule remplaces :
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeu rs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Salut à toi
Résultat dans une boîte de dialogue :
With Application.FileSearch .LookIn = "C:Chemin" .FileType = msoFileTypeExcelWorkbooks .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count Liste = (Liste & Mid(.FoundFiles(I), Len(.LookIn) + 1, Len(.FoundFiles(I)) - Len(.LookIn) + 2)) & vbLf Next I End With MsgBox (Liste)
Si tu souhaites mettre le résultat dans une cellule remplaces :
MsgBox (Liste)
Par :
Range("A1") = Liste
pour un résultat dans la cellule A1
Celà devrait te convenir Dis moi !!!
papou
Bonjour Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un répertoire donné. Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS. Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement Pascal
"Amar Lacheheb" a écrit dans le message de news: fns327$438$
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Bonjour
Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur
Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un
répertoire donné.
Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS.
Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement
Pascal
"Amar Lacheheb" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
fns327$438$1@reader1.imaginet.fr...
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeurs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Bonjour Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un répertoire donné. Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS. Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement Pascal
"Amar Lacheheb" a écrit dans le message de news: fns327$438$
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Amar Lacheheb
Merci pour ton aide "papou" a écrit dans le message de news: OFt4U$%
Bonjour Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un répertoire donné. Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS. Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement Pascal
"Amar Lacheheb" a écrit dans le message de news: fns327$438$
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Merci pour ton aide
"papou" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le message
de news: OFt4U$%23YIHA.5984@TK2MSFTNGP06.phx.gbl...
Bonjour
Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur
Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans
un répertoire donné.
Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS.
Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement
Pascal
"Amar Lacheheb" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
fns327$438$1@reader1.imaginet.fr...
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de
classeurs excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Merci pour ton aide "papou" a écrit dans le message de news: OFt4U$%
Bonjour Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un répertoire donné. Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS. Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement Pascal
"Amar Lacheheb" a écrit dans le message de news: fns327$438$
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Amar Lacheheb
Merci pour ton aide "lSteph" a écrit dans le message de news:
Bonjour Amar,
Sub Mfich() Dim f As String Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep" f = Dir("*.xls") Do While Len(f) > 0 Application.StatusBar = f Workbooks.Open f ActiveWorkbook.Worksheets(1).Activate Call Mamacro Workbooks(f).Close True f = Dir Loop Application.StatusBar = False end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Merci pour ton aide
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
87556d93-5d8e-4fb6-a286-2e2bc969c836@j78g2000hsd.googlegroups.com...
Bonjour Amar,
Sub Mfich()
Dim f As String
Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep"
f = Dir("*.xls")
Do While Len(f) > 0
Application.StatusBar = f
Workbooks.Open f
ActiveWorkbook.Worksheets(1).Activate
Call Mamacro
Workbooks(f).Close True
f = Dir
Loop
Application.StatusBar = False
end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" <amar.lache...@bipe.fr> wrote:
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeurs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Merci pour ton aide "lSteph" a écrit dans le message de news:
Bonjour Amar,
Sub Mfich() Dim f As String Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep" f = Dir("*.xls") Do While Len(f) > 0 Application.StatusBar = f Workbooks.Open f ActiveWorkbook.Worksheets(1).Activate Call Mamacro Workbooks(f).Close True f = Dir Loop Application.StatusBar = False end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Amar Lacheheb
Merci pour ton aide "papou" a écrit dans le message de news: OFt4U$%
Bonjour Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un répertoire donné. Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS. Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement Pascal
"Amar Lacheheb" a écrit dans le message de news: fns327$438$
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Merci pour ton aide
"papou" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le message
de news: OFt4U$%23YIHA.5984@TK2MSFTNGP06.phx.gbl...
Bonjour
Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur
Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans
un répertoire donné.
Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS.
Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement
Pascal
"Amar Lacheheb" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
fns327$438$1@reader1.imaginet.fr...
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de
classeurs excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Merci pour ton aide "papou" a écrit dans le message de news: OFt4U$%
Bonjour Sinon pour ceux que cela pourrait intéresser, une méthode trouvée sur Excel.Programming, qui n'utilise pas de VBA pour lister des fichiers dans un répertoire donné. Le principe c'est l'utilisation de la fonction macro Excel4 FICHIERS. Sympa j'ai trouvé ;-)
http://cjoint.com/data/bFk4WhvNfT.htm
Cordialement Pascal
"Amar Lacheheb" a écrit dans le message de news: fns327$438$
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Amar Lacheheb
Merci pour ton aide "lSteph" a écrit dans le message de news:
Bonjour Amar,
Sub Mfich() Dim f As String Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep" f = Dir("*.xls") Do While Len(f) > 0 Application.StatusBar = f Workbooks.Open f ActiveWorkbook.Worksheets(1).Activate Call Mamacro Workbooks(f).Close True f = Dir Loop Application.StatusBar = False end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.
Merci pour ton aide
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
87556d93-5d8e-4fb6-a286-2e2bc969c836@j78g2000hsd.googlegroups.com...
Bonjour Amar,
Sub Mfich()
Dim f As String
Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep"
f = Dir("*.xls")
Do While Len(f) > 0
Application.StatusBar = f
Workbooks.Open f
ActiveWorkbook.Worksheets(1).Activate
Call Mamacro
Workbooks(f).Close True
f = Dir
Loop
Application.StatusBar = False
end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" <amar.lache...@bipe.fr> wrote:
Bonjour,
Je cherche une procédure qui me permette de lister l'ensemble de classeurs
excel d'un dossier (je ne connais pas le nombre de fichier)
pour les ouvrir un à un et execute une macro sur ces derniers.
Merci d'avance pour votre aide.
Merci pour ton aide "lSteph" a écrit dans le message de news:
Bonjour Amar,
Sub Mfich() Dim f As String Application.ScreenUpdating = False
ChDir "c:monrepmonsousrep" f = Dir("*.xls") Do While Len(f) > 0 Application.StatusBar = f Workbooks.Open f ActiveWorkbook.Worksheets(1).Activate Call Mamacro Workbooks(f).Close True f = Dir Loop Application.StatusBar = False end sub
'LSteph
On 31 jan, 10:06, "Amar Lacheheb" wrote:
Bonjour, Je cherche une procédure qui me permette de lister l'ensemble de classeurs excel d'un dossier (je ne connais pas le nombre de fichier) pour les ouvrir un à un et execute une macro sur ces derniers. Merci d'avance pour votre aide.