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

VBA Word Discussion :

Indiquer un tableau dans une zone de texte word à partir de Excel


Sujet :

VBA Word

  1. #1
    Membre régulier
    Inscrit en
    Avril 2010
    Messages
    257
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 257
    Points : 87
    Points
    87
    Par défaut Indiquer un tableau dans une zone de texte word à partir de Excel
    Bonjour,

    J'ai un petit soucis avec mon code vba.
    en effet j'utilise ce code pour identifier un tableau dans un fichier word et le remplir :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    WordDoc.Tables(1).Rows.Add
                    WordDoc.Tables(1).Columns(1).Cells(NbLign + 2).Range.Text = "Total"
                    WordDoc.Tables(1).Columns(2).Cells(NbLign + 2).Range.Text = Format(tot, "#,0")
    cependant j'ai cette fois si un tableau dans une zone de texte et je ne sais comment m'y prendre , j'ai une erreur après avoir essayé ce bout de code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    WordDoc.Shapes(1).Tables(1).Rows.Add
    quelqu'un aurait une solution à ce problème ?

  2. #2
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Je pense que tu dois passer par une sélection et utiliser le tableau de cette sélection.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveDocument.Shapes(1).Select
    Selection.Tables(1).Cell(1, 1).Range.Text = "moi"
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  3. #3
    Membre régulier
    Inscrit en
    Avril 2010
    Messages
    257
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 257
    Points : 87
    Points
    87
    Par défaut
    j'ai une erreur : objet requis sur cette ligne.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveDocument.Shapes(1).Select

  4. #4
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Dans ton cas, c'est l'objet WordDoc.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  5. #5
    Membre régulier
    Inscrit en
    Avril 2010
    Messages
    257
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 257
    Points : 87
    Points
    87
    Par défaut
    après avoir remplacé ActiveDocuments par WordDoc dans mon code , j'ai cette erreur : propriété ou méthode non gérée par cet objet à cette ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.Tables(1).Rows.Add
    voici mon code complet de cette partie :
    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
    'Gestion du tableau
                    NbLign = Lign - 20
                    NvLign = 20
                    WordDoc.Shapes(1).Select
                    For Cel = 2 To (NbLign + 1)
                        Selection.Tables(1).Rows.Add
                        Selection.Tables(1).Columns(1).Cells(Cel).Range.Text = Range("C" & NvLign)
                        Selection.Tables(1).Columns(2).Cells(Cel).Range.Text = Format(Range("D" & NvLign), "#,0")
                        NvLign = NvLign + 1
                    Next Cel
     
                    Selection.Tables(1).Rows.Add
                    Selection.Tables(1).Columns(1).Cells(NbLign + 2).Range.Text = "Total"
                    Selection.Tables(1).Columns(2).Cells(NbLign + 2).Range.Text = Format(tot, "#,0")
     
                    Selection.Tables(1).Rows(1).shading.backgroundpatterncolor = RGB(160, 160, 160)
                    Selection.Tables(1).Rows(NbLign + 2).shading.backgroundpatterncolor = RGB(160, 160, 160)
                    Selection.Tables(1).Rows(1).HeadingFormat = True

  6. #6
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    ton tableau est un tableau Word ou Excel ?
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  7. #7
    Membre régulier
    Inscrit en
    Avril 2010
    Messages
    257
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 257
    Points : 87
    Points
    87
    Par défaut
    c'est un tableau Word qui est rempli à partir d'un tableau Excel.
    finalement j'ai enlever le cadre qui créait le soucis vu qu'il était juste décoratif, afin de régler le problème.
    Merci quand même pour votre aide.

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

Discussions similaires

  1. Masque de saisie dans une zone de texte d'un formulaire Excel
    Par guillaume846 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/04/2014, 17h37
  2. Créer un tableau dans une zone de texte avec des grilles
    Par handerson dans le forum GTK+ avec C & C++
    Réponses: 8
    Dernier message: 20/08/2013, 22h43
  3. afficher contenu d'un tableau dans une zone de texte
    Par michaellynx dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 10/12/2008, 14h35
  4. Code de séléctionnement dans une zone de texte
    Par ghyosmik dans le forum Balisage (X)HTML et validation W3C
    Réponses: 4
    Dernier message: 11/10/2005, 14h46
  5. Exclusion de caractere dans une zone de texte
    Par martsigo dans le forum Access
    Réponses: 7
    Dernier message: 23/08/2005, 21h03

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