Ouverture de classeurs à partir de cellule

Bonjour,

Actuellement j'utilise cet événement pour charger et ouvrir 2 classeurs dans 2 dossiers différents :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If (ActiveCell.Address = Range("B1")) Or (ActiveCell.Address = Range("B3")) Then Exit Sub

Cancel = True

With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

.Show

Target = .SelectedItems(1)

End With

End Sub

Il fonctionne très bien avec 2 cellules, par contre, j'ai voulu ajouté 3 cellules supplémentaires pour 3 autres classeurs dans 3 dossiers différents et la macro plante....(identique avec ajout 3 "or" supplémentaires).

Quelqu'un pourrait-il m'aider ou m'apporter une alternative ?

Merci d'avance.

Bien Cordialement.

Bonjour,

Ouupppssss ... Désolé pour l'erreur

ric