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:

Macro Excel Open.
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

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 303
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

gregory2710
22 févr. 2018 à 12:59

Bonjour michel_m,

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

Grégory

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters