Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
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
0
gregory2710
22 févr. 2018 à 12:59
Bonjour michel_m,

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

Grégory
0