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 1263 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 novembre 2024 - 9 nov. 2020 à 15:19
danielc0 Messages postés 1263 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 novembre 2024 - 9 nov. 2020 à 15:19
A voir également:
- Référence externe
- Reference pto - Accueil - Box & Connexion Internet
- Chkdsk disque dur externe - Guide
- Dans le document à télécharger, 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
- Brancher lecteur dvd externe sur tv en usb - Forum Lecteurs et supports vidéo
- Batterie externe clignote ne charge pas - Forum Mobile
1 réponse
danielc0
Messages postés
1263
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
16 novembre 2024
142
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
