mémoriser nom de fichier dans le usf

[copayo]

bonjour à tous

j'ai un USF de navigation qui peut être appelé par un bouton dans la barre de menu standard.

j'ai un pb quand j'ai 2 classeur.

- classeur 1 contenant le USF (nom variable donc je peux pas écrire en dur dans la macro)
- classeur 2 autres

comment mémoriser le nom du classeur 1, dans le cas ou je suis dans le classeur 2 pour dire : workbook(classeur d'origine).worsheets().activate


Merci par avance de votre collaboration

 

[Pierrot93]

Re : mémoriser nom de fichier dans le usf

Bonjour Copayo

je n'ais pas tout compris, tu peux peut être utiliser "ThisWorkbook" pour le classeur contenant le code...Sinon mets un fichier exemple sans données confidentielles avec le code utilisé.

bon après midi
@+

 

[gbinforme]

Re : mémoriser nom de fichier dans le usf

bonjour,

à l'ouverture du classeur, tu sauves son nom dans une variable pubique que tu utilise ensuite dans ton code USF.

 

[Creepy]

Re : mémoriser nom de fichier dans le usf

Bonsoir le Forum, Copayo,

exemple de code ci-dessous

Dim Active_Wb As Workbook
Dim Other_Wb As Workbook

Set Active_Wb = ThisWorkbook
Set Other_Wb = Workbooks.Open("c:\dede.xls")
' ... Ton code
Set Active_Wb = Nothing
Set Other_Wb = Nothing

A+

Creepy

 

[copayo]

Re : mémoriser nom de fichier dans le usf

je vais la refaire

j'ai un USF qui me permet d'accéder aux feuilles du classeur 1.

si je suis dans le classeur 2 et que j'appel mon USF je dois accéder aux feuilles du classeur 1.

le problème que j'ai c'est que le nom du classeur 1 peut changer donc dans me macros je peux pas écrire workbook("classeur1").etc....

je dois effectivement le mémoriser mais je sais pas comment faire

ca doit être set fichier = activeworkbook

mais après je sais pas le réutiliser

help svp c'est super urgent

 

[Creepy]

Re : mémoriser nom de fichier dans le usf

RE,

Regarde ma réponse tu as tout ce qu'il te faut.

Après tu fais other_wb.xxxx par exemple.

Quand tu tapes le . (point) tu as les propriétés qui s'affichent.

A+

Creepy

 

[copayo]

Re : mémoriser nom de fichier dans le usf

j'ai mis active_wb dans thisworkbook

par contre dans les private sub de mon USF ca marche pas ?

je crois qu'il y a qqch à déclarer pour pouvoir utiliser active_WB n'importe ou.

si vous avez des idées merci !

 

[Pierrot93]

Re : mémoriser nom de fichier dans le usf

Re

déclare peut être ta variable en public en tête d'un module standard
@+

 

[copayo]

Re : mémoriser nom de fichier dans le usf

je crois que c'est ca, mais tu fais comment ?

 

[Pierrot93]

Re : mémoriser nom de fichier dans le usf

Re

ligne de code ci dessous :

Public active_WB  As Workbook

1ère ligne d'un module standard

@+

 

[copayo]

Re : mémoriser nom de fichier dans le usf

dans les macros contenu dans les boutons d'un USF comment faire pour récupérer le nom du fichier qui contient ce USF.

j'ai déclaré la varaible en public mais il me dit "nothing "

je comprend plus rien !
merci pour votre coup de main si vous avez des enxemples de fichiers je suis preneur

 

[Pierrot93]

Re : mémoriser nom de fichier dans le usf

Re

il faut bien evidement initialiser la variable avant de l'utiliser, avec le code ci dessous :

Set active_WB = ActiveWorkbook

@+

 

[copayo]

Re : mémoriser nom de fichier dans le usf

j'ai fait ca :

Public active_WB As Workbook

Sub nom_fichier()

Dim active_WB As Workbook
Set active_WB = ActiveWorkbook

End Sub

par contre quand je fais ca ca bug :

Sub bouton_nav()

active_WB.Worksheets("BASE").Activate

End Sub

j'y arrive pas je suis un geu !!

 

[Pierrot93]

Re : mémoriser nom de fichier dans le usf

Re,

enlève le "Dim active_WB As Workbook", fait double emploi avec la variable déclarée en "public" et il faut que ta "Sub nom_fichier" soit éxecutée avant le code lié au bouton.

@+

 

[copayo]

Re : mémoriser nom de fichier dans le usf

merci pierrot et tous les autres

j'ai fait un truc pas tres propre mais ca marche.

j'avais une question complémentaire.lorsque la macro bug elle perd la donnée en set =

y'a t'il un moyen de conserver cette donnée quoi qu'il arrive ?