Aide pour code VBA pour ouvrir 1 fichier

Eric C

XLDnaute Barbatruc

• 29 Décembre 2005

• #2

Bonjour le forum
Bonjour sebgo

Je ne sais pas si je suis dans le bon mais ceci ouvre un document Word. Le chemin est à adapter. Rends toi sdur le Wiki de notre ami MichelXLD (que je salue au passage) tu vas découvrir le trésor, non pas d'Ali Baba mais de Michel Lien supprimé

Code:

Sub OpenWord()
Dim Wrd As Object
Set Wrd = CreateObject('word.Application')
Wrd.Visible = True
Wrd.documents.Open ('C:\\Répertoire\\Nom.doc')
End Sub

Bonne fêtes de fin d'année à toutes & à tous

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 29 Décembre 2005

• #3

Bonsoir sebgo,

Sub OuvrirDoc()
'Il convient d'activer la référence 'Microsoft Word XX.X Object Library'
Dim AppW As Word.Application
Dim DocW As Word.Document
Dim Chemin As String
Chemin = ThisWorkbook.Path & '\\LeFichier.doc'
Set AppW = CreateObject('Word.Application')
AppW.Visible = True
Set DocW = AppW.Documents.Open(Chemin)
End Sub

Cliquez pour agrandir...

Et pour tout savoir (ou presque) sur le pilotage de Word depuis Excel, consulter en urgence la page n°3 Wiki de MichelXLD !

Bonnes fêtes de fin d'année.

EDITION :
Salut Eric, désolé, je ne t'avais pas vu arriver...

Message édité par: myDearFriend!, à: 29/12/2005 19:20

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 29 Décembre 2005

• #4

Bonjour Sebgo, bonjour Eric,

juste un complément : si tu veux que le chemin du fichier puisse être modifié sous excel.

Code:

Private Sub OuvrirDoc_Click()


Dim Wrd As Object
Dim chemdoc As String

chemdoc = Worksheets('feuil1').Range('a1').Value

Set Wrd = CreateObject('word.Application')
Wrd.Visible = True
Wrd.documents.Open (chemdoc)

End Sub

Voir ci joint. Pense à modifier le chemin du fichier en a1 et à créer ton fichier au bon endroit.

Bon courage. [file name=Classeur1_20051229184430.zip size=8318]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051229184430.zip[/file]

 

Pièces jointes

• Classeur1_20051229184430.zip

  8.1 KB · Affichages: 94

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 29 Décembre 2005

• #5

Désolé MDF, je t'avais pas vu.

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 29 Décembre 2005

• #6

bonsoir à tous !!!

Rapidos en 'coup de vent' comme ce code, si par exemple tu as le Chemin Complet avec le nom du Doc Word dand la cellule active

Sub Open_N_Importe_Quoi()
    ThisWorkbook.FollowHyperlink ActiveCell
End Sub

Cliquez pour agrandir...

Bonne Fin d'Année à tous et toutes
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 29 Décembre 2005

• #7

Bonsoir tt le monde,
Merci bcp pour votre aide. Je vais essayé les solutions proposées et je vous tiendrez au courant.
Bonne soirée à vous.

 

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 30 Décembre 2005

• #8

Bonjour le forum,
Comme promis, j'ai testé les différentes solutions qui mont été proposées et celle de MyDearFriend répondait à ce que je voulais. Neanmoins un merci à tous pour les contributions.
Bonne et heureuse fin et debut d'ANNEE.

Sebgo

 

Vote positif 0 Vote négatif