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

Macros et VBA Excel Discussion :

Extraction données formulaire Word via VBA Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Par défaut Extraction données formulaire Word via VBA Excel
    Bonjour,

    J'ai réalisé un formulaire sur Word à l'aide de boutons radio (ou option button). Je souhaite pouvoir extraire les données afin de les traiter dans un tableur Excel. Voici le code que j'ai fait :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
      Dim appWord As Word.Application
        Set appWord = CreateObject(Class:="Word.Application")
        appWord.Visible = True
        appWord.Documents.Open Filename:=pathToDocument, ReadOnly:=True
     
        Dim DocWord As Word.Document
        Set DocWord = GetObject(pathToDocument)
        DocWord.Activate
     
        j = 1
        iField = 1
        iQuestion = 0
        iPart = 0
     
        Dim oShape As Word.InlineShape
        For Each oShape In DocWord.InlineShapes()
            Dim myObj As Object
            *With oShape.OLEFormat.Activate
                Set myObj = oShape.OLEFormat.Object
            End With
            If myObj.Value = True Then
                Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 1
            Else
                 Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 0
            End If
     
           (...)
    Le gros problème est que j'ai toujours le même message d'erreur qui s'affiche :
    "Object Variable or With Block Variable not Set". Quand je debug, il me surligne la ligne * en me disant que myObj = nothing.

    Est-ce que quelqu'un saurait m'aider ? Pour info, je suis sous Office 2010.

    Merci d'avance

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Je ne suis pas un pro du VBA Word. Est-ce que tu peux mettre un formulaire sans données confidentielles en PJ ?

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    bonjour,

    et elle est censé servir à quoi cette ligne ? revoit l'utilisation de with ..

  4. #4
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Par défaut
    J'utilise du VBA Excel pour récupérer des données dans un doc Word (principalement des radio boutons), afin de pouvoir mettre ces données dans un tableur excel. Je vous mets un exemple en PJ de ce qui pourrait être dans mon formulaire.

    Merci!

    J'ai essayé pas mal de solutions avec ou sans with, et le problème est toujours le même. Dès que j'introduis OLEFormat, il bug avec ce même message d'erreur

    J'ai essayé avec :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    For Each oShape In DocWord.Shapes()
        Dim myObj As Object
        Set myObj = oShape.OLEFormat.Object
        If myObj.Value = True Then
            Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 1
        Else
            Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 0
        End If

    Ca ne marche toujours pas..
    Fichiers attachés Fichiers attachés

  5. #5
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Ce code fonctionne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
        Dim appWord As Word.Application
        Set appWord = CreateObject(Class:="Word.Application")
        appWord.Visible = True
        'pathToDocument = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\jojoSuperFripouille Test.docx"
        appWord.Documents.Open Filename:=pathToDocument, ReadOnly:=True
     
        Dim DocWord As Word.Document
        Set DocWord = GetObject(pathToDocument)
        DocWord.Activate
     
        j = 1
        iField = 1
        iQuestion = 0
        iPart = 0
     
        Dim oShape As Word.InlineShape
        For Each oShape In DocWord.InlineShapes()
            Dim myObj As Object
            Set myObj = oShape.OLEFormat.Object
            If myObj.Value = True Then
                Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 1
            Else
                 Application.Workbooks(1).Worksheets(iPart + 1).Cells(i, j).Value = 0
            End If
        Next

Discussions similaires

  1. Réponses: 2
    Dernier message: 06/03/2014, 23h15
  2. [XL-2002] Compléter un formulaire Word via Excel (Erreur 642)
    Par BF999 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/08/2011, 15h59
  3. [XL-2002] Erreur 642 - Compléter un formulaire Word via Excel
    Par BF999 dans le forum Excel
    Réponses: 0
    Dernier message: 08/08/2011, 00h30
  4. manipuler word via vba excel
    Par Patnel dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 04/02/2011, 11h06
  5. Insérer un Tableau excel dans Word via VBA depuis Excel
    Par Godzestla dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 14/05/2008, 08h52

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