Macro Excel Open.

Résolu
gregory2710 -  
 gregory2710 -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
 
Bonjour michel_m,

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

Grégory
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses