Discussion :

[73brunette73]

*Bonsoir,*

Pas trouvé de réponse sur le forum.

J'ai un champ ole dans un formulaire et dans les propriétés du champ il n'ya pas de case valeur par défaut.

Je dois cliquer droit sur le control et insérer un objet et aller choisir dans l'arborescence l'endroit ou se trouve mon petit fichier fait sous Paint.

Ce fichier est la base de mon shéma (que je modifie à chaque enregistrement !!) et à chaque enregistrement j'aimerai qu'il apparaisse automatiquement sans être obligée d'aller le chercher manuellement.

Merci d'avance

Brunette

[Jeannot45]

Voici un code que j'ai trouvé dans l'aide Access permettant d'alimenter un champ OLE.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Command1_Click
    OLE1.Class = "Excel.Sheet"    ' Définit le nom de classe.
    ' Spécifie le type d'objet.
    OLE1.OLETypeAllowed = acOLELinked
    ' Spécifie le fichier source.
    OLE1.SourceDoc = "C:\Excel\Oletext.xls"
    ' Spécifie les données avec lesquelles créer le lien.
    OLE1.SourceItem = "R1C1:R5C5"
    ' Crée l'objet lié.
    OLE1.Action = acOLECreateLink
    ' Ajuste la taille du contrôle.
    OLE1.SizeMode = acOLESizeZoom
End Sub

Il est basé sur l'implantation d'une feuille de calcul. Donc à adapter !

[73brunette73]

Bonsoir !

J'ai essayé ce code mais ca ne fonctionne pas.

J'ai meme crée un fichier excel nommé exactement de la meme facon que dans le code exemple mais il ne se passe rien.

Je cherche je cherche et comme d'habitude ca va etre bon quand je trouverai..................

Mais pour l'instant je m'arrache les cheveux lol

[73brunette73]

Bonjour, juste pour dire que c'est bon j'ai trouvé en bidouillant

[Jeannot45]

Bravo pour d'avoir trouvé une solution.
Pourrais-tu faire profiter la communauté de ta "bidouille"
Merci beaucoup