Import fichier sous Excel

Question

Bonjour, je cherche, sur un fichier Excel (il s'agit d'un bon de commande), à corriger les points suivants au sujet d'imports de fichiers sous forme d'icônes:

1- j'arrive à importer un fichier quel que soit son extension MAIS seuls les fichiers en ".zip" permettent d'enregistrer le bon de commande (les autres extensions importées génèrent une impossibilité d'enregistrement). Code (associé au premier bouton "import1"):

Private Sub CommandButton1_Click()
' ouvrir un fichier avec l'extention demander
Range("E73").Select
fichier = Application.GetOpenFilename
If fichier = False Then Exit Sub
'Creation de l'objet
ActiveSheet.OLEObjects.Add(Filename:= _
fichier, Link:=False, Displayasicon _
:=True, _
IconIndex:=0, IconLabel:="Plan Agence 1").Select
End Sub

Message d'erreur obtenu:

PS: je ne peux pas joindre le fichier qui est confidentiel.

2- lorsque le fichier est importé, l'affichage n'est pas propre (pas d'icône lisible et zone affichée trop grande):

Merci

Invité · Answer

Vouloir intégrer des fichiers OLE dans un classeur est pour moi une hérésie d'ailleurs Excel n'aime pas et vous le fait savoir De manière général, on privilégie un dossier de stockage et des liens hypertextes vers ces fichiers Bonne chance...