Discussion :

[madchemiker]

Bonjour à tous,

Je rencontre en ce moment un petit problème dans la rédaction de mes rapports et je voudrais savoir si il était possible d'accélérer une tâche fastidieuse.

Une page de mon rapport contient un tableau 3 lignes et 2 colonnes (pour la mise en page). Toutes les pages sont selon le schéma suivant

en tête
Titre

ImageA ImageB

ImageC ImageD

ImageE ImageF

pied de page.

Mon but serait de créer une macro qui ouvrirait le boîte de sélection des images. Il me suffirait de sélectionner Image A .... F, et ces images seraient insérées dans le tableau et ce redimensionnées.

Y existe t'il un code source que je pourrais adapter ou mon problème est-il insoluble?

Merci de votre aide.

[Sepia]

Salut,

Non, mais par contre si tu utilises l'enregistreur de macro et que tu fais tes manip, le code enregistré doit être assez proche de ce que tu recherches (sauf en ce qui concerne la boite de dialogue pour choisir un fichier).

Par exemple, pour créer un tableau de 2 col et 3 lig

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Grille du tableau" Then
            .Style = "Grille du tableau"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With