OVH Cloud OVH Cloud

question sur excel

4 réponses
Avatar
JEAN
bonjour est t'il possible lors de l'ouvertutre de mon fichier
de ne pas à avoir a mettre le nom du fichier comme ci dessous.
Private Sub UserForm_Initialize()
Workbooks("emploi.xls").Activate

pour que les utilisateurs puissent changer le nom fichier xls sans qu'il
genere une erreur de type: indice n'est pas dans la selection.

merci

4 réponses

Avatar
Rai
Bonsoir,

Oui, c'est possible.
Tu peux initialiser la variable de ton choix 'NomFic' par exemple
et l'utiliser :
WorkBooks(NomFic).Activate

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour initialiser NomFic...

Mais là ! Faudra nous en dire plus...

Bonne soirée

Rai

"JEAN" a écrit dans le message de news:
bonjour est t'il possible lors de l'ouvertutre de mon fichier
de ne pas à avoir a mettre le nom du fichier comme ci dessous.
Private Sub UserForm_Initialize()
Workbooks("emploi.xls").Activate

pour que les utilisateurs puissent changer le nom fichier xls sans qu'il
genere une erreur de type: indice n'est pas dans la selection.

merci


Avatar
Nicolas B.
Salut Jean et Rai,

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour
initialiser NomFic...


Si c'est possible à l'ouverture dudit fichier, Jean n'a qu'à déclarer la
variable NomFic publique dans un module et à lui donner sa valeur par la
procédure Workbook_Open.
Dans le module ThisWorkbook du fichier dont on veut récupérer le nom :

Private Sub Workbook_Open()
NomFic = Me.name
End Sub


A+
Nicolas B.

Bonsoir,

Oui, c'est possible.
Tu peux initialiser la variable de ton choix 'NomFic' par exemple
et l'utiliser :
WorkBooks(NomFic).Activate

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour initialiser NomFic...

Mais là ! Faudra nous en dire plus...

Bonne soirée

Rai

"JEAN" a écrit dans le message de news:

bonjour est t'il possible lors de l'ouvertutre de mon fichier
de ne pas à avoir a mettre le nom du fichier comme ci dessous.
Private Sub UserForm_Initialize()
Workbooks("emploi.xls").Activate

pour que les utilisateurs puissent changer le nom fichier xls sans qu'il
genere une erreur de type: indice n'est pas dans la selection.

merci




Avatar
JEAN
ok
je met ce code dans mon thisworkbook
Private Sub Workbook_Open()
NomFic = Me.name
End Sub


mais ou je déclare la variable NomFic

car dès l'ouverture de mon fichier j'ai dans mon thisworkbook
workbook open
userform1.show.
ou déclaré ma variable

merci


ou dec

Salut Jean et Rai,

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour
initialiser NomFic...


Si c'est possible à l'ouverture dudit fichier, Jean n'a qu'à déclarer la
variable NomFic publique dans un module et à lui donner sa valeur par la
procédure Workbook_Open.
Dans le module ThisWorkbook du fichier dont on veut récupérer le nom :

Private Sub Workbook_Open()
NomFic = Me.name
End Sub


A+
Nicolas B.

Bonsoir,

Oui, c'est possible.
Tu peux initialiser la variable de ton choix 'NomFic' par exemple
et l'utiliser :
WorkBooks(NomFic).Activate

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour initialiser NomFic...

Mais là ! Faudra nous en dire plus...

Bonne soirée

Rai

"JEAN" a écrit dans le message de news:

bonjour est t'il possible lors de l'ouvertutre de mon fichier
de ne pas à avoir a mettre le nom du fichier comme ci dessous.
Private Sub UserForm_Initialize()
Workbooks("emploi.xls").Activate

pour que les utilisateurs puissent changer le nom fichier xls sans qu'il
genere une erreur de type: indice n'est pas dans la selection.

merci







Avatar
Frédéric Sigonneau
Bonsoir,

Comme proposé par Nicolas, insère un module standard à ton projet (ou utilise un
module existant) et écris comme première ligne de ce module (en dessous
d'éventuelles déclarations commençant par Option toutefois) cette ligne :

Public NomFic As String

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

ok
je met ce code dans mon thisworkbook
Private Sub Workbook_Open()
NomFic = Me.name
End Sub


mais ou je déclare la variable NomFic

car dès l'ouverture de mon fichier j'ai dans mon thisworkbook
workbook open
userform1.show.
ou déclaré ma variable

merci


ou dec


Salut Jean et Rai,

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour
initialiser NomFic...


Si c'est possible à l'ouverture dudit fichier, Jean n'a qu'à déclarer la
variable NomFic publique dans un module et à lui donner sa valeur par la
procédure Workbook_Open.
Dans le module ThisWorkbook du fichier dont on veut récupérer le nom :

Private Sub Workbook_Open()
NomFic = Me.name
End Sub


A+
Nicolas B.


Bonsoir,

Oui, c'est possible.
Tu peux initialiser la variable de ton choix 'NomFic' par exemple
et l'utiliser :
WorkBooks(NomFic).Activate

Reste à savoir à quel moment tu peux récupérer le nom du fichier pour initialiser NomFic...

Mais là ! Faudra nous en dire plus...

Bonne soirée

Rai

"JEAN" a écrit dans le message de news:


bonjour est t'il possible lors de l'ouvertutre de mon fichier
de ne pas à avoir a mettre le nom du fichier comme ci dessous.
Private Sub UserForm_Initialize()
Workbooks("emploi.xls").Activate

pour que les utilisateurs puissent changer le nom fichier xls sans qu'il
genere une erreur de type: indice n'est pas dans la selection.

merci