Bonsoir,
Un petit exemple :
Sub Ouvre()
Dim NomClasseur As String, NomFeuille As String
NomClasseur = ActiveWorkbook.Name
NomFeuille = ActiveSheet.Name
If NomClasseur = "Classeur1.xls" And NomFeuille = "Feuil1" Then
Workbooks.Open "c:\Classeur2.xls"
Else
MsgBox "Opération non autorisée", vbOKOnly
With Workbooks("classeur1.xls")
.Save
.Close
End With
End If
End Sub
Dans le cas présent, le fichier "Classeur2.xls" ne s'ouvre que si le classeur actif est "Classeur1.xls" et si la feuille active est "Feuil1" sinon un message box apparait et lors du clique sur le bouton OK, le classeur "Classeur1.xls" est sauvegardé et fermé
@+
Ronan