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 :
Merci par avance de me corriger ce sous-programme.
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
RéviAT
Partager