Nom de fichiers dans des variables

Salut,
Ma macro va jongler entres 2 fichiers.
Je voudrais donc définir leurs noms dans 2 variables.
J'ai donc écrit :
Dim FichierActivitesPlanifiees As Workbook
Dim NomBaseDeDonnees As Workbook

Mais il n'accepte pas, il m'indique le message :
Compile error: Duplicate declaration in current scope

Quelqu'un peut-il me donner la solution à ce problème ?

J'en profite pour poser une 2ème question :
Si ce problème est résolu, je définirai le premier fichier de la manière suivante :
Set FichierActivitesPlanifiees = ActiveWorkbook
et je l'activerai avec le code :
FichierActivitesPlanifiees.Activate
Je ne m'attend pas à une mauvaise surprise, car j'a déjà testé ceci.

Par contre pour le 2ème, je voudrais que l'utilisateur définisse le nom dans une boite de dialogue. Le code serait :
Dim Message, Title, Default, NomBaseDeDonnees
Message = "le nom du fichier contenant la base de donnée"
Title = "Base de données extraites d'Access"
Default = "Base de donnee version aaaa.mm.jj.xls"
NomBaseDeDonnees = CInt(InputBox(Message, Title, Default))

et je l'activeraiS avec le code :
Windows(NomBaseDeDonnees).Activate

Est-ce que ça devrait marcher ?

Merci d'avance.

Fab