Discussion :

[Alexandra 01]

Bonjour Forum,

A la maison je fonctionne avec Windows Seven et Office 2003: avec cette configuration la macro fonctionne parfaitement.

Chez un pote qui tourne avec le windows Xp Sp2 et l office 2003 ca fonctionne pas. Il m'a dit qu'il était passé en Sp3 avec 504 mo de Ram et toujours rien. Une partie de la macro deconne, c'est l'affichage des photos en fonction des elements contenus dans la liste deroulante.

Savez vous comment le probleme peut s arranger ? en sachant qu il souhaite pas passer sur le seven.

Merci

[BenjGe]

il nous faudrait le code en question, et savoir quelles sont les instructions qui bloquent chez ton ami pour qu'on puisse t'aider

[Alexandra 01]

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
Private Sub ComboBox1_Change()
 
    'Nécessaire dans le cas ou le programme ne trouve pas l'image, le shapes reste blanc au lieu d'avoir un debogage sur les lignes
    On Error Resume Next
 
    'Cette propriété a la valeur True si la mise à jour de l'écran est activée
    Application.ScreenUpdating = False
 
 
    If ComboBox1 <> "" Then
 
 
        Image = rep1 & ComboBox1.Value & ".jpg"
 
 
 
        ActiveSheet.Shapes("Photo1").Fill.UserPicture Image 'Cadre 1
 
    End If
 
    [H21].Select
 
End Sub

Cette macro ci desssus permet d'afficher une image.

Code :

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

1
2
3
4
5
6
Select Case op.Caption
                Case "Option1"
                    Sheets(1).ComboBox1.ListFillRange = "liste1"
                    rep1 = ThisWorkbook.Path & "\Option1\Loft\"
                    Sheets(1).Label1.Caption = "Option1"
            End Select

Cette partie de la macro contenu dans un formulaire avec des cases options ci dessus permet de chercher l'image.

La rep est déclaré dans un module.

[patricktoulon]

bonjour
a tu declarer ton rep en PUBLIC si ca n'est pas le cas change ca

une variable public dans un module standard peut te servir dans tout le classeur autrement elle te sert que dans le module ou voir que dans la macro



au plaisir