Ouverture d'un userform

Bonjour a tous,

Je travail depuis quelques temps sur formulaire sur excel 2007.

Pour cela, j'utilise un userfom qui me colle qui retranscrit les informations sur une page excel a chaque fois que je clic sur un bouton.

Mon probleme se situe a l'ouverture du userform. Je souhaite effectuer une ouverture automatique du userform a l'ouverture d'excel.

Avec la fonction:

Code:

---

1 2 3 4 5 6 7

Sub Workbook_Open()   Application.Visible = True Load UserForm UserForm.Show   End Sub

---

Tout fonctionne a merveille sur mon ordinateur.

Malheureusement, j'ai cree le fichier pour qu'il soit utilise par d'autres que moi et lorsque je veux l'ouvrir sur un autre ordinateur j'ai une erreur 76 qui apparait.

Comme il ne trouve pas le chemin du fichier, j'ai pense a enregistre le fichier en tant que modele. Je cree ensuite un fichier excel base sur ce modele mais le meme fichier d'erreur apparait.
J'ai egalement essaye d'ouvrir le userform "manuellement" depuis la fenetre visual basic mais sans succes, il m'affiche la meme erreur.

Je suis un peu perdu. Quelqu'un aurait-il une idee de la procedure a suivre pour regler ce probleme d'ouverture?

Merci pour votre aide.

PS : Je m'excuse pour l'orthographe sans accent mais etant a l'etranger, je n'utilise pas de clavier azerty

Bonjour,

sans garanti mais essaye ça :

Dans un module tu insères

Code:

---

1 2 3 4 5 6

Sub UserAffiche()   Userform1.show   end sub

---

A adapter au nom de ton userform


Dans ton workbook_open :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open()   UserAffiche   End Sub

---

Merci pour ta reponse joe.levrai

Malheureusement, l'erreur reste la meme.

tu peux nous joindre une copie du fichier excel, en modifiant certaines données si confidentielles.

Bonjour,
et tout simplement dans l'évènement "Activate"

Code:

---

1 2 3

Private Sub Workbook_Activate() usf1.Show End Sub

---

Merci pour ton aide casefayere mais j'ai toujours la meme erreur

Bonjour,

Envoies ton fichier avec données bidon mais nom correct de l'USF, histoire de vérifier.

Bonne journée

Bonjour,

1 – La méthode Show exécute automatiquement l’instruction Load sur un USF en VBA, ce n’est donc pas la peine d’y faire appel dans ce cas.

2 – ton soucis ne provient surement pas de la ligne de code USF.Show, mais c’est souvent celle-ci que le VBA met en pause quand une erreur surgit dans la suite, pour repérer la source du problème, il faut qu’une fois en pause sur la ligne jaune, tu avances en pas à pas avec F8 pour arriver à identifier la ligne qui pose réellement problème.
A voir…


cordialement,


Didier

Bonjour,
Le message d’erreur 76 signifie qu’Excel n’arrive pas à ouvrir le fichier, ou plus précisément chemin d’accès introuvable.
Hors, et je m’en excuse auprès de mes collègue du forum, dans :

Code:

---

1 2 3 4 5 6 7

Sub Workbook_Open()   Application.Visible = True Load UserForm UserForm.Show   End Sub

---

Je ne voie aucune allusion à un chemin d’un répertoire, non ce code ne pose pas de grand souci, et fonctionne parfaitement bien que personnellement je me serai contenté de :

Code:

---

1 2 3

Sub Workbook_Open() UserForm.Show End Sub

---

Le problème quand on utilise un objet instancié sur une classe, car ce n’est pas flagrant, mais c’est le cas : UserForme1 est un objet basé sur le modèle de classe UserForm.
Donc le problème est que le débuguer, ne sarrète pas forcément à l’endroit de l’erreur mais à la méthode appelante dans notre exemple : UserForm.Show.
Pour s’en convaincre il sufis frapper à plusieurs reprise sur la touche [F8] pour voire le programme égrainer le code en pas à pas dans le UserForm. Il est ainsi possible de trouver l’endroit exact du bug, attention c’est furtif et l’erreur repositionne le code à UserForm.Show.

Dans l’énoncé original, il est dit que l’application fonctionne sur ma machine et pas sur celle des utilisateurs, et les propositions faites doutent toutes de cette affirmation et propose des solutions sans rapport à un bug d’environnement ; moi je n’ai pas de raisons de douté que l’application ai fonctionné sur une machine. Donc la question, qu’est-ce qui a changée ? je travaillai sur un profile Dev ; les utilisateurs sont sur un profile Prod ?; le serveur 168. ?. ?. ? est sur M:\ sur ma machine et Y:\ sur les autre ?

Bonjour,

Citation:

---

Envoyé par rdurupt

Le problème quand on utilise un objet instancié sur une classe, car ce n’est pas flagrant, mais c’est le cas : UserForme1 est un objet basé sur le modèle de classe UserForm.
Donc le problème est que le débuguer, ne sarrète pas forcément à l’endroit de l’erreur mais à la méthode appelante dans notre exemple : UserForm.Show.
Pour s’en convaincre il sufis frapper à plusieurs reprise sur la touche [F8] pour voire le programme égrainer le code en pas à pas dans le UserForm. Il est ainsi possible de trouver l’endroit exact du bug, attention c’est furtif et l’erreur repositionne le code à UserForm.Show.
?

---

Oui, c'est ce que je venais de dire sur le post précédent ... hier ;)

D'autre part, la méthode Show a peu de chance d'appeler quelque chose, la procédure appelante responsable du code qui s’exécute à l'ouverture a de grandes chances d'être une évènementiel Initialize (ou Activate si mal codé dans ce cas)

cordialement,

Didier