W
WyLLoU
Guest
KiKoO je voudrais faire des transfert de données entre deux fichiers excel.
J'ai trouvé un truc pour echanger entre excel et word.
Copier des données Excel dans un document Word (format tableau)
Ce programme permet de copier des données d'Excel, d'ouvrir un document Word
et d'y coller les données sous forme de tableau.
Sub EnvoyerDonneesExcelVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
'Ouvre le document Word
Set DocWord = AppWord.Documents.Open( 'c:\\excel\\Fichier.doc' , ReadOnly:= False )
' Copie les données Excel
ThisWorkbook.Worksheets( 'Feuil1' ).Range( 'A1:B6' ).Copy
' Colle les données dans Word
DocWord.Range.PasteSpecial
Application.CutCopyMode = False
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
End Sub
j'ai voulu changer les truc word par des excel mais ça n'a pas marché
:S :S
Help me!!!
J'ai trouvé un truc pour echanger entre excel et word.
Copier des données Excel dans un document Word (format tableau)
Ce programme permet de copier des données d'Excel, d'ouvrir un document Word
et d'y coller les données sous forme de tableau.
Sub EnvoyerDonneesExcelVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
'Ouvre le document Word
Set DocWord = AppWord.Documents.Open( 'c:\\excel\\Fichier.doc' , ReadOnly:= False )
' Copie les données Excel
ThisWorkbook.Worksheets( 'Feuil1' ).Range( 'A1:B6' ).Copy
' Colle les données dans Word
DocWord.Range.PasteSpecial
Application.CutCopyMode = False
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
End Sub
j'ai voulu changer les truc word par des excel mais ça n'a pas marché
:S :S
Help me!!!