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 ;
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.
Je m'explique, j'ai deux sous dossiers dans lesquels se cachent deux photos chacune. Voilà le code ;
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 = FalseNormalement 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.