Discussion :

[Zinho]

Bonjour à toutes zé tous

C'est au bout du rouleau que je viens solliciter votre aide sur ce forum (qui m'a déjà dépanné un nombre incalculable de fois... mais pas aujourd'hui en tout cas, je vous en remercie 1000 fois).

Petite explication : J'ai effectué un publipostage qui affiche la liste de produits commandés par nos clients.
--> CodeCli | NomCli
RefPdt | DesigPdt |PhotoPdt

Dans le champ PhotoPdt, j'ai renseigné le chemin de la photo du produit : c:\photo\pdt_A.jpg

Résultat du publipostage : OK, j'ai bien un tableau par client avec la référence, désignation et emplacement (de la photo) de chaque produit.

Je souhaiterais, grâce à une macro VBA, remplacer le chemin de la photo du produit et par ladite photo.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Sub test()
Dim NBL As Integer ' Nombre de lignes du tableau
Dim CPT As Integer ' Compteur
Dim A As String
 
 
CPT = 2
NBL = ActiveDocument.Tables(1).Rows.Count
 
For CPT = 2 To NBL ' la 1ere ligne correspond à l'intitulé de la colonne
 
A = ActiveDocument.Tables(1).Cell(CPT, 5).Range ' Lecture du contenu de la cellule désirée
MsgBox (A) ' La MsgBox affiche le bon emplacement.
ActiveDocument.Shapes.AddPicture (A) 'La valeur de A est "c:\photo\pdt_A.jpg
 
Next
 
End Sub

C'est là que le titre prend tout son sens Un screenshot pour tout clarifier...



J'ai retourné Google jusqu'en page 3 (c'est vous dire mon état de désespoir...) et je ne sais pas ce que vient faire ce guillemet ici (tout seul en plus, si ils étaient 2 encore...).

Je suis loin d'être un expert en dev (quelques restes d'algo en mémoire) mais ça fait 3 jours que je rame...

D'avance merci à celles et ceux qui m'accorderont un peu de leur temps.

VBment,

Zinho

[Heureux-oli]

Salut,

Essaie un debug.print au lieu d'un MsgBox pour voir ce que ça donne ?

[Zinho]

Hello tout le monde,

Après avoir retourné le code dans tous les sens, j'ai réussi (par contre, je ne sais pas trop comment) à arriver à mes fins

J'ai affiché la fenêtre des variables locales et, à force de tâtonner, je suis arrivé à mon résultat final... le code ci joint si qqun en a besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Sub ADF_publipostage()
Dim PAG As Integer ' Nombre de pages du document
Dim CPT_L As Integer ' Compteur de lignes
Dim CPT_P As Integer ' Compteur de pages
Dim CPT_C As Integer ' Compteur de colonnes.
Dim NB_L As Integer ' Nombre de lignes du tableau
Dim A As String
Dim L As Integer
Dim WordDoc As Word.Document
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
PAG = Selection.Information(wdNumberOfPagesInDocument)
 
 
 
For CPT_P = 1 To PAG
NB_L = ActiveDocument.Tables(CPT_P).Rows.Count
    For CPT_L = 2 To NB_L
    L = Len(ActiveDocument.Tables(CPT_P).Cell(CPT_L, 4).Range)
    If L > 10 Then
        A = ActiveDocument.Tables(CPT_P).Cell(CPT_L, 4).Range
        A = Left(A, Len(A) - 2)
 
          If objFSO.FileExists(A) Then
            ActiveDocument.Tables(CPT_P).Cell(CPT_L, 3).Range.InlineShapes.AddPicture A _
                , linkToFile:=False, saveWithDocument:=True
          Else
            MsgBox (A + "n'existe pas")
          End If
    End If
 
        Selection.MoveDown Unit:=wdLine, Count:=1
 
    Next
 
ActiveDocument.Tables(CPT_P).Columns(4).Delete
ActiveDocument.Tables(CPT_P).Columns(1).AutoFit
ActiveDocument.Tables(CPT_P).Columns(2).AutoFit
ActiveDocument.Tables(CPT_P).Columns(3).AutoFit
 
Next
 
 
End Sub