Bonjour au forum,
J'ai une macro qui marche pour inserer des photos automatiquement dans la feuille excel.
Apres double click on est dirige sur la boite de dialogue d'insertion de photo.
Or le nom du fichier photo est dans la feuille excel en colone 1.
Y a til un moyen pour que le nom du fichier s'inscrive automatiquement dans la boite de dialogue... comme c'est un codebarre la saisie est penible.
ci dessous la macro originale que je voudrais modifier...
Si ca inspire quelqu'un...merci d'avance
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width - 3
.Height = Target.Height - 3
.Placement = 1
.PrintObject = True
End With
End Sub
J'ai une macro qui marche pour inserer des photos automatiquement dans la feuille excel.
Apres double click on est dirige sur la boite de dialogue d'insertion de photo.
Or le nom du fichier photo est dans la feuille excel en colone 1.
Y a til un moyen pour que le nom du fichier s'inscrive automatiquement dans la boite de dialogue... comme c'est un codebarre la saisie est penible.
ci dessous la macro originale que je voudrais modifier...
Si ca inspire quelqu'un...merci d'avance
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width - 3
.Height = Target.Height - 3
.Placement = 1
.PrintObject = True
End With
End Sub
