Bonjour,
Etant novice en vba, j'ai récupéré le code ci dessous et je souhaiterais faire quelques adaptation : tout d'abord je souhaiterais les fichiers soit ajoutés sur la ligne C38 puis suivante (C38, D38, E38...) et par ailleurs actuellement il affiche un carré blanc et je souhaiterais que soit affiché l'icone (pdf, excel, word....) et le nom du fichier
Pouvez vous m'aider ?
Sub Telecharger()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim Nomfichier As String
Dim Emplacement As Range
Dim derniereLigne As Integer
derniereLigne = Range("C" & Rows.Count).End(xlUp).Row + 1 'n° de la première ligne vide de la colonne C
Chemin = Application.GetOpenFilename(Title:="Insertion du fichier complémentaire aux explications")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
Set Emplacement = Range("C" & derniereLigne)
With ActiveSheet
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True)
End With
With Obj.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Range("C" & derniereLigne) = Obj.ShapeRange.Name
End Sub
Etant novice en vba, j'ai récupéré le code ci dessous et je souhaiterais faire quelques adaptation : tout d'abord je souhaiterais les fichiers soit ajoutés sur la ligne C38 puis suivante (C38, D38, E38...) et par ailleurs actuellement il affiche un carré blanc et je souhaiterais que soit affiché l'icone (pdf, excel, word....) et le nom du fichier
Pouvez vous m'aider ?
Sub Telecharger()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim Nomfichier As String
Dim Emplacement As Range
Dim derniereLigne As Integer
derniereLigne = Range("C" & Rows.Count).End(xlUp).Row + 1 'n° de la première ligne vide de la colonne C
Chemin = Application.GetOpenFilename(Title:="Insertion du fichier complémentaire aux explications")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
Set Emplacement = Range("C" & derniereLigne)
With ActiveSheet
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True)
End With
With Obj.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Range("C" & derniereLigne) = Obj.ShapeRange.Name
End Sub