[XL-2003] Inscrire une donnée dans un USF [Résolu]

[8e8eClo]

Bonjour,

Est-il possible d'inscrire une donnée directement dans la USF d'un autre fichier excel ?
Ou plutot
Est il possible de fermer une userform par vba depuis un autre fichier ?

Merci

[patricktoulon]

bonjour

oui c'est possible a condition de renseigner le classeur

au plaisir

[8e8eClo]

Bonjour,

Renseigner le classeur ? C'est à dire ?

Sinon je pensais avoir trouvé plus simple mais je ne sais pas pourquoi ça ne fonctionne pas...
Quand B s'ouvre, il affiche un USF. J'ai donc ajouté un module qui comprend le code suivant :

Code :

1
2
3
Private Sub Ouverture()
Userform1.Hide
End Sub

et j'ai ajouté une ligne de code dans ma macro de A :

Code :

1
2
3
4
 
...
Application.Run "B.xls!Module1.Ouverture"
...

Cependant ça ne fonctionne pas.
Pourquoi ?

Merci

[8e8eClo]

Bon je désespère.

Voici mon code

Code :

1
2
3
Dim wbModele As Workbook
Set wbModele = Workbooks.Open(Filename:="S:\Test\nouveau.xls")
Application.Run "nouveau.xls!Module1.Ouverture"

ça ne fonctionne pas

J'ai également essayé ça

Code :

Application.Run "Ouverture"

Code :

WbModele.Run "Ouverture"

[8e8eClo]

Bonjour,

Je continue mes tests et mon monologue

La macro fonctionne avec des nouveaux classeurs.
Quelqu'un a t il une idée de l'origine du problème ?

[8e8eClo]

Rebonjour,

Problème résolu.

J'ai eu un flash : désactiver les évènements à l'ouverture du classeur.

Tout ce temps pour ça...

[patricktoulon]

bonjour

il est tres frequent quand on ouvre et travaille sur plusieurs fichiers d'utiliser

Code :

application displayalerts=false

ca bloque les fenetres d'avertissement

au vu des exemples que tu avais donné je comprenais pas ou etait ton probleme

au plaisir