Bonjour Laurent
Ben tu dois tous simplement faire comme cela:
Private Sub CommandButton1_Click()
Dim NomFichier As String
NomFichier = Cells(ActiveCell.Row, 6) & ".xls"
On Error GoTo fin
Workbooks.Open "C:\Documents and Settings\.....\" & NomFichier
Exit Sub
fin:
MsgBox "Fichier inexistant!"
End Sub
Petit info:
Dans la ligne :NomFichier = Cells(ActiveCell.Row, 6) & ".xls", le 6 represente la collone, A=1, B=2,..., à toi de modifie
je gère aussi l'erreur pour éviter le bug si le fichier n'existe pas
Dans la ligne : Workbooks.Open "C:\Documents and Settings\.....\" & NomFichier, N'oublie pas la \ pour terminir aussi non il trouvera pas le fichier
Bonne soirée
Tient moi au courant
@Christophe@