Application.ActiveWorkbook (Excel)

Renvoie un objet Workbook qui représente le classeur dans la fenêtre active (fenêtre au premier plan). Elle renvoie la valeur Nothing si aucune fenêtre n'est ouverte ou si la fenêtre active est la fenêtre Info ou Presse-papiers. En lecture seule.

Dim wbActiveWorkbook As Workbook
Set wbActiveWorkbook = ActiveWorkbook