Document Word extraction réseau VBA
Bonjour à toutes et à tous,
J'ai créé un fichier pour lequel à partir d'un certain code (correspondant à un défaut) excel m'extrait le document word correspondant à ce code dans son emplacement réseau. Cependant, j'ai constaté que le lien réseau diffère suivant les ordinateurs… sauriez vous m'aider à régler ce problème?
Sur le document word, je souhaite faire apparaitre le code ainsi que sa description, puis deux tableaux avec des questions génériques plus ou moins similaires suivants les codes.
Pensez-vous que je puisse, sinon, créer directement ces documents avec le fichier sans avoir besoin de passer par l'extraction réseau?
Voici mon code actuel:
Sub Resultat()
'
' Envoie l'utilisateur sur les résultats de la recherche
'
Dim WordApp As Object
Dim WordDoc As Object
Dim mondoc As String
Dim titre As String
mondoc = Worksheets("Nouvelle Recherche").Range("c16")
titre = "O:\_Truc\Don\Truc\11- truc\1- truc\2.truc\" & mondoc & ".docx"
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(titre)
WordApp.Visible = True
'...
Set WordDoc = Nothing
Set WordApp = Nothing
Sheets("Synthèse").Select
End Sub
merci d'avance pour vos réponses!