Macro copie de données d'un fichier à l'autre

[Sandrine123]

Bonjour,

J'aimerais de l'aide concernant une macro.

J'ai 2 fichiers : ORIGINE.xls et DESTINATION.xls

J'aimerais que lorsque je lance la macro, une fenetre s'ouvre et me permettre de sélectionner le fichier de destination.

Dans le fichier ORIGINE, les données sont en ligne et dans le fichier DESTINATION les données sont en colonne.

Le but de la macro serait de copier ces lignes et de les mettre dans les colonnes du fichier destination.

Il faut que la macro vérifie le code à trois lettres en colonne D du fichier ORIGINE, et copie les données correspondantes à ce code dans le fichier DESTINATION.

Par exemple la cellule E5 du fichier ORIGINE doit être copié dans la cellule F5 du fichier DESTINATION.
la cellule F5 doit être copié dans la cellule F6 du fichier DESTINATION.

Pour faire un autre exemple, la cellule E6 doit etre copié dans la cellule L5 du fichier destination.

Merci d'avance de votre aide.

 

[job75]

Re : Macro copie de données d'un fichier à l'autre

Bonjour Sandrine123,

Voyez les fichiers joints et cette macro dans le 1er :

Sub Transfert()
Dim r As Range, c As Range
ChDir ThisWorkbook.Path 'chemin à adapter
Set r = Range("D3", Range("D" & Rows.Count).End(xlUp))
If r.Row < 3 Then Exit Sub
On Error Resume Next
Application.Dialogs(xlDialogOpen).Show
On Error GoTo 0
If ActiveWorkbook.Name = ThisWorkbook.Name Then Exit Sub
Application.ScreenUpdating = False
For Each r In r
  If r <> "" Then
    Set c = Cells.Find(r, , xlValues, xlWhole)
    If Not c Is Nothing Then
      c(1, 4).Resize(12) = Application.Transpose(r(1, 2).Resize(, 12))
    End If
  End If
Next
End Sub

A+

 

[job75]

Re : Macro copie de données d'un fichier à l'autre

Re,

Notez que pour afficher uniquement les fichiers avec le mot "DESTINATION" on écrira :

Application.Dialogs(xlDialogOpen).Show "*DESTINATION*"

A+

 

[Sandrine123]

Re : Macro copie de données d'un fichier à l'autre

Bonjour Job75,

c'est top !
Merci beaucoup.

Bonne journée.