Macro pour insérer un document Word

[Mister Binaire]

Bonsoir le forum,

J'ai besoin d'une pointure en VBA pour améliorer ce code (voir ci-dessous) afin d'insérer un fichier word.

Je voudrais (si possible) que le répertoire ne soit pas figé et que l'utilisateur puisse parcourir pour trouver le fichier word à insérer.

En second, lors de l'importation je désirerais que toutes les pages soient importées avec la macro ci-dessous seule la première page est importée.

Merci de votre aide...

Sub Incorporer_Fichier_Word()
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Users\Jean-Philippe\Documents\Courrier\1409 essai D955 25µ Blue bis .doc", _
Link:=False, DisplayAsIcon:=False).Select
End Sub

 

[youky(BJ)]

Re : Macro pour insérer un document Word

Bonjour Mister Binaire,
Voici qui permet de sélectionner un fichier.
J'insert une icone du fichier qui en double cliquant dessus ouvre le fichier word.
Si pas d'icone seule la 1ère page est affichée.

Sub MacroEssai()
fichier = Application.GetOpenFilename("Fichiers .Doc (*.doc),*.doc,Fichier .CSV(*.csv),*.csv")
If fichier = False Then Exit Sub
    ActiveSheet.OLEObjects.Add(Filename:= _
        fichier, Link:=False, DisplayAsIcon _
        :=True, IconFileName:= _
        "C:\Windows\Installer\{91120000-002F-0000-0000-0000000FF1CE}\wordicon.exe", _
        IconIndex:=0, IconLabel:=fichier). _
        Select
End Sub

Bruno

 

[Mister Binaire]

Re : Macro pour insérer un document Word

Bonsoir Bruno, Bonsoir le Forum,

Merci de ton aide Bruno ta macro marche super bien.

Cependant, je n'ai pas l'icone Word qui apparaît lors de l'insertion mais uniquement un carré blanc avec le chemin du fichier à l'intérieur.

Est il possible d'avoir l'icone ?

Te remerciant par avance...

 

[youky(BJ)]

Re : Macro pour insérer un document Word

Yes,
pour avoir l'icone ou celle que tu souhaites passe par l'enregistreur de macro.
Faire insertion> objet>créer à partir du fichier
Cocher afficher sur forme d'icone.
Voir la macro réalisée et modifier lla ligne ci-dessous par celle de l'enregistreur qui doit être différente

"C:\Windows\Installer\{91120000-002F-0000-0000-0000000FF1CE}\wordicon.exe", _

Attention d'un PC à l'autre cela peut changer....

Bruno

 

[Mister Binaire]

Re : Macro pour insérer un document Word

Bonjour Bruno, Le Forum,

Merci de ton aide Bruno cela marche à merveille !!