lancer un userform automatiquement a chaque changement de feuille

[wrap food]

Bonjour,

j'ai une macro, lancé par un bouton " Pour Envoyer par mail le devis cliquer " qui copie juste la feuille active et la même dans d'autre dossier et qui l'enoi par mail jusque la tous va bien .

le probleme c'est que dans le code de la feuille, il y a un macro qui ouvre un userforme à chaque changement de feuille donc lors de la copie "d'envoie de mail" est lancée cela bloque la procédure .

Je mets ce lien pour que cela soit plus explicite

Cijoint.fr - Service gratuit de dépôt de fichiers

Petons faire une macro qui ne soit pas dans le code de la feuille mais qui ce lance a chaque changement pour toutes les feuilles

Par avance merci

 

[phlaurent55]

Re : lancer un userform automatiquement a chaque changement de feuille

Bonjour wrap food

avec ce code dans ThisWorkook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Load Saisie
Saisie.Show
End Sub

ou éventuellement ceci, si tu ne veux pas voir apparaître l'USF lorsque tu actives la feuille "RECAP"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "RECAP" Then Exit Sub
Load Saisie
Saisie.Show
End Sub

ne pas oublier d'enlever le code qui se trouve dans "Feuil5" (001)

essaie et dis-nous

à+
Philippe

 

[wrap food]

Re : lancer un userform automatiquement a chaque changement de feuille

Un grand merci à philipe
c'est du tonnerre

juste pour finaliser ma macro si j'ai d'autres feuiile que "RECAP" ou il ne faudrai pas que USF n'apparesse pas .
Il faut que je face comme ca (If ActiveSheet.Name = "RECAP" " Base de donnée" Then Exit Sub)

Et Merci encore