Bonne journée de vendredi à chacun,
Voici une question sûrement basique pour beaucoup.
Dans un programme VBA, j’aimerais lire les données d’un classeur sans l’ouvrir. J’ai fait un sous-programme selon les instructions que j’ai trouvées dans un livre VBA. Mais il me donne l’erreur « 438 : Propriété ou méthode non gérée par cet objet. » Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub ChercheUnMot()
Application.ScreenUpdating = False
Dim iMot As Integer, Mot As String
Dim ObjetLexique As Workbook
iMot = InputBox("Peux-tu saisir le numéro du mot à chercher ?")
Set ObjetLexique = GetObject("D:\BaseDeDonnées\Lexique.xls")
' Essai dans succes : Mot = ObjetLexique.Sheet(1).Range("A" & iMot).Value
ObjetLexique.Sheet(1).Select
Mot = Cells(1, iMot)
MsgBox "Numéro du mot à chercher : " & iMot & "  Mot trouvé : " & Mot
ObjetLexique.Save
End Sub
Merci par avance de me corriger ce sous-programme.
RéviAT