Bonjour le forum,
J'ai trouvé ce code pour insérer une image dans un commentaire :
Sub InsèreImageCommentaireCelluleActive()
'ChDir "S:\Superviseur\Photos_Risques_Machines" Ici on peut changer le répertoire et ne fonctionne pas
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End With
End Sub
J'ai insérer la ligne ChDir "S:\Superviseur\ mais cela ne fonctionne pas ?
Comment écrire le code pour forcer un changement de répertore ?
Merci
J'ai trouvé ce code pour insérer une image dans un commentaire :
Sub InsèreImageCommentaireCelluleActive()
'ChDir "S:\Superviseur\Photos_Risques_Machines" Ici on peut changer le répertoire et ne fonctionne pas
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End With
End Sub
J'ai insérer la ligne ChDir "S:\Superviseur\ mais cela ne fonctionne pas ?
Comment écrire le code pour forcer un changement de répertore ?
Merci