Discussion :

[qltmi]

Bonjour,
je voudrais copier des données entre 2 fichiers: feuille1 et feuille2.
La macro est appelée à partir de la feuille1, et elle devra copier des données vers la feuille2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub test
 
    Sheets("Empl").Select
    Range("A7:G29").Select
    Selection.Copy
 
    Dim XlBk as Excel.Workbook
    Set XlBk = New Workbook.add
    XlBk.Sheets(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
 
End Sub

Avec ce code je copier l'onglet Empl de la feuille1 dans la nouvelle feuille Excel, mais le problème c'est que je voudrai copier d'autres onglets de la feuille1, mais je n'arrive plus à y accéder parce que je suis bloqué dans la nouvelle feuille. J'ai pensé à déclarer une nouvelle variable Xlbk pour lui affecter la feuille1, mais je n'y arrive pas.
Merci pour votre aide.

[did103]

Bonjour,

La méthode copier/coller n'est pas obligatoirement très facile à utiliser.

Pourquoi tu ne fais pas une affectation simple entre les Range des 2 feuilles des classeurs?

Code :

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

Workbooks("ClassDest").Sheets("OngletDest").Range("A1:J10") = Workbooks("ClassSource").Sheets("OngletSource").Range("A1:J10")

[qltmi]

Bonjour,
la solution que tu propose oblige à avoir d'abord enregistré le fichier sous le nom ClassDest , c'est bien ça? parce que j'ai essayé ton code et il ne se passe rien.
En fait je voudrai créer un module qui sera placé dans le fichier source, et qui me permettra de copier (en valeur et format) un certain nombre d'élément appartenant à plusieurs onglets dans un fichier Excel qui apparaîtra dans l'écran mais sans l'enregistrer. Le problème, c'est que dès que j'ai fait une première copie, je narrive plus à reprendre le fichier source, je reste toujours dans le fichier de destination...
Merci.

[AlainTech]

Essaye de t'inspirer de ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test
 
    Dim wbkDest as Workbook
    Dim wbkOri As Workbook
    Set wbkOri = ThisWorkbook
    Set wbkDest = Workbooks.Add
    wbkOri.Sheets("Empl").Range("A7:G29").Copy
 
    wbkDest.Sheets(1).PasteSpecial Paste:=xlPasteValues
    wbkDest.Sheets(1).PasteSpecial Paste:=xlPasteFormats
 
End Sub

[qltmi]

Bonsoir,
merci ça marche parfaitement.