Discussion :

[lolo_bob2]

bonjour,

j'ai un problème avec ce code j'ai toujours une erreur pouvez vous me dire d'où ça provient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 03/04/2006 por SUPPORTER
'
 
'
 
    ' declaration des variables
 
    Dim test As String
    Dim name As String
 
    ' supprimer les photos en cours
    ActiveSheet.Pictures.Delete
 
 
    ' récupérer le nom dans la case
    test = ActiveCell.Text
 
 
    'ajouter l'extencion au nom
    name = test + ".jpg"
 
 
    ' choisir la cellule du coin supérieur gauche de votre image :
    Range("C3").Select
 
    ' insérer la photo avec le nom désiré :
    ActiveSheet.Pictures.Insert(name).Select
End Sub

l'erreur est la suivante impossible de lire la proprieté insert de la class picture

Pouvez vous m'aider

Merci beaucoup

[bidou]

le nom de fichier donné par name ne doit pas être bon

[lolo_bob2]

Ok merci

mais est ce que je dois mettre un truc du genre
c:/documents/photos....à la place du mot test ?
merci beaucoup

A+