Eric KERGRESSE
Expert éminent

//
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...

Utilisation

Cet outil permet de surligner plusieurs chaines de caractères dans un document Word. Une sélection des couleurs système permet de différencier le surlignage des chaînes sélectionnées.
La sélection des chaines se fait directement sur le document



Les commandes de la barre d'accès rapide :

A l'ouverture du document support, la barre d'accès rapide est chargée de 4 boutons :

En lire plus...

Testé sur Office 2010 :

Dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit

Sub InfoSelection_De_Dolphy35()
'----------------------------------------------------
' Une adaptation du code trouvé dans :
' http://dolphy35.developpez.com/article/outlook/vba/
'----------------------------------------------------

'Déclaration des Objets et variables
Dim MonApply As Outlook.Application
Dim MonNSpace As Outlook.Namespace

En lire plus...

Le code ci-dessous permet de charger une combobox dans Word avec un range Excel.

Cette solution utilise une variable dictionnaire et une matrice pour éliminer les doublons et charger la liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit

Public ListeCle As Variant, ListeElement As Variant

Sub ChargerLaCombobox1()

Dim J As Long, DerniereLigne As Long
Dim Chemin As String

Dim xlApp As Excel.Application 'Application Excel

En lire plus...