crée boucle pour le traitement de xfichiers

[gabmail]

bonjour a vous
pour faire simple jai enfin reussi a faire une macro pour metre en forme un fichier text. et je cherche une boucle pour les 20 000 autres fichiers text

en gros ma macro
ouvre text000001
recherche les valeurs voulu et les separ les copi sur 3 feuilles dun classer recap
puis feme text000001

tous les fichiers sont dans le meme repertoire
et porte presque le meme nom textxxxxx

voila desol pour les puristes de la prog et de la grammaire
merci a vous

 

[dixit]

Re : crée boucle pour le traitement de xfichiers

bonjour et bienvenue sur le forum,
voici une possibilité avec Dir :
Sub ListeFichiers()
'l'instruction ChDir permet de se positionner
'sur un répertoire précis
ChDir "C:\Users\monutilisateur\Documents"
b = 5
monfichier = Dir("*.*")
While monfichier <> ""
'Workbooks.Open monfichier
Cells(b, 2) = monfichier
Cells(b, 3) = FileDateTime(monfichier)
Cells(b, 4) = FileLen(monfichier)
b = b + 1
monfichier = Dir()
Wend
End Sub

bye

 

[gabmail]

Re : crée boucle pour le traitement de xfichiers

merci pour ton aide mais je ne comprend pas grand chose
mes competence en macro se limite a control c control v
aujourd hui
jai une macro qui ouvre le premier fichier
executé une seconde macro nommé mise en page
copi le resultat sur un classeur recap
ferme le premier fichier ouvre le second
execute miseenpage copi le resultat a la suite sur recap
et se sur 20 000 fichier lol beaucoup de copi collé bocoup de claseur et de temp

comme suiit
Workbooks.Open Filename:="C:\0zTrameJoueur (aaaa).xls" 'joueur (1).html
Workbooks.Open Filename:="C:\joueur (1).html"
Windows("joueur (1).html").Activate
ActiveWorkbook.SaveAs Filename:="C:\Temp0zjoueur (aaaa).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.Run "'0xMacroRegroupeJoueur0a50000.xls'!MiseEnpage"
Windows("0zTrameJoueur (aaaa).xls").Activate
ActiveWorkbook.SaveAs Filename:="C:0zjoueur (0001).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Workbooks.Open Filename:="C:\0zTrameJoueur (aaaa).xls" 'joueur (2).html
Workbooks.Open Filename:="C:\joueur (2).html"
Windows("joueur (2).html").Activate
ActiveWorkbook.SaveAs Filename:="C:\Temp0zjoueur (aaaa).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.Run "'0xMacroRegroupeJoueur0a50000.xls'!MiseEnpage"
Windows("0zTrameJoueur (aaaa).xls").Activate
ActiveWorkbook.SaveAs Filename:="C:\0zjoueur (0002).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

ext ext
(rep simplifié a c:\ pour exemple)

je supose que cette macro devrai pouvoir se remplacé par une boucle
du type
pour tous les fichier du repertoirs
tu ouvre le premier tu execute mise en page tu ferme le premier
tu ouvre le suivant et tu recomence

merci a toi

 

[skoobi]

Re : crée boucle pour le traitement de xfichiers

Bonjour gabmail, dixit,

pourrais-t-on voir ces 2 macros?

Bon dimanche.

 

[gabmail]

Re : crée boucle pour le traitement de xfichiers

voici mise en page

Sub Macroa0CopiDeTrameàReduit()


' Copi Temp0zjoueur (aaaa) cole sur 0zTrameJoueur (aaaa).xls

Windows("Temp0zjoueur (aaaa)").Activate
Cells.Select
Selection.Copy
Windows("0zTrameJoueur (aaaa).xls").Activate
Sheets("Collage").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows("Temp0zjoueur (aaaa)").Activate
ActiveWindow.Close
' Copi de 0zJoueur (1).xls sur "0yRegroupe.xls"
Windows("0zTrameJoueur (aaaa).xls").Activate
Sheets("InfoJouer").Select ' "InfoJouer"
Range("A2:O11").Select
Selection.Copy
Windows("0yRegroupe.xls").Activate
Sheets("InfoJouer").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows("0zTrameJoueur (aaaa).xls").Activate ' "SaisonActuel"
Sheets("SaisonActuel").Select
Range("A2:O11").Select
Selection.Copy
Windows("0yRegroupe.xls").Activate
Sheets("SaisonActuel").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows("0zTrameJoueur (aaaa).xls").Activate ' "Carrière"
Sheets("Carrière").Select
Range("A2:O41").Select
Selection.Copy
Windows("0yRegroupe.xls").Activate
Sheets("Carrière").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

 

[gabmail]

Re : crée boucle pour le traitement de xfichiers

0zTrameJoueur (aaaa).xls est une suite de page pour la recherche et la mise en page

la suivante est sur 10 modules et nest qune copi collé avec modif de joueur (0001) a joueur (9999)de celle placé 2 poste plus haut

merci a vous pour l atention et voir meme la solution lol

 

[gabmail]

Re : crée boucle pour le traitement de xfichiers

a laide
svp