Probleme sur VBA Excel 2003

[Marina01]

Je ne comprends pas pourquoi le chemin que je viens de mettre en place pour atteindre une photo ne marche pas.

Je m'explique, j'ai deux sous dossiers dans lesquels se cachent deux photos chacune. Voilà le code ;

Private Sub CommandButton1_Click()

For Each op In UserForm1.Frame2.Controls
    If op Then
        Select Case op.Caption
            Case "Série 2-2.5"
                Sheets(1).ComboBox1.ListFillRange = "liste1"
                Sheets(1).ComboBox2.ListFillRange = "liste2"
                rep1 = ThisWorkbook.Path & "\maison\"
                rep2 = ThisWorkbook.Path & "\appartement\"
            Case "Série 3"
                Sheets(1).ComboBox1.ListFillRange = "liste3"
                Sheets(1).ComboBox2.ListFillRange = "liste4"
    End Select
        Exit For
    End If
 Next
 Me.Hide
 Sheets(1).Select
 Sheets(1).ComboBox1.Text = ""
 Sheets(1).ComboBox2.Text = ""
 Sheets(1).Calculate
ActiveWindow.DisplayHeadings = False

Normalement je dois pouvoir chercher la photo dans le dossier maison ou appartement mais cela ne marche pas. Ca marche lorsque les photos ne sont pas dans les dossiers. Si vous souhaitez j ai un fichier qui pourrait vous permettre de mieux comprendre précisément le probleme.

 

[gilbert_RGI]

Re : Probleme sur VBA Excel 2003

Bonjour
rien n'a avancé depuis .......

 

[kjin]

Re : Probleme sur VBA Excel 2003

Bonjour,

Si vous souhaitez j ai un fichier qui pourrait vous permettre de mieux comprendre précisément le probleme

Ca me parait indispensable parce que là on ne vois pas où se situe le pb
A+
kjin

 

[Pierrot93]

Re : Probleme sur VBA Excel 2003

Bonjour à tous

peut être le début et le fichier ici :
https://www.excel-downloads.com/threads/vba-excel-2003-rollover.136514/

@+

 

[gilbert_RGI]

Re : Probleme sur VBA Excel 2003

J'ai donné déjà pas mal de tuyaux pour ce fichier qui fonctionne

voilà encore un plus

rollover

Edit : Hello Pierrot et Kjin