J'aimerais réaliser une macro qui parcourerait tout les fichiers .xls d'un
dossier et qui en retirerait des plages (ayant toutes le même nom) pour
ensuite les coller les unes à la suite des autres au démarrage d'un fichier
excel.
Pour le moment j'ai créé la boucle parcourant le dossier :
Private Sub Workbook_Open()
Chemin = "U:\Dossier\*.xls"
Fich = Dir(Chemin, vbNormal)
Do While Fich <> ""
Fich = Dir
Loop
End Sub
Mais je ne vois pas comment faire pour récupérer la plage et décaler
l'écriture.
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
papou
Bonjour Avec quelque chose dans ce goût là, à adapter : Workbooks(F).Worksheets("Feuil1").Range("NomdeTaplage").Copy _ Thisworkbook.Worksheets("Feuil1").Range("A65536").End(xlup)(2)
Cordialement Pascal "Benj" a écrit dans le message de news:
Bonjour,
J'aimerais réaliser une macro qui parcourerait tout les fichiers .xls d'un dossier et qui en retirerait des plages (ayant toutes le même nom) pour ensuite les coller les unes à la suite des autres au démarrage d'un fichier excel.
Pour le moment j'ai créé la boucle parcourant le dossier :
Private Sub Workbook_Open()
Chemin = "U:Dossier*.xls" Fich = Dir(Chemin, vbNormal) Do While Fich <> ""
Fich = Dir Loop End Sub
Mais je ne vois pas comment faire pour récupérer la plage et décaler l'écriture.
Merci d'avance Benj
Bonjour
Avec quelque chose dans ce goût là, à adapter :
Workbooks(F).Worksheets("Feuil1").Range("NomdeTaplage").Copy _
Thisworkbook.Worksheets("Feuil1").Range("A65536").End(xlup)(2)
Cordialement
Pascal
"Benj" <Benj@discussions.microsoft.com> a écrit dans le message de news:
7344B47D-EA10-41F7-BC1C-98F3E900D983@microsoft.com...
Bonjour,
J'aimerais réaliser une macro qui parcourerait tout les fichiers .xls d'un
dossier et qui en retirerait des plages (ayant toutes le même nom) pour
ensuite les coller les unes à la suite des autres au démarrage d'un
fichier
excel.
Pour le moment j'ai créé la boucle parcourant le dossier :
Private Sub Workbook_Open()
Chemin = "U:Dossier*.xls"
Fich = Dir(Chemin, vbNormal)
Do While Fich <> ""
Fich = Dir
Loop
End Sub
Mais je ne vois pas comment faire pour récupérer la plage et décaler
l'écriture.
Bonjour Avec quelque chose dans ce goût là, à adapter : Workbooks(F).Worksheets("Feuil1").Range("NomdeTaplage").Copy _ Thisworkbook.Worksheets("Feuil1").Range("A65536").End(xlup)(2)
Cordialement Pascal "Benj" a écrit dans le message de news:
Bonjour,
J'aimerais réaliser une macro qui parcourerait tout les fichiers .xls d'un dossier et qui en retirerait des plages (ayant toutes le même nom) pour ensuite les coller les unes à la suite des autres au démarrage d'un fichier excel.
Pour le moment j'ai créé la boucle parcourant le dossier :
Private Sub Workbook_Open()
Chemin = "U:Dossier*.xls" Fich = Dir(Chemin, vbNormal) Do While Fich <> ""
Fich = Dir Loop End Sub
Mais je ne vois pas comment faire pour récupérer la plage et décaler l'écriture.
