Discussion :

[swissmade]

Voici mon code:

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
Sub img_entraineur(home)
Dim i As Integer
Dim club As String
Dim pref As String
Dim adresse As String
If home = True Then
pref = "h"
Else
pref = "g"
End If
i = v_club(Range(pref & "club").Value)
adresse = Feuil2.Cells(100, 101)
club = Feuil2.Cells(1, i)
Feuil1.Range(pref & "entraineur").Select
    On Error GoTo A:
    Feuil1.Pictures.Insert(adresse & club & ".gif").Select
        Selection.Name = pref & "imgentraineur"
        GoTo C:
A:
    On Error GoTo B:
    Feuil1.Pictures.Insert(adresse & club & ".jpg").Select
        Selection.Name = pref & "imgentraineur"
        GoTo C:
B:
MsgBox ("Impossible de trouver l'image de l'entraineur")
C:
 
End Sub

Lorsque que je l'execute et qu il n'existe pas de fichier ni en .gif ni en .jpg le prog se lance sans problemet et plante a la ligne

Code :

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

Feuil1.Pictures.Insert(adresse & club & ".jpg").Select

Pourquoi?

D'avance merci

[ouskel'n'or]

Tu peux tester

Code :

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

1
2
3
4
5
6
    On Error Resume next
    Feuil1.Pictures.Insert(adresse & club & ".gif").Select
    err.clear
    Feuil1.Pictures.Insert(adresse & club & ".jpg").Select
    Selection.Name = pref & "imgentraineur"
    if err then MsgBox ("Impossible de trouver l'image de l'entraineur")

[swissmade]

EDIT:

Oups non ca marche si un fichier est en .jpg mais pas en .gif...

Le fichier s'affiche bien mais le message d'erreur s'affiche quand meme.
par contre en .jpg pas de prob

[ouskel'n'or]

Oui, modifie, j'ai "écrit" trop vite

Code :

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

1
2
3
4
5
6
7
8
Dim erreur as boolean
    On Error Resume next
    Feuil1.Pictures.Insert(adresse & club & ".gif").Select
    Erreur = err <> 0
    err.clear
    Feuil1.Pictures.Insert(adresse & club & ".jpg").Select
    Selection.Name = pref & "imgentraineur"
    if Erreur and err <> 0 then MsgBox ("Impossible de trouver l'image de l'entraineur")

[swissmade]

Top merci de tes réponses rapide!!

@+

[SilkyRoad]

bonjour

il est aussi possible de vérifier si les fichiers existe à la place de la gestion d'erreurs.

Code :

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

1
2
3
4
5
6
7
8
9
10
If Dir(adresse & club & ".jpg") <> "" Then
'
'...
'
Else
 
If Dir(adresse & club & ".gif") <> "" Then
'
'..
'

michel