Bonsoir,
Ci-dessous un bout de code permettant de sélectionner un fichier image, d'en insérer uniquement le nom avec un lien avec hypertexte.
Je cherche à modifier le code pour que le fichier soit d'abord copié dans un autre dossier prédéfini et que ce soit lui qui soit ensuite insérer etc...
J'ai essayé avec File Copy mais je n'y arrive pas.
Merci de votre aide
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim image As Shape
Dim picToOpen As String
On Error Resume Next
If Not Application.Intersect(Target, Range("AE7:AM45")) Is Nothing Then
picToOpen = Application.GetOpenFilename("Pics (*.jpg;*.gif;*.png;*.jpeg), *.jpg;*.gif;*.png;*.jpeg")
'ActiveSheet.Pictures.Insert(picToOpen).Select
FileCopy ActiveSheet.Pictures.picToOpen.Select "C:\Classeur.jpeg"
Target1 = Mid(picToOpen, InStrRev(picToOpen, "\") + 1)
Target = Left(Target1, InStr(Target1, ".") - 1)
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=picToOpen
ActiveSheet.Pictures(5).Delete
Cancel = True
End If
End Sub