Discussion :

[Didpa]

Voila je n'arrive pas a trouver la formule exact afin de pouvoir inserer un image dans ma feuille, j'ai toujours le même message d'erreur
"La method insert de la classe picture a échoué"

Code :

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

1
2
3
4
5
6
7
8
9
 ActiveCell.Offset(0, -1).Select
       ActiveSheet.Pictures.Insert ( _
        "C:\Documents and Settings\Administrateur\Mes documents\Sage\Photos Articles\& Nouvelle_Fiche_A4.TextBox_REF.Value & .jpg")
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 82.5
    Selection.ShapeRange.Width = 198.75
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.IncrementLeft 1.5
    Selection.ShapeRange.IncrementTop 6#

[SfJ5Rpw8]

à priori vu les & tu as mis une variable dans ton nom de fichier..?.. la variable ne doit pas être dans les " , si tu veu que sa valeur participe à la création du nom de fichier ... et pas son nom.. pour t'en convaincre exécute le code suivant:

Code :

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

1
2
3
4
5
6
7
 
dim stMaVariable as string
stMaVariable = "MonFichier"
 
msgbox "c:\tmp\" & stMaVariable & ".doc"
 
msgbox "c:\tmp\ & stMaVariable & .doc"

[Didpa]

J'ai esseillé les deux maniere que tu m'a proposé mais j'ai toujours le même message d'erreur.

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
 Dim stMaVariable As String
stMaVariable = "Nouvelle_Fiche_A4.TextBox_REF.Value"
 
'MsgBox "c:\tmp\" & stMaVariable & ".doc"
 
'MsgBox "c:\tmp\ & stMaVariable & .doc"
 
 
       ActiveSheet.Pictures.Insert _
        "C:\Documents and Settings\Administrateur\Mes documents\Sage\Photos Articles\ & stMaVariable & .jpg"
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 82.5
    Selection.ShapeRange.Width = 198.75
    Selection.ShapeRange.Rotation = 0#
    Selection.ShapeRange.IncrementLeft 1.5
    Selection.ShapeRange.IncrementTop 6#

[SfJ5Rpw8]

tu est sur d'avoir testé mon code .. et d'avoir compris son fonctionnement ..?

essai :

Code :

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

1
2
3
 
ActiveSheet.Pictures.Insert _
        "C:\Documents and Settings\Administrateur\Mes documents\Sage\Photos Articles\" & Nouvelle_Fiche_A4.TextBox_REF.Value & ".jpg"

les variables ne doivent pas être dans les "..!