IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

VBA : export objet OLE


Sujet :

Access

  1. #1
    Candidat au Club
    Inscrit en
    Novembre 2004
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Novembre 2004
    Messages : 2
    Points : 2
    Points
    2
    Par défaut VBA : export objet OLE
    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

  2. #2
    Rédacteur/Modérateur
    Avatar de argyronet
    Homme Profil pro
    Panseur de bobos en solutions ETL
    Inscrit en
    Mai 2004
    Messages
    5 128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Panseur de bobos en solutions ETL
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2004
    Messages : 5 128
    Points : 12 185
    Points
    12 185
    Billets dans le blog
    5
    Par défaut
    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

  3. #3
    Expert éminent sénior
    Avatar de Arkham46
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    5 865
    Détails du profil
    Informations personnelles :
    Localisation : France, Loiret (Centre)

    Informations forums :
    Inscription : Septembre 2003
    Messages : 5 865
    Points : 14 526
    Points
    14 526
    Par défaut
    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

Discussions similaires

  1. [Toutes versions] Détecter via VBA les objets OLE dans un Word
    Par ORESYS dans le forum VBA Word
    Réponses: 3
    Dernier message: 04/10/2022, 18h42
  2. [XL-2002] exportation objet OLE
    Par noviceVB dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 15/08/2009, 16h21
  3. VBA : Export objet OLE dans fichier bmp, jpg
    Par gérard95 dans le forum VBA Access
    Réponses: 4
    Dernier message: 03/10/2007, 16h29
  4. Insertion documents word dans champ objet OLE sous VBA
    Par frankouche dans le forum Access
    Réponses: 4
    Dernier message: 20/12/2006, 22h35
  5. [VBa-E] question(s) sur l'objet OLE "image Bitmap"!
    Par gootsu dans le forum Macros et VBA Excel
    Réponses: 41
    Dernier message: 28/07/2006, 18h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo