Problème pour récupérer des données dans 1 fichier excel fermé
Fermé
max9292
Messages postés
1
Date d'inscription
jeudi 14 mars 2019
Statut
Membre
Dernière intervention
14 mars 2019
-
14 mars 2019 à 11:16
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 14 mars 2019 à 15:02
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 14 mars 2019 à 15:02
A voir également:
- Problème pour récupérer des données dans 1 fichier excel fermé
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Formule excel - Guide
- Fichier host - Guide
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
Modifié le 14 mars 2019 à 15:14
Modifié le 14 mars 2019 à 15:14
Bonjour,
Cette ligne crée une plage nommée, nommée plage.
C'est inutile et cela risque de générer une erreur si il existe déjà une plage nommée ainsi.
De façon générique, j'aurais écrit :
L'inconvénient de cette méthode est qu'il faut connaître le nom de la feuille source (dans l'exemple Feuil1)
Cordialement
Patrice
Cette ligne crée une plage nommée, nommée plage.
C'est inutile et cela risque de générer une erreur si il existe déjà une plage nommée ainsi.
De façon générique, j'aurais écrit :
Sub ImporterDonneesSansOuvrir()
Dim destination As Range
Dim chemin$, fichier$, formule$, plage$
' Définir la source
chemin = "C:\Users\HDDinner\Documents"
fichier = "DDdj3Iojvex_source.xls"
plage = "$A$1:$F$10"
' Définir la destination (par exemple C4:H13 )
With Worksheets(1)
Set destination = .Range("C4")
With .Range(plage)
Set destination = destination.Resize(.Rows.Count, .Columns.Count)
End With
End With
' Lire le fichier fermé
formule = "='" & chemin & "\[" & fichier & "]Feuil1'!" & plage
With destination
.FormulaArray = formule
.Value = .Value
End With
End Sub
L'inconvénient de cette méthode est qu'il faut connaître le nom de la feuille source (dans l'exemple Feuil1)
Cordialement
Patrice