Discussion :

[Jay29]

Bonjour !

Je voudrais copier la feuille entière d'un classeur vers un autre. Cependant je voudrais le faire sans préciser le nom de ce classeur et sans l'ouvrir. En clair, je lancerai ma macro du classeur dans lequel je veux copier les données. J'ai essayé avec ce code cependant ça ne fonctionne pas il me copie les données sur la feuille source dans un autre onglet. Le voici :

Code :

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

1
2
3
4
5
6
nom = Application.GetOpenFilename("Nom fichier,*.xls")
Chemin = nom
Fichier1 = ActiveWorkbook.Name
Workbooks.Open Chemin, 0, ReadOnly:=False
Fichier2 = ActiveWorkbook.Name
Workbooks(Fichier1).Sheets(1).Copy Before:=Workbooks(Fichier2).Sheets(1)

Si vous avez des solutions n'hésitez pas !

Merci !

[jfontaine]

Bonjour,

Si ce sont uniquement les données d'un onglet que tu souhaites copier, il faut utiliser la copie d'une plage de cellules (Range) à la place de l'onglet (Sheet)

[Jay29]

Merci pour ta réponse.

Je viens d'essayer mais ca ne fonctionne pas .

En fait mon code fonctionne sauf qu'il me copie les données dans la mauvaise feuille. En effet je lui demande de me copier les données du fichier que j'aurai sélectionner et que j'appelle "nom" dans mon code et de les copier dans la feuille active cependant il me les collent dans le fichier "nom" et non dans la feuille active. J'espère que je suis clair dans mon explication.

Merci.

[mercatog]

Une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim NomFichier As Variant
Dim Fichier1 As Workbook, Fichier2 As Workbook
Application.ScreenUpdating = False
Set Fichier1 = ThisWorkbook
NomFichier = Application.GetOpenFilename("Nom fichier,*.xls")
 
If NomFichier <> False Then
    Set Fichier2 = Workbooks.Open(NomFichier, 0, ReadOnly:=False)
    Fichier2.Sheets(1).Copy Before:=Fichier1.Sheets(1)
    Fichier2.Close
    Set Fichier2 = Nothing
End If
Set Fichier1 = Nothing
Application.ScreenUpdating = True

le code dans fichier1

[Jay29]

Merci beaucoup pour ta proposition elle fonctionne à merveille !

Cependant j'ai une dernière petite question . Est-ce qu'il est possible de lui dire de copier le contenu dans le premier onglet et non pas dans un nouvel onglet. J'ai déduit que c'était l'argument "Before" qui déterminait où copier le contenu cependant j'ai essayé de le remplacer par "In" mais ça ne fonctionne pas.

Merci pour votre aide.

[mercatog]

Tu peux dans ce cas par exemple faire

Code :

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

Fichier2.Sheets(1).Cells.Copy Fichier1.Sheets(1).range("A1")