Ouvrir un objet dans une feuille excel

[noucho]

Bonjour,

Je souhaite savoir s'il existe une possibilité par macro pour lire un objet inséré dans un classeur excel, en l’occurrence un fichier texte ?

Par avance, merci.

Stéphane

 

[Compte Supprimé 979]

Re : Ouvrir un objet dans une feuille excel

Bonjour Noucho

Pour ouvrir l'objet oui

Sub Macro1()
'
  ActiveSheet.Shapes("Object 3").Select
  Selection.Verb Verb:=xlPrimary
End Sub

Ce code grace à l'enregistreur de macro

A+

 

[noucho]

Re : Ouvrir un objet dans une feuille excel

Merci pour la réponse

Lorsqu'on déclenche la macro, il y a un avertissement excel concernant l'objet OLE. Est il possible de désactiver l'avertissement pour que la macro ouvre directement le fichier texte ?

Par avance, merci.

Stéphane

Bonjour Noucho

Pour ouvrir l'objet oui

Sub Macro1()
'
  ActiveSheet.Shapes("Object 3").Select
  Selection.Verb Verb:=xlPrimary
End Sub

Ce code grace à l'enregistreur de macro

A+

 

[Compte Supprimé 979]

Re : Ouvrir un objet dans une feuille excel

Bonsoir,

étrange, je n'ai pas de message chez moi !?

Essaye comme ceci

Sub Macro1()
'
  Application.DisplayAlerts = False
  ActiveSheet.Shapes("Object 3").Select
  Selection.Verb Verb:=xlPrimary
  Application.DisplayAlerts = True
End Sub

A+