Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access erreur DLL dans module VB

erreur DLL dans module VB

4 réponses
Avatar
Phil
j'ai un module qui contient dans Access XP (2002)

Set Fs = Application.FileSearch
With Fs
.NewSearch
.LookIn = repertoire
.FileName = "Tm???.dbf"
.SearchSubFolders = False
.MatchTextExactly = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Rs.AddNew
fichier = Right$(.FoundFiles(i), Len(.FoundFiles(i)) -
Len(repertoire))
'MsgBox fichier
Rs!fichier = fichier
Rs.Update
Next i
Else
MsgBox "Aucun fichier ""Tmxxx.dbf"" trouvé "
End If
End With

Lorsque je compile ce module j'obtiens l'erreur suivante
Erreur de compilation
Erreur de Chargement de la DLL

sur l'expression ".filesearch"
j'ai contrôlé les DLL validées sans résultats

Merci de m'aider si vous connaissez la solution
Phil-87.85
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

cocher la référence Microsoft Office 10

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Phil" a écrit dans le message de news:

j'ai un module qui contient dans Access XP (2002)

Set Fs = Application.FileSearch
With Fs
.NewSearch
.LookIn = repertoire
.FileName = "Tm???.dbf"
.SearchSubFolders = False
.MatchTextExactly = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Rs.AddNew
fichier = Right$(.FoundFiles(i), Len(.FoundFiles(i)) -
Len(repertoire))
'MsgBox fichier
Rs!fichier = fichier
Rs.Update
Next i
Else
MsgBox "Aucun fichier ""Tmxxx.dbf"" trouvé "
End If
End With

Lorsque je compile ce module j'obtiens l'erreur suivante
Erreur de compilation
Erreur de Chargement de la DLL

sur l'expression ".filesearch"
j'ai contrôlé les DLL validées sans résultats

Merci de m'aider si vous connaissez la solution
Phil-87.85




Avatar
Phil
j'ai controlé les très nombreuses dll proposées mais aucune n'a comme nom
microsoft office 10

j'ai microsoft access 10.0 object library qui est coché mais cela ne
fonctionne pas.
où puis-je trouver cette DLL ?
ou comment faire pour l'installer ?
merci de votre aide

"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir.

cocher la référence Microsoft Office 10

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Phil" a écrit dans le message de news:

j'ai un module qui contient dans Access XP (2002)

Set Fs = Application.FileSearch
With Fs
.NewSearch
.LookIn = repertoire
.FileName = "Tm???.dbf"
.SearchSubFolders = False
.MatchTextExactly = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Rs.AddNew
fichier = Right$(.FoundFiles(i), Len(.FoundFiles(i)) -
Len(repertoire))
'MsgBox fichier
Rs!fichier = fichier
Rs.Update
Next i
Else
MsgBox "Aucun fichier ""Tmxxx.dbf"" trouvé "
End If
End With

Lorsque je compile ce module j'obtiens l'erreur suivante
Erreur de compilation
Erreur de Chargement de la DLL

sur l'expression ".filesearch"
j'ai contrôlé les DLL validées sans résultats

Merci de m'aider si vous connaissez la solution
Phil-87.85








Avatar
Raymond [mvp]
elle s'appelle exactement Microsoft Office 10.0 object library et elle est
présente dans la liste obligatoirement.
je ne connais pas la déclaration de l'objet FS ? il n'est pas nécessaire.
tu as un exemple de filesearch qui fonctionne sur la page:
http://officesystem.access.free.fr/vba/filesearch.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Phil" a écrit dans le message de news:
%
j'ai controlé les très nombreuses dll proposées mais aucune n'a comme nom
microsoft office 10

j'ai microsoft access 10.0 object library qui est coché mais cela ne
fonctionne pas.
où puis-je trouver cette DLL ?
ou comment faire pour l'installer ?
merci de votre aide



Avatar
Phil
elle n'était pas dans la liste mais en faisant parcourir je l'ai trouvé sous
C:Program FilesFichiers communsMicrosoft Sharedmso.dll
elle est maintenant dans la liste et mon pb est résolu
merci de votre aide

"Raymond [mvp]" a écrit dans le message de
news:
elle s'appelle exactement Microsoft Office 10.0 object library et elle est
présente dans la liste obligatoirement.
je ne connais pas la déclaration de l'objet FS ? il n'est pas nécessaire.
tu as un exemple de filesearch qui fonctionne sur la page:
http://officesystem.access.free.fr/vba/filesearch.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Phil" a écrit dans le message de news:
%
j'ai controlé les très nombreuses dll proposées mais aucune n'a comme
nom


microsoft office 10

j'ai microsoft access 10.0 object library qui est coché mais cela ne
fonctionne pas.
où puis-je trouver cette DLL ?
ou comment faire pour l'installer ?
merci de votre aide