Bonsoir,
la solution pour lire et extraire les informations sans ouvrir Excel :
avec classeur qui contient d’excellents codes de
SilkyRoad qui me semblent proches de mon besoin et que j'ai donc adapter.
Il y a deux points qui peuvent être amélioré :
Ajouter a la requête de recherche de numéro de téléphone WHERE
l'extraction de la variable tableau avec : exemple ci-dessous
- Range("B6").Resize(1, UBound(Tblo, 2)).Value = Application.Index(Tblo, y)
dans ce cas l'indice n’appartient pas à la sélection
J'ai donc contourné se problème (donc a amélioré)
Ps : Le code est dans le fichier excel : Import valeur cherchée
' ***************************************************************************************************************************
Pour exemple les noms des classeurs 1 / 2 / 3 sont stocké dans une variable tableau
' Nom des classeurs fermer pour aller lire les informations.
Dim TabClassFermer(1 To 3) As String
'Pour Exemple :
TabClassFermer(1) = "Classeur_1.xlsm"
TabClassFermer(2) = "Classeur_2.xlsm"
TabClassFermer(3) = "Classeur_3.xlsm"
le chemin sera a modifier :
Const CstPath As String = "C:\Users\laure\Desktop\lire classeur fermer vba\"
Idem l'endroit ou on colle le tableau
Sheets("Résultat").Cells(Sheets("Résultat").Cells(65536, 9).End(xlUp).Row + 1, 9)
etc. a adapter selon vos fcichiers
Laurent