Discussion :

[scoubi77]

Bonsoir à tous,

Je viens vers vous pour vous exposer mon problème.
Depuis Excel grâce à une macro je construis un tableau dans une feuille Word.
Mon problème vient pour la mise en forme des données récupérées dans la 5ème colonnes de mon tableau (chaque ligne de cette colonne est construite par 4 cellules venant Excel, le Nom, l'adresse...). Je voudrais avoir un centrage du texte à gauche, que le nom soit en Majuscule gras et le reste en minuscule.
Y a t'il une solution en vba Word ? car l'import dans Excel me fait perdre cette mise en forme ?

Cordialement
Scoubi

[Sepia]

Salut scoubi77

Bonsoir à tous,

Je viens vers vous pour vous exposer mon problème.
Depuis Excel grâce à une macro je construis un tableau dans une feuille Word.
Mon problème vient pour la mise en forme des données récupérées dans la 5ème colonnes de mon tableau (chaque ligne de cette colonne est construite par 4 cellules venant Excel, le Nom, l'adresse...). Je voudrais avoir un centrage du texte à gauche, que le nom soit en Majuscule gras et le reste en minuscule.
Y a t'il une solution en vba Word ? car l'import dans Excel me fait perdre cette mise en forme ?

Cordialement
Scoubi

Oui, il y a des commandes en VBA pour les mises en forme de paragraphe (centré), de caractères, de styles...

Si tu connais ta cellule, c'est simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    ' Paragraphe centré pour le 1er tableau du document, 1ère ligne et la 1ière colonne
    ActiveDocument.Tables(1).Cell(1, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
    ' Texte en Majuscules et gras pour le 1er tableau du document, 1ère ligne et la 2ième colonne
     ActiveDocument.Tables(1).Cell(2, 2).Range.Case = wdUpperCase
    ActiveDocument.Tables(1).Cell(2, 2).Range.Font.Bold = True
 
    ' Texte en minuscules pour le 1er tableau du document, 1ère ligne et la 3 dernières colonnes
    For aI = 3 To 5
        ActiveDocument.Tables(1).Cell(2, aI).Range.Case = wdLowerCase
    Next

@+

[scoubi77]

Bonjour et un grand merci,

Je vais essayer cela dès ce soir, en fait mon tableau word s'agrandti en fonction du nombres de lignes à récupérer dans excel.
Peut-on appliquer une mise en forme pour la colonne 5 à toutes les lignes et pages du tableau qui va se créer automatiquement ?
Cordialement
Scoubi

[scoubi77]

Re bonjour,

Si j'ai bien compris le code ( un peu différent du code vba excel !!! Et je reste grandement dubitatif sur l'enregistreur de macro word !!!)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ActiveDocument.Tables(1).Cell(5, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

Correspondrait au premier tableau colonne 5, ligne 1 ?
J'ai besoin d'avoir (5, 1) en majuscule et en gras en police Time new roman, taille 9 et centré à gauche.
Et de (5, 2) à (5, x) minuscule, Time new roman taille 9, centré à gauche.
Et ce sur toute la colonne 5 des différentes lignes et pages qui se créeront.
Espérant être claire car de (5, 1 ) à (5, x ) doivent être dans une même celulle
en voici un exemple


Je vais essayer en rajoutant (1, 1).rows (1) qui pourrais correspondre à 1er ligne 1 er colonne et 1 er ligne à l'intérieur ?
Un grand merci pour ton aide
Scoubi

[scoubi77]

uhm mon idée d'ajouter .rows (2 ) marche pas

[Sepia]

Salut scoubi77,

uhm mon idée d'ajouter .rows (2 ) marche pas

Non, ton idée d'utiliser rows(2) est bonne mais il faut remplacer ".cell(<ligne>, <col>)" par ".rows(<col>)".

@+

[scoubi77]

Bonjour Sepia,

Merci pour ton aide mais débutant en Vba Word je reste un peu perdu et je me base sur mon Vba Excel.
Pourrais tu me donner un exemple car si je retire ".cell(<ligne>, <col>)" par ".rows(<col>)" je ne repère plus la 5em colonne et de mon tableau !!!

Je recherche aussi (car je construis ce tableau en fonction des données récupérées dans Excel donc le nombre de lignes et de pages peut être aléatoire) à copier cette mise en page de la colonne 5 de mon tableau sur toute sa longueur.
Peut-on aussi associer une police et taille particulière ? par exemple time new roman taille 9 ?
Merci pour ton aide
Scoubi

[scoubi77]

De plus si je crée un fichier Word et que je programme un changement dans un tableau ça fonctionne très bien (pas encore avec tout ce que je souhaite mais quand je l'adapte à mon fichier Word qui me sert de masque pour construire mon fichier Word de récupération des données Excel j'obtient l'erreur 5941 Le membre requis de la collection n'existe pas !!!

J'avoue être un poil dérouté !!!

Merci par avance pour tous pour vos aides précieuses.

[Sepia]

Salut scoubi77,

Si tu utilises le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ActiveDocument.Tables(1).Cell(5, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

il faut que tu es un tableau dans ton document sinon une erreur du type "Le membre requis de la collection n'existe pas !!!" survient et donc si tu modifies un document qui a un tableau, le code que je t'ai fourni va fonctionner (au moins pour cette partie). Donc soit tu ajoutes un tableau comme tu l'as décrit dans ton "masque" soit tu dois le créer par du code, comme ça dépend de ton fonctionnement, on ne peut décider pour toi. Donne nous plus d'infos si tu veux qu'on t'aide plus efficacement pour le code.

@+

[Papou93]

Bonjour à tous,

Je me permets de m'immiscer sur ce fil car j'ai exactement le même problème que scoubi77.

Dans mon cas, c'est la cellule Word en 6ème colonne qui est constituée de 4 lignes issues de 4 cellules Excel distinctes. Et là aussi, j'aimerais que la 1ère ligne soit en Majuscule-Gras, sachant que la concaténation des cellules se fait par la macro Excel au moyen de retours chariot pour chacune des 4 cellules. Et c'est bien là le problème: les solutions données jusqu'à présent par Sepia s'appliquent à la totalité de la cellule Word, et non à la 1ère ligne uniquement.

J'ai aussi de mon côté enregistré une macro dans Word mais je ne parviens pas à la faire fonctionner dans Excel.

Dans l'attente d'une éventuelle réponse, je continue à tester toutes les solutions qui voudront bien germer dans mon esprit. Et, si j'en trouve une qui répond parfaitement au besoin, je ne manquerai pas de venir l'exposer sur ce fil.

Cordialement.

[Sepia]

Salut Papou93,

Dans mon cas, c'est la cellule Word en 6ème colonne qui est constituée de 4 lignes issues de 4 cellules Excel distinctes. Et là aussi, j'aimerais que la 1ère ligne soit en Majuscule-Gras, sachant que la concaténation des cellules se fait par la macro Excel au moyen de retours chariot pour chacune des 4 cellules. Et c'est bien là le problème: les solutions données jusqu'à présent par Sepia s'appliquent à la totalité de la cellule Word, et non à la 1ère ligne uniquement.

Oui mais je pensais que ce qu'il vous fallait concernait l'accès aux cellules et qu'à partir des exemples, vous pourriez extrapoler. Comme ce n'est pas le cas, voila comment exploiter le 1er paragraphe d'une cellule qui a été repérée et la passer en gras :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Tables(1).Cell(5, 1).Range.Paragraphs(1).Range.Bold

@+

[Papou93]

Bonjour Sepia,

Merci beaucoup pour ta réponse qui m'a fourni l'élément qui me manquait, à savoir la notion de "paragraphs" dans une cellule multi-lignes.

Je cherchais bêtement à m'en sortir avec la recherche du premier CHR(13) pour extraire les caractères de gauche, mais si ça ne renvoyait pas d'erreur ça ne fonctionnait pas non plus.

Grâce à toi, j'ai enfin pu appliquer la première ligne en caractères gras.

Je pense que ta réponse pourra également servir à Scouby77 que je salue aussi au passage.

Encore une fois merci.

Cordialement.