Macro Excel Open.

Résolu/Fermé
gregory2710 - 4 févr. 2018 à 07:52
 gregory2710 - 22 févr. 2018 à 12:59
Bonjour à tous et à toutes,

J'essaie de créer une Macro Excel en VBA pour ouvrir un document Word. En ce moment, voici ma Macro :

Sub OpenWordDoc()

Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
wordapp.Documents.Open "L:\FO\Grégory\Excel\Confirmation.docm"
End Sub


Toutefois, j'aimerais remplacer l'emplacement et le nom du document "L:\FO\Grégory\Excel\Confirmation.docm" se trouvant dans la cellule 'A1' de la feuille 'Links'.

Auriez-vous une idée ou une solution pour y parvenir ? Insérer dans la Macro, l'emplacement du fichier, contenu dans une cellule ?

Je vous remerice beaucoup pour votre aide & participation !

Grégory

A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 304
4 févr. 2018 à 09:34
Bonjour

essaies
Option Explicit
'---------------------------
Sub OpenWordDoc()
Dim nom_plein As String, Wordapp As Object
nom_plein = Sheets(1).Range("B2").Value
Set Wordapp = CreateObject("word.Application")
Wordapp.Documents.Open nom_plein
Wordapp.Visible = True
End Sub


Bonjour michel_m,

super, ça marche niquel! Merci beaucoup à toi!

Grégory
0