liaison Excel Word

[Aurel128]

Bonjour le Forum

Comment creer une macro avec un common Button pour permettre d'ouvrir un fichier Word?

cordialement Aurel 128

 

[Marc77]

Re : liaison Excel Word

Bonsoir Aurel 128

Tu peux ouvrir un fichier Word avec un lien Hypertexte.

 

[BERRACHED said]

Re : liaison Excel Word

Salut,Aurel128,Marc77

voila deux codes que tu peut adapter :
1° dans un commandbutton sur une feuille

Private Sub commandButton1_Click()
Dim docWord As Word.Document
Dim appWord As Word.Application
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = False
Set docWord = appWord.Documents.Open(ThisWorkbook.Path & "\dossier.doc")
With docWord.mailMerge
.Destination = wdSendToPrinter
.suppressBlankLines = True
With .DataSource
.firstRecord = wdDefaultFirstRecord
.lastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Application.ScreenUpdating = True
docWord.Close False
appWord.Quit
End Sub

le 2° sur Module :

Sub RetraitTableauDansWord()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Dim j As Byte
On Error Resume Next
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True
Sheets("feuil1").UsedRange.Copy
Wrd.Selection.Paste
With Wrd.Selection
.Tables(1).Rows.SetLeftIndent LeftIndent:=27, RulerStyle:=1
End With
Application.CutCopyMode = False
End Sub

Cordialement

 

[Aurel128]

Re : liaison Excel Word

Merci Beaucoup Marc;Said

Je vais tester de suite

Cordialement