Bonjour,
J'utilise la macro ci-dessous pour insérer des images JPG dans un fichier Ecxel.
Je souhaiterai que la macro aille chercher l'image dans un répertoire sur le serveur dont le chemin est "//Serveur/Commun/"
Pour le moment la macro va vers le dernier chemin qui est été ouvert par Excel.
Merci pour votre aide.
Franck
Public Sub Inserer_image()
Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") 'Choix du fichier image à insérer
If ficimg = False Then Exit Sub
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = Range("A65").Top
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = Range("A65").Left
End Sub
J'utilise la macro ci-dessous pour insérer des images JPG dans un fichier Ecxel.
Je souhaiterai que la macro aille chercher l'image dans un répertoire sur le serveur dont le chemin est "//Serveur/Commun/"
Pour le moment la macro va vers le dernier chemin qui est été ouvert par Excel.
Merci pour votre aide.
Franck
Public Sub Inserer_image()
Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") 'Choix du fichier image à insérer
If ficimg = False Then Exit Sub
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = Range("A65").Top
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = Range("A65").Left
End Sub