[WD-2003] Publipostage + image via Access [Résolu]

[hyperion13]

Bonsoir à toute la communauté,

Je viens vers vous car je rencontre un problème avec une procédure vba qui est ici http://heureuxoli.developpez.com/publipostage/#LI-B-8 et qui me génère une erreur d'exécution 5152.

- Je travaille sous WinXP SP3 avec Office 2k3 Pro SP3
- Sur le bureau, j'ai un dossier qui contient ma bdd, mon document de fusion et dans un sous-dossier mes images (100*150) au format *.jpg

- J'ai adapté la procédure d'Olivier Lebeau (voir lien ci-dessus) en ne changeant que le nom des objets (bdd, document principal, signets).

- Dans ma bdd, une seule table qui comprend différents champs dont le champ qui contient le chemin de mes images
- Dans mon document principal au format *.dot, j'ai inséré des signets

- L'erreur d'exécution 5152 semble indiquer un nom de fichier non valide
- Le chemin indqué "C:\\Documents and Settings\\User\\Bureau\\PublipostageImage\\Photo\\xx.jpg"

- la ligne qui pose problème

Code :

Selection.InlineShapes.AddPicture FileName:=rs.Fields(2), linktofile:=False, savewithdocument:=True

Auriez-vous une idée ?
Merci d'avance

[carden752]

Bonjour,

Il ne faut pas doubler les "\" en VBA uniquement dans les codes de champs.
Utilises une fonction de remplacement par exemple pour garder la possibilité de l'afficher dans les 2 modes dans la base de données.

Les fonctions mid et Instr permettent respectivement d'extraire une chaine de caractères dans une chaine de caractère et de rechercher la position d'une chaine de caractère dans une autre.
Il est même possible avec mid d'effectuer un remplacement, un peu de lecture.Manipuler les Chaines de Caracteres

[hyperion13]

Bonjour Christophe et la communauté,

Merci pour la réponse.

Deux erreurs à mon actif.
1ère erreur :
le chemin que l'on doit saisir dans la table doit être effectivement :
C:\Documents and Settings\User\Bureau\PublipostageImage\Photo\xx.jpg
(pas de guillemet pour borner le chemin et pas de double slash)

2ème erreur :
le numéro index dans le bout de code :

Code :

Selection.InlineShapes.AddPicture FileName:=rs.Fields(2), linktofile:=False, savewithdocument:=True

en fait, =rs.Field(2) désigne non pas le 2ème champ de ma table mais le 3ème !

Le problème est résolu, merci.