Eric KERGRESSE
Expert éminent sénior

.
Ce billet est issu de cette discussion : Formule-utilisant-nbr-fixe-signet-cellule-tableau-excel-insere-word-resultat

J'ai regardé avec VBA comment on pouvait récupérer une valeur d'un tableau Excel incorporé dans Word.

Le code ci-dessous permet de mettre à jour un signet PourcentageAcompte calculé à partir de la valeur de l'acompte correspondant au signet Acompte et du montant TTC correspondant à la zone nommée "TotalTtc" du tableau.

En lire plus...

/
Il s'agit d'obtenir le résultat suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TestMettreUnePuceApresRetourChariot()
 
Dim I As Integer
Dim DocEnCours As Document
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
 
         If .ContentControls.Count = 0 Then Exit Sub
 
         For I = 1 To .ContentControls.Count
             If .ContentControls(I).Type = wdContentControlRichText

En lire plus...

//
Problématique :

Je veux savoir comment ouvrir en VBA un fichier en mode **écriture** lorsqu’il y a l’option « Lecture seule recommandée » dessus.
Je ne parle pas ici de l'attribut que l'on peut changer à partir d'Explorer mais de l'attribut ActiveDocument.ReadOnly (combiné avec ActiveDocument.ReadOnlyRecommended).
Avec un batch, j'ai besoin de faire un "search & replace" régulièrement dans une centaine de fichiers dont la moitié est en mode

En lire plus...

//
Ce billet fait suite à cette discussion : publipostage-filtrer-enregistrements

Il s'agit de faire un publipostage à partir d'un tableau Excel en fonction d'un champ nommé "POSITION". Ce champ peut contenir de 1 à 160 numéros différents. Le but est de pouvoir sélectionner la ou les positions en cours dans le tableau et d'éditer la liste en fonction de la position choisie.
A l'ouverture, le code recherche les différentes positions du document, les charge dans

En lire plus...

//
Ce billet fait suite à cette discussion : automatisation-renommer-fichiers-champs-doc-donnee-unique

Le code dans le fichier "Fichiers renommer 2018-10-21.docm" joint, charge, dans une boite de dialogue, les fichiers présents dans un répertoire des modèles (Nb : La variable contenant le chemin du répertoire est une constante).

En allant chercher le répertoire de destination avec le bouton "..." et après avoir saisi un nom de substitution

En lire plus...