Discussion :

[TaleMaker]

Re-Bonjour à tous,

Comment fait-on pour enregistrer des données d'un classeur à l'autre, et d'une manière générale, échanger des données d'un fichier à un autre comme on le ferait avec 2 onglets ?


Merci d'avance,
Phil....

[frolland46]

Bonjour,

On peut déplacer ou copier des onglets d'un fichier à un autre en cliquant sur le bouton droite sur le nom de l'onglet et sélectionner la commande déplacer ou copier... . Si deux onglets sont sélectionnés, les deux seront copiés ou déplacés.
Pour ce qui est des données dans les cellules, les deux fichiers doivent être ouverts et on utilise l'objet Workbook.

exemple:

Code :

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

1
2
 
Workbook("Fichier1.xls").Worksheets("Onglet1").Range("A1").Copy

Salutations

[TaleMaker]

Justement, le truc c'est de ne pas toucher autres fichiers, et il ne faut pas changer les onglets de place parce que sinon ça devient l'enfer, j'ai une trentaine d'onglets sur 4 fichiers qui doivent s'échanger des informations....

[fred65200]

bonjour
tu peux essayer quelque chose comme ça

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
Dim Wb1 As Workbook
Dim Wb2 As Workbook
 
Dim Wb1F1 As Worksheet
Dim Wb1F2 As Worksheet
 
Dim Wb2F1 As Worksheet
Dim Wb2F2 As Worksheet
 
Sub MettreAJour()
 
Set Wb1 = Workbooks("Classeur1.xlsm")
Set Wb1 = Workbooks("Classeur2.xlsm")
 
Set Wb1F1 = Wb1.Sheets("Feuil1")
Set Wb1F2 = Wb1.Sheets("Feuil2")
 
Set Wb2F1 = Wb1.Sheets("Feuil1")
Set Wb2F2 = Wb1.Sheets("Feuil2")
 
Wb2F2.Range("B1") = Wb1F1.Range("A1")
Wb2F2.[B2] = Wb1F1.[c1]
 
MonReset
End Sub
 
Sub MonReset()
On Error Resume Next
Set Wb1 = Nothing
Set Wb1 = Nothing
 
Set Wb1F1 = Nothing
Set Wb1F2 = Nothing
 
Set Wb2F1 = Nothing
Set Wb2F2 = Nothing
 
On Error Goto 0
 
End Sub

brut

cordialement

[TaleMaker]

Merci, ça marche niquel....