Re : Bouton "télécharger fichiers" à insérer la feuille excel
Bonjour Forum, Bonjour Smotty si tu es là.
Dans la formule que Smotty m'a gentillement donnée pour insérer un fichier dans un document excel sous forme d'objet, tout fonctionne.
Sauf que si la personne clique sur le bouton télécharger et finalement décide de ne rien télécharger et donc ferme la fenêtre de dialogue soit en cliquant sur la croix en haut à droite, soit en cliquant sur annuler, le message suivant apparaît:
Erreur d'execution 13
Incompatibilité de type
Avez-vous une idée de comment fermer sans avoir ce message?
Pour mémoire, voici le code:
Private Sub CommandButton1_Click()
Dim x As Integer
'**********************************************
'sélection possible de plusieurs fichiers
'**********************************************
che = Application.GetOpenFilename(, , , , True)
For x = 1 To UBound(che)
Call InsererFichier(che(x))
Next x
If UBound(che) > 0 Then Worksheets("SYNTHESE").Range("L15").Value = "OUI"
End Sub
Sub InsererFichier(ByVal Chemin As String)
Dim Fichier As String
Dim Obj As OLEObject
Dim n As Integer
'*******************************************
'détermine le nombre de fichiers sur la page
'*******************************************
n = ActiveSheet.OLEObjects.Count
'*******************************************
'détermine le nom du fichier
'*******************************************
tabc = Split(Chemin, "\")
Fichier = tabc(UBound(tabc))
'*******************************************
'insère le fichier
'*******************************************
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1036-7B44-A70900000002}\PDFFile.ico", _
IconIndex:=0, IconLabel:= _
Fichier _
)
With Obj
'****************************************
'placement en fonction du nombre d'objets
'****************************************
.Top = Cells(16, 1).Top
.Left = Cells(16, n).Left
End With
End Sub
Merci pour votre aide
GEREM