Discussion :

[GroundHogs]

Bonjour,
Dans le cadre de corrections de fiches produits pour du catalogue, j'utilise une trame Word avec des champs de textes balisés pour pouvoir les récupérer via une macro dans un tableau Excel* (oui, ils bossent encore sur ce type de système !). J'effectue le gros de mes corrections sur le tableau (pour des raisons de lisibilité et de cohérence, les données étant souvent du même type, c'est un gain de temps considérable !).
Jusque là, tout fonctionne : j'ai, par exemple, 300 fiches Word dans un dossier qui vont être importées dans mon tableau et je commence alors mes corrections. En revanche, les documents originaux restent inchangés et vont conserver toutes leurs erreurs éventuelles. Copier-coller les corrections à la main est tout simplement rébarbatif, long et source d'erreur, surtout sur plusieurs centaines de fiches…

J'aurais donc tout simplement souhaité savoir s'il existait un moyen , en vba ou autre, de renvoyer les données importées à leur fichier Word d'origine (ou vers une trame vide qui sera renommée manuellement ou selon certaines données du fichier, par exemple sa référence…). J'ai essayé par publipostage, mais ne me paraît pas compatible avec les champs balisés… Le fichier Word est, lui, protégé en écriture (à l'exception des champs, bien évidemment).

Mes recherches sont restées infructueuses…

Je joins à cela un dossier test comprenant un exemple de trame Word + le tableau avec macro.
Il faut simplement changer dans la macro cette ligne :

Code :

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

chemin = "C:\MettreCheminAbsolu\"

Je vous remercie pour votre attention !
(j'arrive à peu près à lire le vba, mais j'ai toujours un peu de mal à l'écrire )

[GroundHogs]

je suis tombé là-dessus :
http://www.info-3000.com/word/formfields/index.php
donc on peut bien modifier un champ de texte sur un document protégé (si j'ai bien compris) ; l'idéal serait maintenant de pouvoir le faire à partir de données d'un tableau Excel, avec comme nom de variable l'entête du tableau…

Je demande avant tout l'avis d'un expert en vba qui pourrait me confirmer que c'est possible, je suis prêt à faire les recherches nécessaires pour essayer de coder moi-même le reste (encore que j'aurai sûrement besoin d'aide !), car ça me permettrait de gagner énormément de temps et je ne voudrais pas en perdre trop en cherchant une solution qui n'existe pas !

En tout cas, j'espère que ma requête est claire.

Merci

P.S. : je suis sur Word 2007

[GroundHogs]

Alors, je continue…
J'ai trouvé quelques pistes, mais ça bloque toujours.
En suivant le didacticiel précédent :
http://www.info-3000.com/word/formfields/index.php
j'arrive à modifier un champ, même si la protection du document est activée, avec la commande suivante :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
FormFields("chapitre").Result = "Nouveau chapître"
End Sub

En revanche, avec la macro ci-dessous, je pense que j'approche de ma solution, mais j'ai un message qui m'indique :
"Erreur d'exécution '6124':
Impossible de modifier cette sélection car elle est protégée."

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
Sub RetourVersWord()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("C:\Users\asus\Desktop\testMacro\test2.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
 
 
    WordDoc.Bookmarks("chapitre").Range.Text = Cells(2, 1)
    WordDoc.Bookmarks("sousChapitre").Range.Text = Cells(2, 1)
    WordDoc.Bookmarks("nom").Range.Text = Cells(3, 1)
    WordDoc.Bookmarks("marque").Range.Text = Cells(4, 1)
    WordDoc.Bookmarks("code").Range.Text = Cells(5, 1)
    WordDoc.Bookmarks("reference").Range.Text = Cells(6, 1)
    WordDoc.Bookmarks("prix").Range.Text = Cells(7, 1)
    WordDoc.Bookmarks("descriptif").Range.Text = Cells(8, 1)
    WordDoc.Bookmarks("composition").Range.Text = Cells(9, 1)
    WordDoc.Bookmarks("tailles").Range.Text = Cells(10, 1)
    WordDoc.Bookmarks("coloris").Range.Text = Cells(11, 1)
    WordDoc.Bookmarks("poids").Range.Text = Cells(12, 1)
    WordDoc.Bookmarks("homme").Range.Text = Cells(13, 1)
    WordDoc.Bookmarks("femme").Range.Text = Cells(14, 1)
    WordDoc.Bookmarks("mixte").Range.Text = Cells(15, 1)
    WordDoc.Bookmarks("enfant").Range.Text = Cells(16, 1)
 
 
 
    WordApp.Visible = True    'affiche le document Word
 
 
End Sub

Est-ce parce que dans le premier cas, ma macro est liée au document Word et dans le second au tableau Excel ?

[clementmarcotte]

Bonjour,

Moi, ce que j'en dis c'est que c'est bien du trouble pour pas grand chose. Dans Word, on peut insérer des tableaux Excel avec Liaison et le document Word est mis à jour automatiquement avec le rafraîchissement des liaisons à l'ouverture du fichier Word. Au besoin, les données liées modifiées dans Excel peuvent être mises à jour manuellement dans l'interface de Word. On peut même obliger la mise à jour automatique à l'impression du fichier. Et puis, sauf horreur de ma part, un double-clic sur un tableau lié dans Word, ouvre le fichier Excel d'origine et quand le fichier est modifié et que l'on ferme Excel, Word demande s'il faut mettre son tableau à jour.

Et puis, dans les champs disponibles dans Word, il y a des champs bases de données.

Mais bon, si tu veux absolument une macro oublie moi. Je n'ouvre presque jamais les pièces jointes, et encore plus rarement les fichiers de macros.

[GroundHogs]

Bonjour,
Merci pour ta réponse, j'irai voir de ce côté à l'occasion.

Pour mon souci, c'est quasiment réglé, le seul problème que j'ai, c'est l'envoi de variables string comportant plus de 255 caractères. J'ai cru comprendre que c'était comme ça et pas autrement, du coup, j'ai fait deux dossiers de réception avec un qui comporte les fiches complètes et l'autre celles avec les textes manquants, et je fais une petite finition à la main un peu sale, mais efficace et tant pis !

Du coup, Clément, ta solution permettrait d'ignorer ce problème de texte trop long, peut-être ? Je regarde la tête que ça a et je vois quoi faire, sinon, je "résolve" le post.
Merci

(Je me suis douté que ma PJ allait peut-être être mal perçue, surtout avec une macro chelou ! J'ai bien compris l'article, merci !)

[GroundHogs]

Bon, alors j'aurais une dernière chose à demander. Tout fonctionne de mon côté à part cette histoire de 255 caractères… Selon certains, les variables de type String peuvent contenir jusqu'à "2 billions characters", soit, si j'ai bien compris, 2 milliards. C'est super, mais ça ne se vérifie pas dans mon cas. Bref ! Je clos ici le sujet.

Pour info, pour que cela fonctionne, avec la dernière macro, j'ai remplacé":

Code :

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

WordDoc.Bookmarks(NomChamp).Range.Text = Cells(1, 1)

par

Code :

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

WordDoc.FormFields(NomChamp).Result = Cells(1, 1)