Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour collage spécial image dans Word

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Taote
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Taote

XLDnaute Nouveau
Bonjour le forum,

J'ai bien cherché dans le forum et dans l'aide de VBA, mais je désespère d'arriver à maitriser "l'habillage" des images collées sous Word, pour que les images soient alignées sur le texte au lieu d'être devant le texte 😕 (je pars d'une sélection sous Excel). Et pas moyen d'enregistrer la commande avec l'enregistreur de Macro, car cette option dans le format de l'image est grisée en mode enregistrement de Macro 😡 .

J'arrive à coller des tableaux Excel dans un fichier Word avec les lignes suivantes

Code: 
Dim AppWord As Word.Application
Dim DocWord As Word.Document
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
...
Selection.Copy
With AppWord.Selection
    .PasteSpecial DataType:=wdPasteEnhancedMetafile
    .InsertBreak Type:=wdPageBreak
End With

Quelqu'un saurait-il quel paramètre ajouter dans le PasteSpecial pour l'alignement sur le texte?

Et puis j'ai un autre problème avec le fichier Normal.dot... Quand je ferme le fichier Word, j'ai un message d'erreur car le fichier Normal.dot est déjà en cours d'utilisation et puis un deuxième message pour me demander d'enregistrer le nouveau Normal.dot. Comment éviter ces messages?

Merci d'avance
 
Trier par date Trier par votes
Re : Macro pour collage spécial image dans Word

Bonjour Taote,

à tester, à la fin du code pour le collage spécial :


Code: 
With AppWord.Selection
    .PasteSpecial DataType:=wdPasteEnhancedMetafile, Link:=False, Placement:= _
        wdInLine, DisplayAsIcon:=False
    .InsertBreak Type:=wdPageBreak
End With
 
Vote positif 0 Vote négatif
Re : Macro pour collage spécial image dans Word

Génial!! 🙂 On a bien des images alignées sur le texte. Merci Tototiti2008 !!

Saurais-tu quoi faire pour le message en fermant Word "Fichier utilisé par un autre utilisateur ou une autre application. (C:\..`\Normal.dot)"
Je fais OK et j'ai un enregistrer sous pour Normal.dot et si j'essaie d'enregistrer, j'ai un message me disant qu'il est lecture seule..
Je suis un peu perdu avec ce Normal.dot 😱

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Macro pour collage spécial image dans Word

En fait mon problème de normal.dot se produit quand j'ai déjà un document Word ouvert et je pense que cela vient de l'instruction
Set AppWord = New Word.Application

Si j'enlève le New quand j'ai un document d'ouvert, cela passe.

Maintenant mon problème est que je voudrais que ma macro s'exécute aussi bien quand Word est déjà lancé ou non.

J'ai essayé sans succès le code suivant, c'est-à-dire que j'ai toujours les messages pour enregistrer Normal.dot, que Word soit déjà ouvert ou non. Y'a peut-être plus simple...😕
Code: 
Dim AppWord As Word.Application
Dim DocWord As Word.Document

On Error GoTo TraiteErreur
Set AppWord = Word.Application
TraiteErreur:
Set AppWord = New Word.Application
On Error GoTo 0

AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
 
Vote positif 0 Vote négatif
Re : Macro pour collage spécial image dans Word

Bonjour Taote,

à tester :

Code: 
Dim AppWord As Word.Application
Dim DocWord As Word.Document

On Error GoTo TraiteErreur
Set AppWord = Word.Application
On Error GoTo 0
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
...
Exit Sub
TraiteErreur:
Set AppWord = New Word.Application
resume next
End Sub
 
Vote positif 0 Vote négatif
Re : Macro pour collage spécial image dans Word

Super merci, je vais tester. Entre temps, je pensais aussi m'orienter vers des boutons d'options (nouveau ou actif) et utiliser if then...

J'ai un autre petit problème, pour insérer du texte dans word juste à l'endroit ou on se trouve dans le fichier. J'ai trouvé dans les Wiki

With wordDoc.Content
.Collapse Direction:=wdCollapseEnd 'derniere ligne du document
.insertBreak Type:=wdLineBreak 'insert saut de ligne
.Text = "Le texte à ajouter"
End With

Mais je n'arrive à pas à utiliser ce code pour ne pas aller en fin de document. Comme je colle une succession de tableaux sous Word, je voudrais entre chaque pouvoir insérer une variable indiquant quelle portion d'Excel est collée...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
517
fanch55
C
  • Question Question
Microsoft 365 Impression PDF d'un Word via une macro Excel
Réponses
11
Affichages
1 K
job75
S
  • Question Question
XL 2010 Ecrire d'Excel vers Word
Réponses
5
Affichages
656
stonech
S
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
5 K
LMOAL
L
J
  • Question Question
XL 2019 Comment attendre la fin d'exécution de la macro pour passer à la ligne de VBA suivante ?
Réponses
8
Affichages
1 K
job75
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
857
.jakob@gmail.com
J
T
  • Question Question
Microsoft 365 VBA sous excel pour écrire dans doc word
Réponses
2
Affichages
1 K
Titi71
T
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
639
arnoldbrice19
A
  • Résolu(e)
Microsoft 365 Macro Excel qui n'arrive pas à enregistrer un doc Word
Réponses
10
Affichages
1 K
xUpsilon
L
  • Question Question
Microsoft 365 Copier graphes excel dans word
Réponses
0
Affichages
721
lestatber
L
C
  • Résolu(e)
XL 2013 VBA : Erreur 1004
Réponses
2
Affichages
1 K
clarouche33
C
  • Question Question
XL 2010 Insertion image / Word à partir d’Excel à lire texte d’explication
Réponses
2
Affichages
2 K
jeanmi
  • Question Question
Microsoft 365 Fermer l'instance Word (Suite macro vba)
2
Réponses
16
Affichages
3 K
Azuveus
N
  • Résolu(e)
Gérer Active.document de Word depuis Excel
Réponses
3
Affichages
2 K
n.excel
N
A
  • Question Question
Microsoft 365 Enregistrer un fichier Word à partir d'excel
2 3
Réponses
30
Affichages
6 K
Staple1600
B
  • Question Question
XL 2016 Générer un document word par client
Réponses
0
Affichages
1 K
BaptisteLH
B
B
  • Question Question
XL 2016 générer un doc word par client
Réponses
0
Affichages
717
BaptisteLH
B
S
  • Résolu(e)
XL 2013 enlever le mode lecture seule d'un fichier word (vba)
Réponses
4
Affichages
3 K
ssonap
S
S
  • Question Question
Microsoft 365 Macro pour Copier une feuille Excel en tant qu'image dans outlook
Réponses
3
Affichages
2 K
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…