Discussion :

[ghisl1]

Bonjour

Je dois réaliser une macro sous Access, mais j’ai un problème.

La macro doit :
Récupérer un champ dans une table de type « integer » : INDEX_EXAMEN
Et un autre champs de type « objet OLE » (Microsoft Word) : COMPTE-RENDU

Ensuite je dois créer un fichier word avec le nom INDEX_EXAMEN
Et dans lequel il y aura le contenu de l’objet OLE ( un fichier word )

Ma requête est bonne, mais je ne sais pas comment récupérer l’objet OLE et ensuite faire que cette objet devienne un fichier word

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim NewDoc As String
 
Set db = CurrentDb
sql = "SELECT [COMPTE-RENDU].INDEX_EXAMEN, [COMPTE-RENDU].[COMPTE-RENDU] FROM [COMPTE-RENDU] WHERE ((([COMPTE-RENDU].[ID_COMPTE-RENDU])<50));"
' Ouverture du recordset
Set rst = db.OpenRecordset(sql, dbOpenDynaset)
 
rst.MoveNext
While rst.EOF <> True
NewDoc = rst.Fields(0).Value

J’ai testé 36000 méthodes vue sur le net pour enregistrer des objet OLE, mais aucune ne marche ( ou c’est moi qui fait n’importe quoi , voire un peu des 2 )

Si quelqu’un a la solution, ca m interesse

[argyronet]

Bonjour,

Si tu as incorporé un document Word dans un champ, il te faut regarder du coté de GetChunk() pour le reconstituer...
Euh, c'est une méthode assez cousue quand même.

Argy

[Arkham46]

bonjour,

sinon si la méthode getchunk est trop complexe, tu peux utiliser un champ OLE dans un formulaire; ça fait un peu bricolage mais bon ça marche... :

- un formulaire FORM_OLE en mode simple dont la source est ta table avec :
un control cadre d'objet dépendant COMPTE-RENDU
un control texte INDEX_EXAMEN

Tu ouvres le formulaire en mode caché avec un filtre sur l'examen à extraire, puis tu refermes le formulaire.

Code :

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

1
2
DoCmd.OpenForm "FORM_OLE", , , "INDEX_EXAMEN = 21", , acHidden
DoCmd.Close acForm, "FORM_OLE"

A l'ouverture du formulaire tu actives l'objet OLE puis tu le sauvegardes :

Code :

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

1
2
3
4
5
 
Private Sub Form_Open(Cancel As Integer)
[COMPTE-RENDU].Object.Activate
[COMPTE-RENDU].Object.SaveAs CurrentProject.Path & "/" & Me.INDEX_EXAMEN.Value & ".doc"
End Sub