T
Tial
Guest
Bonjour à toutes et tous.
Je rencontre les problèmes suivant :
J'ai deux boutons pour afficher : image précédente et image suivante (voir code ci dessous).
Ces images sont dans un répertoire et nommées 000.JPG, 001.JPG,002.JPG......ainsi de suite.
1)Quand je suis à la dernière image affichée de mon répertoire.....Si je valide image suivante.....
2)Quand je suis à la première image affichée de mon répertoire.....Si je valide image précédente.....
J'ai ce message d'erreur (dans les deux cas):
Erreur d'exécution'-2147024809 (80070057)':
Le fichier spécifié est introuvable.
Serait il possible de mettre un message genre :
1) La dernière image est déja affichée.
2) La première image est déja affichée.
Pour ne plus avoir cette vilaine erreur d'exécution.
Par avance merci à vous.
Tial
Sub SpinButtonChange()
'On Error Resume Next
Dim strImage As String
SpinButtonMax
If SpinButton2.Max < 0 Then
MsgBox 'Pas de photo dans le répertoire !', vbCritical + vbOKOnly
SpinButton2.Value = 0
Else
Do
strImage = String(3 - Len(CStr(SpinButton2.Value)), '0') & SpinButton2.Value & '.JPG'
If strImage = Range('S3').Value Then
SpinButton2.Value = Switch(SpinButton2.Value = SpinButton2.Max, 0, SpinButton2.Value = 0, SpinButton2.Max)
Else
Exit Do
End If
Loop
Feuil1.Shapes('Rectangle 1827').Fill.UserPicture strChemin & strImage
Range('S3').Select
DeProtege
Range('S3').Value = strImage
Protege
End If
End Sub
Je rencontre les problèmes suivant :
J'ai deux boutons pour afficher : image précédente et image suivante (voir code ci dessous).
Ces images sont dans un répertoire et nommées 000.JPG, 001.JPG,002.JPG......ainsi de suite.
1)Quand je suis à la dernière image affichée de mon répertoire.....Si je valide image suivante.....
2)Quand je suis à la première image affichée de mon répertoire.....Si je valide image précédente.....
J'ai ce message d'erreur (dans les deux cas):
Erreur d'exécution'-2147024809 (80070057)':
Le fichier spécifié est introuvable.
Serait il possible de mettre un message genre :
1) La dernière image est déja affichée.
2) La première image est déja affichée.
Pour ne plus avoir cette vilaine erreur d'exécution.
Par avance merci à vous.
Tial
Sub SpinButtonChange()
'On Error Resume Next
Dim strImage As String
SpinButtonMax
If SpinButton2.Max < 0 Then
MsgBox 'Pas de photo dans le répertoire !', vbCritical + vbOKOnly
SpinButton2.Value = 0
Else
Do
strImage = String(3 - Len(CStr(SpinButton2.Value)), '0') & SpinButton2.Value & '.JPG'
If strImage = Range('S3').Value Then
SpinButton2.Value = Switch(SpinButton2.Value = SpinButton2.Max, 0, SpinButton2.Value = 0, SpinButton2.Max)
Else
Exit Do
End If
Loop
Feuil1.Shapes('Rectangle 1827').Fill.UserPicture strChemin & strImage
Range('S3').Select
DeProtege
Range('S3').Value = strImage
Protege
End If
End Sub