Insertion Objet Word dans une feuille Excel

Bonjour à la patience des mes interlocuteurs.

Je sais insérer un objet Word dans une feuille Excel : Insertion/Texte/Objet/Document Microsoft Word.

Mais un fois inséré cet objet est déplaçable : est-il possible de le bloquer dans un position précise avant utilisation avec le double clic ?

C'est au premier clic que la feuille de devrait pas pouvoir se déplacer.

Merci et agréable journée.

Grace au FORUM je commence à être moins bête

Rubens

Bonjour Rubens,

Je te propose le code suivant à attacher comme macro au lien document (clic droit sur le lien et "Affecter une macro")

Sub Objet1_Cliquer()
    Const cName = "Objet 1"         'A adapter au nom du lien document dans la feuille
    Const cCellule = "K10"          'A adapter à l'adresse de la cellule à laquelle le lien document est attaché
    Dim o As Shape
    Dim oRange As Range

    Set oRange = ActiveSheet.Range(cCellule)
    Set o = ActiveSheet.Shapes(cName)
    o.Top = oRange.Top
    o.Left = oRange.Left
    o.OLEFormat.Activate
End Sub

Bonjour Gérard et merci pour ta gentillesse.

J’ai suivi ta suggestion de code et j’ai procède ainsi dans ma feuille Excel qui possède déjà de macros :

Développeur

Visualiser le code

J’ai collé ton code

Je suis sorti avec le bouton X

Dans la feuille Excel

Développeur

Mode création

Insérer

Contrôles Active X

Sélection de « Bouton de Commande »

J’ai collé et dimensionné le bouton dans la feuille Excel et après :

Développeur

Désactiver le Mode Création

Le bouton s’affiche bien dans la page

Je sélectionne mais RIEN NE SE PASSE : J’ai commis des erreurs ? J’ai oublié quelques passages ?

Pardonne le dérangement et merci pour ton aide car s’est important pour moi de pouvoir insérer Word dans ma feuille Excel dont une copie est ci-jointe.

Un grand merci et agréable journée.

Rubens Gastaldi

5dv-1p27l.xlsm (143.02 Ko)

Bonjour Rubens,

En fait, tu dois :

- Inclure le document voulu par "Insertion/Texte/Objet..." :

ajoutdocument

-Puis lier la macro à l'objet inséré : clic droit sur l'objet et "Affecter une macro" :

affectermacro

-De ne oublier de remplacer dans la macro "Objet1_Cliquer", la constante "cName" avec le nom correct de l'objet indiqué dans la zone nom EXCEL (voir ci-dessus)

Dans le cas illustré :

Const cName = "Objet 11"        'A adapter au nom du lien document dans la feuille

Ainsi que l'adresse de la cellule fixant la place de l'objet document, dans ton cas, la cellule "A24"

Const cCellule = "A24"         'A adapter à l'adresse de la cellule à laquelle le lien document est attaché  

Merci cher Gérard,

je vais essayer et je te tiendrai au cour de mon exploit.

Cordialement

Rubens Gastaldi

Bonjour Gérard et un grand merci.

J’ai suivi tes instructions à la lettre mais je croix commettre encore des erreurs :

• Le document Word que je tente d’insérer dans Excel DV 1P27L (copie jointe) est : Module DV (copie Jointe)

• Dans Excel Insertion/Texte/Objet

o Créer à partir du fichier

o Parcourir

o Nom du Fichier : c:\Users\f100\Documents\Professionnel\Module DV.doc

o Afficher sous forme d’icône

o L’icône est bien présent en bas à droite

o Valider avec OK

o L’Icône est bien présent sur la feuille Excel (voir copie jointe)

o Clic droit sur l’Icône

o Affecter une Macro

o Valider avec OK : Feuille2.Objet1_Cliquer

o La MACRO Objet1_Cliquer ainsi modifiée :

Sub Objet1_Cliquer()

Const cName = "Objet1_Cliquer" 'A adapter au nom du lien document dans la feuille

Const cCellule = "A24" 'A adapter à l'adresse de la cellule à laquelle le lien document est attaché

Dim o As Shape

Dim oRange As Range

Set oRange = ActiveSheet.Range(cCellule)

Set o = ActiveSheet.Shapes(cName)

o.Top = oRange.Top

o.Left = oRange.Left

o.OLEFormat.Activate

End Sub

• Message d’erreur :

o Erreur Système &H80070057 (-2147024809). Paramètre incorrect.

o Copié ce message et une fois collé sur Excel il demeure verrouillé

Je te saurais gré de ton aide en espérant de ne pas trop déranger avec mes limites.

Bien cordialement

Rubens GASTALDI

4dv-1p27l.xlsm (159.11 Ko)
3module-dv.docx (20.29 Ko)

Bonjour Rubens,

Tu y es presque

La référence à l'objet WORD dans la macro est erronée : tu y as indiqué :

Const cName = "Objet1_Cliquer"

alors que tu dois indiquer :

Const cName = "Objet 11"

Dans l'image de mon envoi précédent, j'ai entouré en rouge l'endroit où se trouve le bon nom d'objet.

J'ai testé sur la dernière version de ton EXCEL et ça fonctionne pour moi.

Courage.

AHHHHHHHHHH je vais me couché moins bête.

Tout Fonctionne.

Un grand merci cher Gérard et passe une agréable fin semaine

Rubens GASTALDI

De nouveau bloqué cher Gérard.

J'ai tout simplement changer l'emplacement de A24 à A21

Merci

Rubens

6dv-1p27l.xlsm (161.18 Ko)

L'erreur qui m'annonce une fois changer de classeur

Sub Objet1_Cliquer()

Const cName = "Objet 11" 'A adapter au nom du lien document dans la feuille

Const cCellule = "A21" 'A adapter à l'adresse de la cellule à laquelle le lien document est attaché

Dim o As Shape

Dim oRange As Range

Set oRange = ActiveSheet.Range(cCellule)

Set o = ActiveSheet.Shapes(cName)

o.Top = oRange.Top

o.Left = oRange.Left

o.OLEFormat.Activate

End Sub

dans débogage il me met en jaune

Set o = ActiveSheet.Shapes(cName)

Pardonne le dérangement mais je suis arriver à résoudre.

Merci et bonne fin semaine

Rubens GASTALDI (un peu moins nul)

Rechercher des sujets similaires à "insertion objet word feuille"