Discussion :

[Chabanus]

Bonjour,

J'ai deux fichiers Excel, qui n'ont pas la même structure et je souhaite insérer des données du premier fichier vers le deuxième.

Si
<les deux premières colonnes du premier fichier ont le même nom que ceux de des deux premières colonnes du deuxième fichier>
alors
<je copie la troisième colonne du premier fichier dans la troisième colonne du deuxième fichier.>

Savez-vous comment s'y prendre ou connaissez-vous s'il vous plait, un tutoriel qui me permettrait de faire cela ?

Merci d'avance.
Cordialement.

[arosec]

Bonsoir,

Voici un petit bout de code qui fera le boulot:

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
Sub test()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ws As Worksheet

'Créer une connexion avec le fichier à importer
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=C:\Perso\test.xls;Extended Properties=Excel 8.0;"
    .Open
End With

'Importer les données du fichier
Set rs = cn.Execute("SELECT * FROM [Feuil1$]")
Set ws = ThisWorkbook.Worksheets("Feuil1")
With ws
  .Select
  .Range("A2").CopyFromRecordset rs
End With
rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

End Sub

[Chabanus]

Merci beaucoup,

Je vais essayer .

Cordialement.