Eric KERGRESSE
Expert éminent sénior

.
.
Si vous avez sélectionné une partie seulement des enregistrements d'une base de données dans votre publipostage comme ceci :



Si votre code VBA consiste à réaliser une simple boucle sur la collection DataSource, vous risquez d'avoir ce message d'erreur dans votre code VBA : 3651"Impossible de fusionner ... enregistrements tous vides ou aucun enregistrement ne correspondait à vos options de requête" avec un stop

En lire plus...

'
Une fonctionnalité bien utile offerte par les outils de la suite Office est de pouvoir lancer une macro depuis la barre d'accès rapide. Ce billet décrit le mode opératoire pour installer deux boutons dans la barre de Word qui resteront associés au document en cours.

Ci-dessous, le résultat à obtenir avec les boutons rouge et vert dans la barre d'accès rapide :



Pour cela, clic droit sur la barre d'accès rapide,

En lire plus...

Cette carte des communes de La Réunion utilise les données du site Correspondance-code-insee-code-postal

Les communes peuvent être effacées et regénérées. La méthode peut donc s'appliquer à n'importe quel territoire.




Lien vers le fichier Carte des communes de l'île de La Réunion

'
Problématique :

Des lignes contenant des images sont à copier-coller d'une feuille à une autre. Bien entendu, les images situées ne sont pas collées.

Solution proposée :

Si les images occupent une cellule, il est possible de mettre le titre ou le nom de l'image dans la cellule préalablement. Lorsque la ligne aura été copiée dans un autre onglet, il suffira d'aller chercher l'image dans l'onglet d'origine.

Pour identifier les images

En lire plus...

-

Ce code est une adaptation du code d'origine. Il est lié à ce message : vba-fusion-pdf-seul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MergePDFViaImpressionPdf()
 
Dim CtrI As Long
Dim oPDF As PdfCreatorObj
Dim Q As PDFCreator_COM.Queue
Dim job As PDFCreator_COM.PrintJob
Dim CheminFichierFusionne As String, NomFichierFusionne As String, RepertoirePdf As String, ChaineATrouver As String
Dim Fso As Object, Fich As Object
 
 
    On Error

En lire plus...