Discussion :

[joshua12]

Bonjour,
Je cherche à copier / coller (collage spécial valeur) toutes les feuilles d’un fichier excel dans une seule feuille d’un autre fichier Excel.

Pour cela je « place » ma macro dans le fichier Excel, et l’onglet de destination, avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Workbooks.Open Filename:="" + FichierExcelACopier + ""
Dim sh As Worksheet
For Each sh In Workbooks("" + FichierExcelACopier + "").Worksheets
    NomOnglet = sh.Name
    Workbooks("" + NomFichierXLS + "").Worksheets("" + NomOnglet + "").Cells.Copy _
            Destination:=Workbooks("NomXLSDestination").Worksheets("NomOngletDestination").Range("A1")
 
Next sh

Par contre je n’arrive pas à faire un collage special valeur ET à coller la 2° feuille à la suite du 1° collage dans l’onglet NomOngletDestination.
Je suis arrivé au max de mes compétences et je n'ai pas trouvé la solution sur le forum.
Est-ce que quelqu’un pourrait m’aider ? MERCI d'avance pour votre aide !

[Access Newbie]

Bonjour,

dans votre boucle, vous devez changer le range a chaque tour de boucle, sinon, il reecrit toujours sur la premiere ligne regarder du cote de selection.end(xldown) pour recuperer le dernier range de votre feuille :

a la fin de la boucle, avant le next, il faut faire quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbook....range("a1").select
selection.end(xldown)
newRange=ActiveCell.Address(RowAbsolute:=False,ColumnAbsolute:=False)

En esperant vous avoir aidé

[joshua12]

Merci pour la réponse. Ok pour coller à la suite, mais comment faire pour ne coller que les valeurs (collage spécial valeur) en fonction de mon code ?