Référence externe Fermé

Question

Bonjour 

J ai un fichier CSV avec 10 colonnes yyyymmddDONNEES.CSV
J'ai un tableau excel avec  20 colonnes, et les 10 premières sont vierges pour récupérer les données du fichier CSV
Je souhaiterais mettre dans une cellulle de mon fichier excel le nom du fichier CSV à, pour que les 10 autres colonnes de mon fichier excel se calcule avec les données de mon fichier CSV

danielc0 · Answer

Bonjour,

Avec le nom et le chemin du fichier en P1. Colle ce code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim CSV As Object
  If Target.Address = "$P$1" Then
    Set CSV = Workbooks.Open(Target.Value, local:=True)
    With CSV.Sheets(1)
      .Range("A1", .Cells(.Rows.Count, 10).End(xlUp)).Copy
      ThisWorkbook.Activate
      .Range("A1", .Cells(.Rows.Count, 10).End(xlUp)).Copy
      [A1].Select
      ActiveSheet.Paste
      CSV.Close false
    End With
  End If
End Sub

Cordialement.

Daniel

Référence externe

1 réponse

Discussions similaires