Ouverture de document Word

Bonjour à tous,

Je souhaite ouvrir un document word dont le titre varie en fonction d'une précédente recherche, s'affichant dans la case C16 d'une des feuilles de mon classeur nommée "Recherche".

Pour le moment, j'utilise la macro suivante qui me permet d'ouvrir un document word quand j'entre son nom, mais je n'arrive pas à la modifier pour que le nom change automatiquement:

Sub Resultat()

' Envoie l'utilisateur sur les resultats de la recherche

Dim WordApp As Object

Dim WordDoc As Object

Dim titre As String

titre = "chemindudocument" & File01 & "01111.docx"

Set WordApp = CreateObject("Word.Application")

Set WordDoc = WordApp.Documents.Open(titre)

WordApp.Visible = True

'...

Set WordDoc = Nothing

Set WordApp = Nothing

Sheets("Synthese").Select

End Sub

Auriez vous des idées pour résoudre ce problème?

Merci d'avance pour vos réponses!!

Bonjour,

Peut-être :

Sub Resultat()
' Envoie l'utilisateur sur les résultats de la recherche
Dim WordApp As Object
Dim WordDoc As Object
Dim titre As String
titre = "chemindudocument" & File01 & [C16]

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(titre)
WordApp.Visible = True
Set WordDoc = Nothing
Set WordApp = Nothing
Sheets("Synthese").Select
End Sub

à adapter car "chemindudocument" & File01... ma boule de cristal est hermétique sur ce sujet !

A+

galopin01 a écrit :

à adapter car "chemindudocument" & File01... ma boule de cristal est hermétique sur ce sujet !

A+

Bonjour, je me posais exactement la même question ! c'est quoi chemin et File ?

Merci Galopin et XmenPL

En fait j'ai juste nommé "chemin du document" pour éviter de noter tout le chemin d'accès du document sur le réseau, mais sinon le chemin est du type:

"O:\_...……....CheckLists\" et j'avais trouvé cette formulation avec File01 dans un post d'une autre personne pour faire l'appel à un document word.

Je ne sais pas si c'est la meilleure formulation mais c'est un début..

Cependant la boule de cristal dit vrai, si je n'ai pas un nom de document après File01 il m'affiche une erreur de recherche pour document introuvable et recherche aveuglément dans le répertoir donné dans le chemin d'accès.

Donc :

titre = "O:\_...……....CheckLists\"  & "01111.docx" 'devrait convenir

A+

Re,

Tu peux aussi utiliser une variable string pour ton nom de fichier uniquement

Ton titre devient alors chemin + nom doc + extension

Dim WordApp As Object
Dim WordDoc As Object
Dim mondoc As String
Dim titre As String

mondoc=Worksheets("recherche").Range("c16")

titre = "O:\_...……....CheckLists\"  & mondoc & ".docx"   'devrait convenir aussi  :oops: 

oops j'ai indiqué "recherche" en nom de feuille ou ce trouve C16 mais je crois que recherche était le nom du fichier ?

donc à adapter avec le bon nom de feuille.

Xmenpl a écrit :

Re,

Tu peux aussi utiliser une variable string pour ton nom de fichier uniquement

Ton titre devient alors chemin + nom doc + extension

Dim WordApp As Object
Dim WordDoc As Object
Dim mondoc As String
Dim titre As String

mondoc=Worksheets("recherche").Range("c16")

titre = "O:\_...……....CheckLists\"  & mondoc & ".docx"   'devrait convenir aussi  :oops: 

oops j'ai indiqué "recherche" en nom de feuille ou ce trouve C16 mais je crois que recherche était le nom du fichier ?

donc à adapter avec le bon nom de feuille.

Génial!! Merci beaucoup ca fonctionne parfaitement une fois adapté au document oui! C'est exactement ce que je cherchais. Je ne savais pas comment faire pour avoir le titre sous la forme chemin + nom doc + extension comme tu me l'as expliqué.