[Sources]Récupérer le chemin d'un objet OLE [Fait] [Résolu]

[Mr.Gus]

Salut, j'ai un champ Monchamp dans un formulaire de type objet OLE.
J'aimerais récupérer dans un autre champ Recup, le chemin du fichier pointé par l'Objet OLE.

[Mr.Gus]

Bon je crois que j'ai posé une colle, ou alors je n'ai pas été clair.
Est-ce que un pro peut me dire ce qu'il en pense ?, notamment si c'est impossible......mais par principe rien n'est impossible

[Tofalu]

Posté le: Mer Mai 11, 2005 10:42
Posté le: Mer Mai 11, 2005 9:16

Tu crois sincérement qu'en une heure on a eu le temps de réflechir à ton problème ?

[Mr.Gus]

C'est pas vraiment la question.
D'habitude en 5 min j'ai presque résolu mon problème avec les réponses.

Cette fois, cà doit être un truc nouveau ou rare......
Avoue tout de même qu'elle est bien ma question,non ? 8)

[Tofalu]

Avoue tout de même qu'elle est bien ma question,non ?

Non !

Salut, j'ai un champ Monchamp dans un formulaire de type objet OLE.

Je ne connais pas de formulaire de type OLE. Un formulaire est un objet Access. pas OLE...

Ensuite, je ne vois pas l'intéret de connaitre le chemin de l'objet puisque l'objet est stocké dans la table

[Mr.Gus]

Je sens un léger énervement. En informatqiue, ne jamais s'énerver.
Je rectifie ma phrase :

"j'ai un champ Monchamp de type Objet OLE, dans un formulaire.
Je veux afficher dans un champ Recup le chemin pointé par l'objet."

Pourquoi ?
Parce que je veux que les objets soient liés et non, incorporés mais que je veux tout de même avoir un aperçu de l'objet dans un autre champ du formulaire.
Donc l'aperçu j'arrive à le faire à partir de l'adresse de l'objet......mais j'arrive pas à récupérer l'adresse.

[Tofalu]

Je sens un léger énervement

Non c'est juste que faire un UP de ton message aprés seulement une heure c'est vraiment pas cool

Maintenant ta question devient une colle

Je viens de lister l'ensemble des propriétés d'un objet OLE et je ne vois pas de nom du fichier

EventProcPrefix : IndépendantOLE0
Name : IndépendantOLE0
ControlType : 114
SizeMode : 0
OLEClass : Package
Item :
RowSourceType :
RowSource :
LinkChildFields :
LinkMasterFields :
AutoActivate : 2
DisplayType : Faux
UpdateOptions : 0
Verb : 0
OLEType : 1
OLETypeAllowed : 1
SourceObject :
Class : Package
SourceDoc :
SourceItem :
ColumnCount : 0
ColumnHeads : Faux
Visible : Vrai
DisplayWhen : 0
Enabled : Faux
Locked : Vrai
StatusBarText :
TabStop : Vrai
TabIndex : 0
Left : 0
Top : 0
Width : 2721
Height : 1134
BackStyle : 1
BackColor : 16777215
SpecialEffect : 2
BorderStyle : 1
OldBorderStyle : 1
BorderColor : 0
BorderWidth : 0
BorderLineStyle : 0
ShortcutMenuBar :
ControlTipText :
HelpContextId : 0
Section : 0
Tag :
LpOleObject : 2211860
ObjectVerbsCount : 3
OnUpdated :
OnEnter :
OnExit :
OnGotFocus :
OnLostFocus :
OnClick :
OnDblClick :
OnMouseDown :
OnMouseMove :
OnMouseUp :

Si tu veux essayer avec tes objets :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande1_Click()
Dim p As Property
Dim strchaine As String
For Each p In Me.IndépendantOLE0.Properties
afficher p, strchaine
Next
Me.Texte2 = strchaine
End Sub
Sub afficher(p As Object, strchaine As String)
On Error GoTo err
strchaine = strchaine & p.Name & " : " & p.Value & vbCrLf
err:
End Sub

Place un objet ole ici (IndépendantOLE0), une zone de texte (texte2) et un bouton

[Mr.Gus]

Donc j'ai essayé le code, çà m'affiche la liste des propriétés de l'objet.
Mais je n'y vois rien avec l'adresse (chemin) du fichier.
La proprété SourceDoc est vide.
snif
Il commence à me faire flipper ce problème

[vmolines]

http://www.google.fr/search?hl=fr&q=ole+object+path&meta=

[Mr.Gus]

YOUPI!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C'est exactement çà.

Merci bcp
a+