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 :

Ecrire dans un champ Word [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Février 2012
    Messages
    277
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2012
    Messages : 277
    Par défaut Ecrire dans un champ Word
    Bonjour à tous,

    Je ne comprends pas pourquoi ma macro ne marche pas.

    J'ai une erreur d'exécution 13, incompatibilité en ligne 16, je pense que c'est dans la façon de nommée mon champ mais je ne trouve pas comment le nommé autrement.

    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
    28
    29
    30
    31
    32
    33
    34
    Sub Donnees_ChampWord()
        'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
        Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
     
        'ouvre session word
        Set WordApp = New Word.Application
        'ouvre du document Word
        Set WordDoc = WordApp.Documents.Open("C:\Users\Documents\2- Projets\Délégation\Formulaire.doc")
        'word est masqué pendant l'opération
        WordApp.Visible = True
     
     
        'Fields(1) : premier champ du document Word
        'Insertion du contenu de la cellule A1 dans le champ.
        WordDoc.Fields("N").Result.Text = Range("A2").Value
        WordDoc.Fields("P").Result.Text = Range("B2").Value
        WordDoc.Fields("F").Result.Text = Range("C2").Value
        WordDoc.Fields("Date").Result.Text = Now
        WordDoc.Fields("V").Result.Text = Range("F2").Value
        WordDoc.Fields("PQD").Result.Text = Range("D2").Value
        WordDoc.Fields("Vcp").Result.Text = Range("G2").Value
        WordDoc.Fields("VHCT").Result.Text = Range("H2").Value
        WordDoc.Fields("VCP").Result.Text = Range("I2").Value
        WordDoc.Fields("ATDV").Result.Text = Range("J2").Value
        WordDoc.Fields("EC").Result.Text = Range("K2").Value
        WordDoc.Fields("ENC").Result.Text = Range("L2").Value
        WordDoc.Fields("AOB").Result.Text = Range("M2").Value
        WordDoc.Fields("IB").Result.Text = Range("N2").Value
        'Ferme le document word en sauvegardant les modifications
        WordDoc.Close True
        'ferme la session Word
        WordApp.Quit
    End Sub

  2. #2
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Février 2012
    Messages
    277
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Février 2012
    Messages : 277
    Par défaut
    Je suis passé comme ça mais j'aurai préféré nommer les champ

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
        WordDoc.Fields(1).Result.Text = Range("A2").Value
        WordDoc.Fields(2).Result.Text = Range("B2").Value
        WordDoc.Fields(3).Result.Text = Range("C2").Value
        WordDoc.Fields(4).Result.Text = Date
        WordDoc.Fields(5).Result.Text = Range("F2").Value
        WordDoc.Fields(6).Result.Text = Range("D2").Value
        WordDoc.Fields(7).Result.Text = Range("G2").Value
        WordDoc.Fields(8).Result.Text = Range("H2").Value
        WordDoc.Fields(9).Result.Text = Range("I2").Value
        WordDoc.Fields(10).Result.Text = Range("J2").Value
        WordDoc.Fields(11).Result.Text = Range("K2").Value
        WordDoc.Fields(12).Result.Text = Range("L2").Value
        WordDoc.Fields(13).Result.Text = Range("M2").Value
        WordDoc.Fields(14).Result.Text = Range("N2").Value

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. ecrire dans un fichier word
    Par le_style dans le forum Struts 1
    Réponses: 3
    Dernier message: 30/05/2007, 13h01
  2. Ecrire dans un document Word
    Par belocom dans le forum VB.NET
    Réponses: 3
    Dernier message: 09/04/2007, 00h49
  3. Ecrire dans un fichier Word ?
    Par sebajedi dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 19/12/2006, 08h44
  4. [VBE] Ecrire dans un fichier Word
    Par Mut dans le forum VBA Word
    Réponses: 5
    Dernier message: 21/11/2006, 12h16
  5. [VB.NET] Ecrire dans un champs texte ecrit en HTML
    Par mael94420 dans le forum ASP.NET
    Réponses: 4
    Dernier message: 12/10/2006, 19h01

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