Edition de données Excel dans Word

  • Initiateur de la discussion Initiateur de la discussion bd
  • 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 !

B

bd

Guest
Bonjour,

Je suis à la recherche de références de code VBA pour éditer des données Excel sous Word.
J'aimerais pouvoir insérer certaines cases de mon fichier .xls dans un fichier .doc préformaté (à partir d'un .dot je pense)

Merci beaucoup
 
Sub CopieWord()

'Déclaration 4 variables (excel, dossier, fichier, chemin)
Dim objApplication As Object
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String

'Initialisation 4 variables
Set objApplication = CreateObject("word.application")
Tu peux essayer quelquechose comme ça :

strDossier = "C:\stage\"
strWordFichier = "doc1.doc"
strxlFichier = "mois.xls"
strChemin = strDossier & strWordFichier

Windows(strxlFichier).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
' Affichage de Word
With objApplication
.Visible = True
.Documents.Open Filename:=strChemin
'collage spécial en tant qu'objet microsoft excel
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
End With
objApplication.Quit
Set objApplication = Nothing
End Sub

Amitiés.

Cathy
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour