Discussion :

[SpaceX]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Copie_Click()
    ' This macro will import a file into this workbook
    Sheets(1).Activate
    PathName = Range("G1").Value
    FileName = Range("G2").Value
    TabName = Range("G3").Value
    ControlFile = ActiveWorkbook.Name
    Workbooks.Open FileName:=Range("G1")
    ActiveSheet.Name = TabName
    Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1)
    Windows(FileName).Activate
    ActiveWorkbook.Close SaveChanges:=False
    Windows(ControlFile).Activate
End Sub

Ce bout de code permet d'importer une feuille de calcul d'un classeur A dans un classeur B, cette macro fonctionne très bien dans mon programme.

Cependant, je ne veux pas importer une feuille, je veux copier l'ensemble des données de la feuille "Feuil1" provenant du classeur A dans la "Feuil1" du classeur B.

Existe-il un copiage spécial à utiliser au lieu de --> Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1) ?

Avez vous des idées à me procurer svp ?

[Menhir]

Une combinaison de ça :
https://msdn.microsoft.com/fr-fr/lib.../ff840732.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx