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 :

Récupération valeur TextBox et ComboBox Word vers 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
    Février 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2013
    Messages : 1
    Par défaut Récupération valeur TextBox et ComboBox Word vers Excel
    Bonjour à tous,

    Pour mon premier post sur un forum, je viens vers vous pour m'aider à réaliser une macro que l'on me demande dans le cadre de mon apprentissage au sein d'une entreprise d'aéronautique.

    Je dois en effet créer un formulaire Word (déjà réalisé) et créer une macro me permettant de récupérer ces données sur un fichier Excel. Le problème est que je n'arrive pas à faire le lien entre les valeurs des TextBox et ComboBox du formulaire et le fichier excel.

    La macro complète devrait, suite à un clic sur un bouton présent sur le fichier Excel, proposer à l'utilisateur d'ouvrir un fichier Word et suite à ce choix copier les valeurs de quelques ComboBox et TextBox dans le tableur excel.

    En espérant être assez clair, je vous remercie d'avance.
    Jean-Baptiste.
    Fichiers attachés Fichiers attachés

  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,

    Essaie ceci :

    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
    Sub MacroWord()
        Dim WordObj As Object, Doc As Object, Item, Ligne As Long, Fich As String
        Fich = Application.GetOpenFilename("Word Files (*.doc), *.doc")
        If Fich <> "" Then
            Set WordObj = CreateObject("Word.Application")
            WordObj.Visible = True
            Set Doc = WordObj.Documents.Open(Fich)
            With Sheets("Feuil1")
                For Each Item In Doc.Fields
                    .[A1].Offset(Ligne) = Item.OLEFormat.Object.Text
                    Ligne = Ligne + 1
                Next Item
            End With
            Doc.Close
            WordObj.Quit
            Set Doc = Nothing
            Set WordObj = Nothing
        End If
    End Sub

Discussions similaires

  1. Pb de récupération dans un formulaire word vers excel.
    Par ericb9909 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/09/2014, 16h50
  2. De word vers Excel
    Par Kiefer_Sutherland dans le forum VBA Word
    Réponses: 8
    Dernier message: 11/09/2007, 15h38
  3. Macro import du texte Word vers Excel
    Par Bernard6773 dans le forum VBA Word
    Réponses: 6
    Dernier message: 05/09/2007, 10h42
  4. Réponses: 2
    Dernier message: 12/02/2007, 13h39
  5. données word vers excel
    Par EmmanuelN dans le forum VBA Word
    Réponses: 5
    Dernier message: 06/12/2006, 20h04

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