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 Références

Références

16 réponses
Avatar
Luis
Bonjour,
Lorsque j'installe une base de donn=E9e dans un pc j'ai le=20
probl=E8me de r=E9f=E9rences charg=E9e, comme par exemple:
Manquant: Microsoft Office XP Web Components.

J'ai trouv=E9 un module int=E9r=E9ssant dans le site =E0 Raymond=20
pour charger les r=E9f=E9rences, je donne une toute petite=20
partie:

Const DAO_10 =3D "C:\Program Files\Fichiers=20
communs\Microsoft Shared\DAO\DAO360.dll"
Const Com2_10 =3D "c:\windows\system32\mscomct2.ocx"
Const ComCtl_10 =3D "c:\windows\system32\mscomctl.ocx"
Const Excel_10 =3D "C:\Program Files\Microsoft Office 2002
\OFFICE10\excel.exe"
Const Word_10 =3D "C:\Program Files\Microsoft Office 2002
\OFFICE10\msword.olb"
Const Office_10 =3D "C:\Program Files\Fichiers=20
communs\Microsoft Shared\OFFICE10\mso.dll"
Const Outlook_10 =3D "C:\Program Files\Microsoft Office 2003
\OFFICE11\msoutl.olb"

Je ne sais pas comment rajouter les r=E9f=E9rences =E0 charger=20
de fa=E7on =E0 ce qu'=E0 l'installation de la base sur d'autres=20
pc, il n'y ai plus ce probl=E8me.
Merci de l'aide.
Luis
Signaler un problème avec ce contenu

6 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
1 2
Avatar
Raymond [mvp]
tu as fait quoi hier ?
je t'ai dit d'aller en 1er sur http://access.vba.free.fr/nom_complet.htm
sur cette page il est indiqué:
La propriété FullPath permet de connaître le chemin complet et le nom du
fichier d'une référence.
Syntaxe:

ObjetRef.FullPath

Exemple: affichage de toutes les références de la base avec le nom, le
numéro de version et le nom complet du fichier.

Public Function RefsList() As String
On Error Resume Next
Dim Ref As Reference
For Each Ref In References
RefsList = RefsList & Ref.Name & ";" & Ref.Major & "." & Ref.Minor &
";" & Ref.FullPath & vbCrLf
Next Ref
End Function

dans le click d'un bouton ou dans une macro tu fais :
Debug.Print RefsList
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans le message de
news:06a401c48e86$9d16b750$
Je suis allé sur http://access.vba.free.fr/references.htm,
mais je ne vois pas.
Je dois être dans mes jours de gloire, pourtant je ne bois
que de la tisane.
Luis

-----Message d'origine-----
Parce que tu n'as pas lu mon site dédié à vba.
lis la page : http://access.vba.free.fr/nom_complet.htm
affichage de toutes les références de la base avec le
nom, le numéro de

version et le nom complet du fichier
relis à partir de :
http://access.vba.free.fr/references.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:28a001c48e7f$db0ed670$
Bonjour,
Oui j'oublie access, vba et OLE, car dans ce cas il faut
penser Windows.
Tu me dis que j'ai la liste dans les références.
C'est justement cette liste que je cherche et que je ne
trouve pas.
Car dans le tableau Références d'Access si je prend par
exemple la référence Microsoft Outlook 10.0 Objet Library
dans chemin d'accès je peux lire C:PROGRAM
FILESMICROSOFT OFFICEOFFICE10 et après je ne vois plus
rien car l'espace prévu pour cette ligne est trop court.
Si je veux aller le chercher avec parcourir, j'aimerai
connaître le nom de la référence.
Ceci est un exemple.

Moi je pense à une liste qui serai comme ça:

MSACC.OLB.................Microsoft Access 10 Objet
library

STDOLE2.TLB...............OLE Automation
PLUGIN.OCX................Microsoft ActiveX Plugin

Où l'on trouve la traduction dans un sens ou dans l'autre

Luis


.



Avatar
Luis
Ecoute, hier je n'ai rien fait d'autre que me prélasser,
j'avais décidé de me reposer enfin un Week end, j'ai peut-
être les neurones qui se sont concées?

J'ai fait comme tu l'explique mais j'avais déjà essayé car
j'avais lu http://access.vba.free.fr/nom_complet.htm, mais
je n'obtiens rien.
Je ne passe pas par une macro j'ai rajouté un bouton de
commande provisoirement sur le formulaire d'ouverture pour
essayer, j'obtiens rien.
Où est le piège.
Luis
-----Message d'origine-----
tu as fait quoi hier ?
je t'ai dit d'aller en 1er sur
http://access.vba.free.fr/nom_complet.htm

sur cette page il est indiqué:
La propriété FullPath permet de connaître le chemin
complet et le nom du

fichier d'une référence.
Syntaxe:

ObjetRef.FullPath

Exemple: affichage de toutes les références de la base
avec le nom, le

numéro de version et le nom complet du fichier.

Public Function RefsList() As String
On Error Resume Next
Dim Ref As Reference
For Each Ref In References
RefsList = RefsList & Ref.Name & ";" & Ref.Major
& "." & Ref.Minor &

