La fonction ImportImages ci-dessous que j'essaie d'adapter bug
lorsqu'elle ne trouve pas une photo.
Pourriez vous m'aider à réaliser un petit test du genre: si pas de photo
revenir en ligne 4
1 Sub ImportImages()
2 ChDir ActiveWorkbook.Path
3 Range("a7").Select
4 Do While ActiveCell.Offset(2, 0).Value <> ""
5 nf = ActiveCell.Offset(2, 0).Value & ".jpg"
6 Set monimage = ActiveSheet.Pictures.Insert(nf)
7 ActiveCell.EntireRow.RowHeight = monimage.Height + 0
8 ActiveCell.Offset(0, 2).Select
9 Loop
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Sub ImportImages() ChDir ActiveWorkbook.Path Range("a7").Select Do While ActiveCell.Offset(2, 0).Value <> "" nf = ActiveCell.Offset(2, 0).Value & ".jpg" If Dir(nf) <> "" Then Set monimage = ActiveSheet.Pictures.Insert(nf) ActiveCell.EntireRow.RowHeight = monimage.Height + 0 End if ActiveCell.Offset(0, 2).Select Loop
JB
Bonjour,
La fonction ImportImages ci-dessous que j'essaie d'adapter bug lorsqu'elle ne trouve pas une photo. Pourriez vous m'aider à réaliser un petit test du genre: si pas d e photo revenir en ligne 4
1 Sub ImportImages() 2 ChDir ActiveWorkbook.Path 3 Range("a7").Select 4 Do While ActiveCell.Offset(2, 0).Value <> "" 5 nf = ActiveCell.Offset(2, 0).Value & ".jpg" 6 Set monimage = ActiveSheet.Pictures.Insert(nf) 7 ActiveCell.EntireRow.RowHeight = monimage.Height + 0 8 ActiveCell.Offset(0, 2).Select 9 Loop
En vous remerciant par avance.
Sub ImportImages()
ChDir ActiveWorkbook.Path
Range("a7").Select
Do While ActiveCell.Offset(2, 0).Value <> ""
nf = ActiveCell.Offset(2, 0).Value & ".jpg"
If Dir(nf) <> "" Then
Set monimage = ActiveSheet.Pictures.Insert(nf)
ActiveCell.EntireRow.RowHeight = monimage.Height + 0
End if
ActiveCell.Offset(0, 2).Select
Loop
JB
Bonjour,
La fonction ImportImages ci-dessous que j'essaie d'adapter bug
lorsqu'elle ne trouve pas une photo.
Pourriez vous m'aider à réaliser un petit test du genre: si pas d e photo
revenir en ligne 4
1 Sub ImportImages()
2 ChDir ActiveWorkbook.Path
3 Range("a7").Select
4 Do While ActiveCell.Offset(2, 0).Value <> ""
5 nf = ActiveCell.Offset(2, 0).Value & ".jpg"
6 Set monimage = ActiveSheet.Pictures.Insert(nf)
7 ActiveCell.EntireRow.RowHeight = monimage.Height + 0
8 ActiveCell.Offset(0, 2).Select
9 Loop
Sub ImportImages() ChDir ActiveWorkbook.Path Range("a7").Select Do While ActiveCell.Offset(2, 0).Value <> "" nf = ActiveCell.Offset(2, 0).Value & ".jpg" If Dir(nf) <> "" Then Set monimage = ActiveSheet.Pictures.Insert(nf) ActiveCell.EntireRow.RowHeight = monimage.Height + 0 End if ActiveCell.Offset(0, 2).Select Loop
JB
Bonjour,
La fonction ImportImages ci-dessous que j'essaie d'adapter bug lorsqu'elle ne trouve pas une photo. Pourriez vous m'aider à réaliser un petit test du genre: si pas d e photo revenir en ligne 4
1 Sub ImportImages() 2 ChDir ActiveWorkbook.Path 3 Range("a7").Select 4 Do While ActiveCell.Offset(2, 0).Value <> "" 5 nf = ActiveCell.Offset(2, 0).Value & ".jpg" 6 Set monimage = ActiveSheet.Pictures.Insert(nf) 7 ActiveCell.EntireRow.RowHeight = monimage.Height + 0 8 ActiveCell.Offset(0, 2).Select 9 Loop
