Bonjour a tous,
J'ai un code en VBA sous excel que j'aimerais simplifié mais je ne sais pas comment à l'heure actuelle j'ai 20 lignes mais je peux en rajouter.
Ci-joint le code.
If Sheets("BD_Reperoire3D").Range("E2") <> "\" Then
Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E2"), 2, 2, "", longstatus, longwarnings) 'Caisson_A
End If
'-
If Sheets("BD_Reperoire3D").Range("E3") <> "\" Then
Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E3"), 2, 2, "", longstatus, longwarnings) 'Caisson_B
End If
'-
If Sheets("BD_Reperoire3D").Range("E4") <> "\" Then
Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E4"), 2, 2, "", longstatus, longwarnings) 'Caisson_C
End If
'-
Comment le simplifier?
Merci d'avance pour votre aide.