Référence externe
Fermé
Herve373
Messages postés
1
Date d'inscription
samedi 7 novembre 2020
Statut
Membre
Dernière intervention
7 novembre 2020
-
7 nov. 2020 à 12:29
danielc0 Messages postés 833 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 19 avril 2024 - 9 nov. 2020 à 15:19
danielc0 Messages postés 833 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 19 avril 2024 - 9 nov. 2020 à 15:19
A voir également:
- Référence externe
- Reference pto - Guide
- Chkdsk disque dur externe - Guide
- Peut on brancher un lecteur cd externe sur une voiture ✓ - Forum Autoradio
- Disque dur externe - Guide
- Dans le document, les références des pièces détachées sont affichées par pays, puis par type de pièces. réorganisez le document pour avoir : les pays dans l'ordre alphabétique : allemagne, espagne, france et italie ; et pour chaque pays, les pièces d'auto, de bateau et de moto dans cet ordre. quelle est la référence de la pièce en ligne 500 ? ✓ - Forum Windows
1 réponse
danielc0
Messages postés
833
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 avril 2024
74
Modifié le 9 nov. 2020 à 15:53
Modifié le 9 nov. 2020 à 15:53
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