";" & Ref.FullPath & vbCrLf
Next Ref
End Function

dans le click d'un bouton ou dans une macro tu fais :
Debug.Print RefsList
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:06a401c48e86$9d16b750$
Je suis allé sur http://access.vba.free.fr/references.htm,
mais je ne vois pas.
Je dois être dans mes jours de gloire, pourtant je ne bois
que de la tisane.
Luis

-----Message d'origine-----
Parce que tu n'as pas lu mon site dédié à vba.
lis la page : http://access.vba.free.fr/nom_complet.htm
affichage de toutes les références de la base avec le
nom, le numéro de

version et le nom complet du fichier
relis à partir de :
http://access.vba.free.fr/references.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:28a001c48e7f$db0ed670$
Bonjour,
Oui j'oublie access, vba et OLE, car dans ce cas il faut
penser Windows.
Tu me dis que j'ai la liste dans les références.
C'est justement cette liste que je cherche et que je ne
trouve pas.
Car dans le tableau Références d'Access si je prend par
exemple la référence Microsoft Outlook 10.0 Objet Library
dans chemin d'accès je peux lire C:PROGRAM
FILESMICROSOFT OFFICEOFFICE10 et après je ne vois plus
rien car l'espace prévu pour cette ligne est trop court.
Si je veux aller le chercher avec parcourir, j'aimerai
connaître le nom de la référence.
Ceci est un exemple.

Moi je pense à une liste qui serai comme ça:

MSACC.OLB.................Microsoft Access 10 Objet
library

STDOLE2.TLB...............OLE Automation
PLUGIN.OCX................Microsoft ActiveX Plugin

Où l'on trouve la traduction dans un sens ou dans l'autre

Luis


.





.




Avatar
Raymond [mvp]
faisons simple:
place ceci dans ton formulaire:

Private Sub Commande0_Click()
MsgBox RefsList
End Sub

Public Function RefsList() As String
On Error Resume Next
Dim Ref As Reference
For Each Ref In References
RefsList = RefsList & Ref.Name & ";" & _
Ref.Major & "." & Ref.Minor & _
";" & Ref.FullPath & vbCrLf
Next Ref
End Function

ne me dis pas que le msgbox ne marche pas ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans le message de
news:2b4a01c48e95$246b9c80$
Ecoute, hier je n'ai rien fait d'autre que me prélasser,
j'avais décidé de me reposer enfin un Week end, j'ai peut-
être les neurones qui se sont concées?

J'ai fait comme tu l'explique mais j'avais déjà essayé car
j'avais lu http://access.vba.free.fr/nom_complet.htm, mais
je n'obtiens rien.
Je ne passe pas par une macro j'ai rajouté un bouton de
commande provisoirement sur le formulaire d'ouverture pour
essayer, j'obtiens rien.
Où est le piège.
Avatar
Luis
Bonjour Raymond,
Oui le MsgBox marche, c'est moins pratique qu'une liste
imprimée mais c'est déjà une solution exploitable.
je te remercie pour tout.
Luis
-----Message d'origine-----
faisons simple:
place ceci dans ton formulaire:

Private Sub Commande0_Click()
MsgBox RefsList
End Sub

Public Function RefsList() As String
On Error Resume Next
Dim Ref As Reference
For Each Ref In References
RefsList = RefsList & Ref.Name & ";" & _
Ref.Major & "." & Ref.Minor & _
";" & Ref.FullPath & vbCrLf
Next Ref
End Function

ne me dis pas que le msgbox ne marche pas ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:2b4a01c48e95$246b9c80$
Ecoute, hier je n'ai rien fait d'autre que me prélasser,
j'avais décidé de me reposer enfin un Week end, j'ai peut-
être les neurones qui se sont concées?

J'ai fait comme tu l'explique mais j'avais déjà essayé car
j'avais lu http://access.vba.free.fr/nom_complet.htm, mais
je n'obtiens rien.
Je ne passe pas par une macro j'ai rajouté un bouton de
commande provisoirement sur le formulaire d'ouverture pour
essayer, j'obtiens rien.
Où est le piège.


.



Avatar
Raymond [mvp]
Si tu veux un formulaire regarde ici :
http://access.seneque.free.fr/telecharger/refs.zip

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans le message de
news:2c5801c48eae$294e7d80$
Bonjour Raymond,
Oui le MsgBox marche, c'est moins pratique qu'une liste
imprimée mais c'est déjà une solution exploitable.
je te remercie pour tout.
Luis
Avatar
Luis
Super, Merci Raymond.
A bientôt.
Luis
-----Message d'origine-----
Si tu veux un formulaire regarde ici :
http://access.seneque.free.fr/telecharger/refs.zip

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Luis" a écrit dans
le message de

news:2c5801c48eae$294e7d80$
Bonjour Raymond,
Oui le MsgBox marche, c'est moins pratique qu'une liste
imprimée mais c'est déjà une solution exploitable.
je te remercie pour tout.
Luis


.



1 2