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

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. 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