Discussion :

[Filou78C]

Bonjour,
Nous avons fait devellopé un spécifique pour extraire les données éditiques de toutes nos factures.
J'ai automatisé cette extraction pour que des fichiers excel soit créé avec les factures à problème pour ensuite les étudier.
Tout fonctionne sauf un truc tout con....Une boite de dialogue qui ne s'affiche pas à la fin de la macro....pour dire à l'utilisateur que l'extraction est terminée....
Ci-joint le fichier
Une idée quelqu'un ?

merci
ZC_DEF.xls

[Spt07]

bonjour,
tu es sûr de bien être dans le fichier xls?
essai un Workbooks("zc_def").Activate

[Filou78C]

Oui oui il y a même le code que tu me dis de mettre.....

[VincentV21]

Bonjour Filou78C
Renomme le nom de ton userform1 :

Dans propriété:
(Name):Fin par Userform1

J'ai testé avec ce petit bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
UserForm1.Show
End Sub

Trés beau code au passage
VincentV21

[parmi]

Bonjour,

Tu mets ceci en début de procédure.
Tu devrais le mettre à la fin pour libérer la mémoire. C'est son utilité...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set myapplication = Nothing
Set myconnexion = Nothing
Set mysession = Nothing

[Filou78C]

Bonjour Filou78C
Renomme le nom de ton userform1 :

Dans propriété:
(Name):Fin par Userform1

J'ai testé avec ce petit bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
UserForm1.Show
End Sub

Trés beau code au passage
VincentV21

Merci c'est mieux ainsi !

[Filou78C]

Bonjour,

Tu mets ceci en début de procédure.
Tu devrais le mettre à la fin pour libérer la mémoire. C'est son utilité...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set myapplication = Nothing
Set myconnexion = Nothing
Set mysession = Nothing

Merci