Discussion :

[MPRIBOM]

Bonjour

J'ai un document Word avec 4 photos (Donc 4 Shapes) que je ne veux pas toucher.

J'insère un tableau Excel que je place entre la photo 2 et 3 et que voudrais redimensionner. Mon tableau devient donc la 3ème image dans le document Word

J'ai écrit cette macro qui marche bien si je n'ai pas de photos derrière mon tableau inséré, c'est à dire si mon tableau est la 5ème image

Sinon, bien sûr si met mon index en dur sur le InLineshapes (c'est à dire InLineshapes(3)) cela fonctionne mais je ne veux pas de choses en dur

En fait quand ma macro s'exécute, InLineShape se position sur la 5ème image et redimensionne cette 5ème image et non ma 3ème

Je suis perdu.

Voici mon code. Si quelqu'un peut m'aider. Merci d'avance

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
 
Sub Test()
 
Dim AppWord As New Word.Application
Dim NuméroDernièreImage As Integer
Dim NomFichier As String
 
NomFichier = "C:\Users\mbo\Documents\_Exemples_Fusion_Excel_Word\MonFichierWord2.docx"
 
AppWord.Documents.Open NomFichier
 
AppWord.Visible = True
 
NuméroDernièreImage = AppWord.ActiveDocument.InlineShapes.Count
 
            With AppWord
                   .Selection.HomeKey Unit:=wdStory   'envoi en début de page
                   'recherche du signet
                   .Selection.Goto What:=wdGoToBookmark, Name:="Périmètre_F01"
            End With
 
            ThisWorkbook.Worksheets("Proposition_Périmètre").Range("B6:D15").Copy
 
            NuméroDernièreImage = NuméroDernièreImage + 1
 
            AppWord.Selection.PasteSpecial link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
            Application.CutCopyMode = False
 
            With AppWord.ActiveDocument.InlineShapes(NuméroDernièreImage)
                 .Width = CentimetersToPoints(8)  'largeur en cm
            End With
 
End Sub

[PMO2017]

Bonjour,

Peut être une piste avec

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
Sub Test()
 
Dim AppWord As New Word.Application
'Dim NuméroDernièreImage As Integer
Dim NuméroImageExcel  As Integer   '///
Dim NomFichier As String
 
NomFichier = "C:\Users\mbo\Documents\_Exemples_Fusion_Excel_Word\MonFichierWord2.docx"
 
AppWord.Documents.Open NomFichier
 
AppWord.Visible = True
 
NuméroDernièreImage = AppWord.ActiveDocument.InlineShapes.Count
 
With AppWord
.Selection.HomeKey Unit:=wdStory 'envoi en début de page
'recherche du signet
.Selection.Goto What:=wdGoToBookmark, Name:="Périmètre_F01"
End With
 
ThisWorkbook.Worksheets("Proposition_Périmètre").Range("B615").Copy
 
'NuméroDernièreImage = NuméroDernièreImage + 1
NuméroImageExcel   = 3   '///
 
AppWord.Selection.PasteSpecial link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
 
With AppWord.ActiveDocument.InlineShapes(NuméroImageExcel )    ' (NuméroDernièreImage)   ///
.Width = CentimetersToPoints(8) 'largeur en cm
End With
 
End Sub

[MPRIBOM]

Bonjour

Je sais que cela marche car c'est ce que j'explique dans mon mail. Aucun intérêt de remplacer mon Integer par un autre et le forcer à 3.

Ce que je cherche c'est ne rien avoir en dur et pouvoir identifier la copie que je viens de faire de façon paramétrable

[PMO2017]

Alors peut être avec

Code :

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

With AppWord.ActiveDocument.InlineShapes((AppWord.ActiveDocument.InlineShapes.Count\2)+1)

[MPRIBOM]

Merci pour la réponse mais on ne s'est pas compris.

Je recherche à dimensionner le tableau que je viens de copier sans me soucier du nombre d'images avant ou après qui existe dans le doc Word. Dans mon exemple j'en ai 4, mais demain il pourrait en contenir 10 ou 20 ou 100 car le document word va évoluer. Et le tableau que je vais coller sera demain la 11ème image, après demain la 21 ème puis la 101 ème etc. En fait je recherche un bout de macro qui identifie ce que je viens de coller pour le redimensionner sans se soucier du contenu du doc. C'est presque en même temps que le coller qu'il faudrait exécuter le redimensionnement.

Merci quand même de participer à cette conversation. On va y arriver j'en suis sûr.

Cordialement