Référence externe
Herve373
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention -
danielc0 Messages postés 1859 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
A voir également:
- Référence externe
- Chkdsk disque dur externe - Guide
- Reference pto - Accueil - Box & Connexion Internet
- Batterie externe clignote ne charge pas - Forum Mobile
- Appel externe c'est quoi - Forum telephonie fixe
- Je n'entends pas mon correspondant - Forum telephonie fixe
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
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
