Publipostage avec caractères spéciaux

[marie49]

Bonjour,

Je dois réaliser un publipostage par l'intermèdiaire des macros excel : le publipostage marche sans problème. Cependant je constate qu'une partie d'une information est particulière ; lettre grecque.
Je ne peux pas les passer ici. J'envoie un exemple word de ce que doit donner le publipostage.

La saisie se fait dans un fichier excel par l'intermédiaire d'une listbox.

Quelqu'un a t-il déjà traité un cas identique? Quelle solution avez-vous adoptée?

Merci
Marie

 

[JNP]

Re : Publipostage avec caractères spéciaux

Re 🙂,

Public TableConversion()
Sub RemplirTableConversion()
ReDim TableConversion(1 To 75, 1 To 2)
Dim I As Integer
For I = 1 To 75
TableConversion(I, 1) = [COLOR=red]Sheets("Feuil1")[/COLOR].Cells(I, 2)
TableConversion(I, 2) = [COLOR=red]Sheets("Feuil1")[/COLOR].Cells(I, 3)
Next I
End Sub
Function Encode(ATraduire As String)
Dim I As Integer
For I = 1 To 75
ATraduire = Replace(ATraduire, ChrW(TableConversion(I, 1)), TableConversion(I, 2))
Next I
Encode = ATraduire
End Function
Function Décode(ATraduire As String)
Dim I As Integer
For I = 1 To 75
ATraduire = Replace(ATraduire, TableConversion(I, 2), ChrW(TableConversion(I, 1)))
Next I
Décode = ATraduire
End Function

Au plus court je pense. A mettre dans un module. Ne pas oublier de changer les référence de la feuille en rouge et d'appeler le chargement du tableau (RemplirTableConversion) dans l'initialise de l'USF. Après, il te suffit d'utiliser Encode(le texte) et Décode(le texte).
Bonne après-midi 😎

 

[marie49]

Re : Publipostage avec caractères spéciaux

Merci JPN,

J'ai enfin eu le temps de l'installer...
A savoir: excel n'a pas accepté le tableau en variable public. J'ai passé la variable dans la private sub.

A bientot. merci à ce forum
marie
le sujet est clos