Référence externe
Herve373
Messages postés
1
Statut
Membre
-
danielc0 Messages postés 2198 Date d'inscription Statut Membre Dernière intervention -
danielc0 Messages postés 2198 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
