Bonjour
Complétement novice dans la création de macro, je suis plutô fière de moi car j'ai réussie à en faire une (enfin j'ai repris des trucs qui étaient faits et chercher un peu sur internet). Elle consiste à insérer des visuels dans un classeur Excel en fonction de ce qui est indiqué dans la cellule.
Je ne sais pas encore utilisé les variables alors j'utilise les "ranges"; j'aimerai pouvoir l'adapter à n'importe quel tableau mais bon chaque chose en son temps
***
Sub INSERT_IMAGE()
colean = Range("colean")
repdef = Range("repdef")
lgdeb = Range("lgdeb")
taille = Range("dim")
Dest = Range("Dest")
For Ligne = lgdeb To Range("liste").Rows.Count + lgdeb
ean = Cells(Ligne, colean)
If ean <> 0 Then
lgadr = ean & ".JPEG"
Cells(Ligne, Range("Dest")).Select 'cellule de destination image
If FileExists(repdef & lgadr) Then
ActiveSheet.Pictures.Insert(repdef & lgadr).Select
Selection.ShapeRange.Height = Range("dim")
Selection.Placement = xlMoveAndSize
Selection.ShapeRange.IncrementLeft (ActiveCell.Width - Selection.ShapeRange.Width) / 2
Selection.ShapeRange.IncrementTop (ActiveCell.Height - Selection.ShapeRange.Height) / 2
End If
End If
Next
End Sub
*********************
Ma macro fonctionne très bien sur mon PC (plutôt fière) mais quand j'envoi le fichier à quelqu'un, les visuels n'apparaissent plus et à la place un message indiquant que le fichier de destination est introuvable ; je veux bien croire car les images sont enregistrés uniquement sur mon PC
Ma solution aurait été de transformer ces visuels "insérer" en copier ou figer mais je n'y arrive pas..
Auriez vous une solution?
d'avance merci beaucoup
Complétement novice dans la création de macro, je suis plutô fière de moi car j'ai réussie à en faire une (enfin j'ai repris des trucs qui étaient faits et chercher un peu sur internet). Elle consiste à insérer des visuels dans un classeur Excel en fonction de ce qui est indiqué dans la cellule.
Je ne sais pas encore utilisé les variables alors j'utilise les "ranges"; j'aimerai pouvoir l'adapter à n'importe quel tableau mais bon chaque chose en son temps
***
Sub INSERT_IMAGE()
colean = Range("colean")
repdef = Range("repdef")
lgdeb = Range("lgdeb")
taille = Range("dim")
Dest = Range("Dest")
For Ligne = lgdeb To Range("liste").Rows.Count + lgdeb
ean = Cells(Ligne, colean)
If ean <> 0 Then
lgadr = ean & ".JPEG"
Cells(Ligne, Range("Dest")).Select 'cellule de destination image
If FileExists(repdef & lgadr) Then
ActiveSheet.Pictures.Insert(repdef & lgadr).Select
Selection.ShapeRange.Height = Range("dim")
Selection.Placement = xlMoveAndSize
Selection.ShapeRange.IncrementLeft (ActiveCell.Width - Selection.ShapeRange.Width) / 2
Selection.ShapeRange.IncrementTop (ActiveCell.Height - Selection.ShapeRange.Height) / 2
End If
End If
Next
End Sub
*********************
Ma macro fonctionne très bien sur mon PC (plutôt fière) mais quand j'envoi le fichier à quelqu'un, les visuels n'apparaissent plus et à la place un message indiquant que le fichier de destination est introuvable ; je veux bien croire car les images sont enregistrés uniquement sur mon PC
Ma solution aurait été de transformer ces visuels "insérer" en copier ou figer mais je n'y arrive pas..
Auriez vous une solution?
d'avance merci beaucoup