Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se nomme
facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque fichier
excel les onglets nommé FACTURE et les mets dans un fichiers nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se nomme
facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque fichier
excel les onglets nommé FACTURE et les mets dans un fichiers nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se nomme
facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque fichier
excel les onglets nommé FACTURE et les mets dans un fichiers nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Donc en fait j aimerais la macro qui me permette de faire ceci en ouvrant les
différents classuers et les refermant aussitot si cela possible merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Donc en fait j aimerais la macro qui me permette de faire ceci en ouvrant les
différents classuers et les refermant aussitot si cela possible merci....
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OnPDxFYdKHA.2164@TK2MSFTNGP02.phx.gbl...
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Donc en fait j aimerais la macro qui me permette de faire ceci en ouvrant les
différents classuers et les refermant aussitot si cela possible merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel de
chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers nommé
ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et le
nom du sous répertoire et le contenu de la cellule "I12" de cette feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
DanielDonc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
Daniel
Donc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OnPDxFYdKHA.2164@TK2MSFTNGP02.phx.gbl...
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
DanielDonc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
DanielDonc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
Daniel
Donc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OnPDxFYdKHA.2164@TK2MSFTNGP02.phx.gbl...
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
DanielDonc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
DanielDonc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
Daniel
Donc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OnPDxFYdKHA.2164@TK2MSFTNGP02.phx.gbl...
Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.
Essaie la macro suivante; note qu'elle ne pourra pas s'exécuter sur une
version XL2007 car elle emploie l'instruction FileSearch :
Sub Import()
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "e:donneesdanielmpfeASD" ' chemin à modifier
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Var = "FACTURE" & Right(ActiveWorkbook.Path, _
Len(ActiveWorkbook.Path) - _
InStrRev(ActiveWorkbook.Path, "")) & [I12].Value
If Len(Var) > 31 Then
MsgBox "fichier " & .FoundFiles(i) & " : nom d'onglet trop
long" & _
"fin de la macro"
End If
Sheets("FACTURE").Copy Before:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = Var
Workbooks(Dir(.FoundFiles(i))).Close
Next i
End With
Application.ScreenUpdating = True
End Sub
DanielDonc en fait j aimerais la macro qui me permette de faire ceci en ouvrant
les différents classuers et les refermant aussitot si cela possible
merci....
"maud s" a écrit dans le message de news:Bonjour
sur excel 2003
Je dispose d'un répertoire nommé ASD
dans ce répertoire il y a des sous répertoires
et dans ces sous répertoires il y a divers fichiers excel.
dans chacun de ces fichiers excel il y a 4 onglets..... dont un qui se
nomme facture
J'aimerais si c'est possible, qu'un code VBA balaye les fichiers excel
de chaque répertoire et sous repertoires etc... et me recupere de chaque
fichier excel les onglets nommé FACTURE et les mets dans un fichiers
nommé ASD.xls.
chaque onglet recopié dans le fichiers ASD.xls doit se nommer FACTURE et
le nom du sous répertoire et le contenu de la cellule "I12" de cette
feuille.
J'ai regardé sur le net boisgontier sigonneau et autre mais j ai pas
réussi..
merci à vous par avance.