Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

reduction de macro boucle pour x fichier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gabmail
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gabmail

XLDnaute Nouveau
bonjour a vous

je cherche a regroupé x page internet en un tableau excel
vu que les pages internets non pas forcement la meme mise en forme
jutilise un classeur intermédiaire pour reclasser les infos
enfin voila ma macro de 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

End Sub

Voici le debut de ma 2eme macro qui se reproduit avec comme seul changement le passage de joueur (0001) jusqu a joueur (9999)
realisé avec des copi collé

Workbooks.Open Filename:="C:\foot\Joueur\0zTrameJoueur (aaaa).xls" ' joueur (1).html
Workbooks.Open Filename:="C:\foot\Joueur\Aspi\Joueur0a50000\Joueur0a50000\lfp.fr\joueur\joueur (1).html"
Windows("joueur (1).html").Activate
ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\Temp0zjoueur (aaaa).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.Run "'0xMacroRegroupeJoueur0a50000.xls'!Macroa0CopiDeTrameàReduit"
Windows("0zTrameJoueur (aaaa).xls").Activate
ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\0zjoueur (0001).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Workbooks.Open Filename:="C:\foot\Joueur\0zTrameJoueur (aaaa).xls" ' joueur (2).html
Workbooks.Open Filename:="C:\foot\Joueur\Aspi\Joueur0a50000\Joueur0a50000\lfp.fr\joueur\joueur (2).html"
Windows("joueur (2).html").Activate
ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\Temp0zjoueur (aaaa).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.Run "'0xMacroRegroupeJoueur0a50000.xls'!Macroa0CopiDeTrameàReduit"
Windows("0zTrameJoueur (aaaa).xls").Activate
ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\0zjoueur (0002).xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close



cette 2eme macro devrai pouvoir se reduir a une boucle simple
du type
tu ouvre le premier fichier du repertoir
tu execute la macro mise en forme
tu ferme le fichier et tu passe au suivant ainsi de suite

tous les fichier sont sous la forme Joueurs (xxxx) et dans un repertoir consacré

merci a vous
 
Trier par date Trier par votes
Re : reduction de macro boucle pour x fichier

Bonjour gabmail,

voici un code à tester:

Code: 
Sub test()
  For joueur = 1 To 9999
    Workbooks.Open Filename:="C:\foot\Joueur\0zTrameJoueur (aaaa).xls"  ' joueur (1).html
    Workbooks.Open Filename:="C:\foot\Joueur\Aspi\Joueur0a50000\Joueu r0a50000\lfp.fr\joueur\joueur (" & joueur & ").html"
    Windows("joueur (" & joueur & ").html").Activate
    ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\T emp0zjoueur (aaaa).xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Application.Run "'0xMacroRegroupeJoueur0a50000.xls'!Macroa0CopiDeT rameàReduit"
    Windows("0zTrameJoueur (aaaa).xls").Activate
    Num = Format(joueur, "0000")
    ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\0 zjoueur (" & Num & ").xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
  Next
End Sub
 
Vote positif 0 Vote négatif
Re : reduction de macro boucle pour x fichier

trop cool merci a toi
je pige pas du tout se que sa fait se qui me pose un gros prob
mais mon clavier et control c et v te remerci
encore merci

ps en abusant de ton temps si tu pouvais me faire une explication de text
 
Vote positif 0 Vote négatif
Re : reduction de macro boucle pour x fichier

Re bonjour,

Et bien j'ai simplement créé un boucle: For joueur = 1 To 9999 ........ Next
(pour joueur = 1 à 9999) pour pouvoir traiter tous les fichiers (en bleu ce que j'ai fais:

Code: 
Sub test()
[COLOR=Blue][B]  For joueur = 1 To 9999[/B][/COLOR]
    Workbooks.Open Filename:="C:\foot\Joueur\0zTrameJoueur (aaaa).xls"  ' joueur (1).html
    Workbooks.Open Filename:="C:\foot\Joueur\Aspi\Joueur0a50000\Joueu r0a50000\lfp.fr\joueur\joueur ([COLOR=Blue][B]" & joueur & "[/B][/COLOR]).html"
    Windows("joueur ([B][COLOR=Blue]" & joueur & "[/COLOR][/B]).html").Activate
    ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\T emp0zjoueur (aaaa).xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Application.Run "'0xMacroRegroupeJoueur0a50000.xls'!Macroa0CopiDeT rameàReduit"
    Windows("0zTrameJoueur (aaaa).xls").Activate
    [COLOR=Blue][B]Num = Format(joueur, "0000")[/B][/COLOR]
    ActiveWorkbook.SaveAs Filename:="C:\foot\Joueur\AspiCopi\Joueur0a50000\0 zjoueur ([B][COLOR=Blue]" & Num & "[/COLOR][/B]).xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
 [COLOR=Blue][B] Next[/B][/COLOR]
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
346
sylvanu
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
  • Résolu(e)
XL 2013 VBA - macro pour ouvrir un fichier en fonction de la valeur d'une cellule
Réponses
4
Affichages
901
Gaalhad33
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
6 K
ArnaudSi
P
  • Question Question
Microsoft 365 Fusion de plusieurs plages excel dans un fichier de synthèse
2
Réponses
16
Affichages
3 K
Dudu2
J
  • Question Question
Boucle Extraire donnés d'un fichier dans onglet de même nom
2
Réponses
21
Affichages
2 K
JVOS
J
C
  • Question Question
XL 2019 VBA - problèmes de guillemets dans un export d'Excel vers un fichier texte
Réponses
12
Affichages
6 K
CHL1234
C
V
  • Question Question
XL 2016 Compiler des cellules de différents fichiers Excel en un seul
Réponses
2
Affichages
1 K
Val119
V
Y
  • Question Question
XL 2016 Macro copy paste & Save as
Réponses
0
Affichages
1 K
you25
Y
F
  • Question Question
Attribuer une macro à plusieurs boutons identiques
Réponses
5
Affichages
3 K
fleet21
F
T
  • Question Question
XL 2010 Import et enregistrement d'un fichier CSV en Excel
Réponses
0
Affichages
1 K
Tophe2
T
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
  • Question Question
[Réglé]Macro enregistrement auto selon critères
Réponses
6
Affichages
2 K
3xceln4ute
D
  • Question Question
Créer un fichier CSV
Réponses
5
Affichages
6 K
DOUPEUX
D
A
  • Question Question
XL 2010 Boucle pour macro "copier-coller"
Réponses
8
Affichages
4 K
Patrice33740
C
  • Question Question
XL 2013 Absence de prompt enregistrement après macro
Réponses
3
Affichages
1 K
Lone-wolf
  • Question Question
(résolu par bebere et chti160)modifier ligne de code pour ajouter l'année et mois en cours
2 3
Réponses
40
Affichages
4 K
grisan29
J
  • Question Question
Que rajouter dans cette macro pour faire une boucle?
Réponses
4
Affichages
722
julien75017
J
R
  • Question Question
Réalisation d'une partie de macro sous conditions.
Réponses
3
Affichages
675
Pierrot93
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…