VBA collage tableau en image sur word

Version imprimable

25/01/2023, 13h45
Paulo7777

VBA collage tableau en image sur word

Bonjour à tous,

Je souhaite créer une macro VBA permettant au clic, de sélectionner un tableau excel pour ensuite l'insérer automatiquement dans un fichier word sous format image (mieux, sur la page d'un site sharepoint si possible).

Comme nous serons plusieurs à uiliser ce fichier excel et qu'il sera nécessaire de garder l'historique, il faut que chaque image copiée soit insérée sur le word en dessous de la précédente.

Je souhaite également, qu'à côté de chaque image sur le fichier word, une case à cocher apparaisse et qu'à la coche, le nom de l'utilisateur Office soit indiquée en visa.

Pouvez-vous m'aider à réaliser ces codes VBA ?

En vous remerciant.

PS : les fichiers se nomment ainsi :
Excel : Argumentaire (feuille du même nom)
Word : Visa
25/01/2023, 14h10
jurassic pork

Hello,
pourquoi copier les données sous forme d'image et pas sous forme de tableau ? Quelle taille pour les données à copier (nb de colonnes x nb lignes).
Ami calmant, J.P
25/01/2023, 14h25
Paulo7777

Bonjour Jurassic pork,

En image, c'est pour pouvoir les gérer plus facilement une fois un fichier mensuel traité.
Mais si ce n'est pas possible en image, je serai obligé d'utiliser le collage en tableau.
Le tableau contient 12 colonnes et 10 ligne dnas la plage B2 à M11.

Merci pour votre analyse.

Bonjour,
Voici une procédure générique qui copie un tableau structuré (en image) vers un document Word

Code:

1
2
3
4
5
6
7
8
Function CopyTableToWord(oDocument As Word.Document, oTable As Excel.ListObject)
  ' Copie d'un tableau structuré vers un document Word
  oTable.Range.Copy
  With oDocument
  .Parent.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine
  End With
  Application.CutCopyMode = False
End Function

Exemple d'une procédure qui l'invoque
Dans cet exemple, le tableau structuré nommé "t_Data" se trouve dans le classeur contenant le code VBA, ouvre un nouveau document Word et invoque la procédure CopyTableToWord(oDocument pour coller le tableau dans ce document

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Main()
  '
  ' Nécessite de référencer Microsoft Word xx.0 Object Library
  '
  ' Déclaration
  Dim oWrd As Word.Application ' Application Word
  Dim oDoc As Word.Document    ' Document Word traité
  Dim oList As ListObject      ' Tableau structuré
  ' Affectation
  Set oWrd = New Word.Application
  Set oList = Range("t_Data").ListObject
  ' Ouverture du nouveau document
  Set oDoc = oWrd.Documents.Add
  ' Invoque la procédure
  CopyTableToWord oDoc, oList
  ' Affiche le document
  With oWrd
  .Visible = True: .Activate
  End With
  ' Fin
  Set oWrd = Nothing: Set oDoc = Nothing
End Sub