Re : Bouton "télécharger fichiers" à insérer la feuille excel
Bonjour Gerem,
J'espère que tu vas bien, jai travaillé pour toi dans le train ce matin.
Comme sur mon portable je travaille sur office 2007, le fichier est un peu trop lourd pour être joint donc voici un code qui permet aux utilisateurs d'insérer plusieurs fichiers en même temps. Ils sélectionnent les fichiers en maintenant CTRL appuyé.
De plus il place les éléments sur la feuille car sinon ils sont chargés les uns au dessus des autres.
La différence est la variable mise à true dans getopenfilename et donc ça retourne un tableau des fichiers sélectionnés.
La seule chose que je n'ai pas revue c'est l'icône mais sinon tout est ok.
Cordialement
smotty
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
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(n * 4, 1).Top
.Left = Cells(n * 4, 1).Left
End With
End Sub