Nom de fichiers dans des variables

[Fab117]

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

 

[pierrejean]

Re : Nom de fichiers dans des variables

bonsoir Fab117
a mon avis ce qu'i faut changer
Dim NomBaseDeDonnees As String

NomBaseDeDonnees = CStr(InputBox(Message, Title, Default))

Windows(Workbooks(NomBaseDeDonnees)).Activate

mais je ne le garantit pas : A tester !!

 

[RV37]

Re : Nom de fichiers dans des variables

Bonsoir PierreJean,

EN faisant le tour du forum, j'ai pu lire ta réponse à Fab117. Une partie de ta réponse vient de me débloquer sur un problème persistant dans une macro.

Même si ce message ne mettait pas adressé, je te remercie pour le tuyau.

Il s'agissait de Windows(Workbooks(Basededonnée)).Activate.

Bonne soirée

RV37

 

[Fab117]

Re : Nom de fichiers dans des variables

Salut,
En fait
Windows(Workbooks(NomBaseDeDonnees)).Activate
ne fonctionne pas (il s'arrete dessus).
Par contre
Windows(NomBaseDeDonnees).Activate
fonctionne parfaitement.

Merci et bonne fin de journée.

Fab