Liste déroulante qui disparait

[Dominique F]

Bonjour à tous,
J'ai créé une feuille de demande de prix et délai que j'envoi par mail à nos founisseurs avec un bouton macro incorporé dans la feuille. Suivant le destinataire j'ai créé dans la feuille une liste déroulante qui place l'adresse E-mail dans une cellule.Tout fonctionne bien sauf que après l'envoi de la feuille, là ou les cellules comportant des listes déroulantes de type (Données Validation ) disparaissent sauf si avant l'envoi vous êtes resté sur l'une d'elle.Mais le plus étrange encore c'est que si vous ouvrez un autre fichier excel comportant des cellules avec listes déroulantes celle ci non plus ne fonctionnent plus.
le seul échappatoire c'est de fermer complétement excel.Ensuite l'ouvrir de nouveau et les listes déroulantes seront de nouveaux activés dans vos fichiers d'ou bien sûr perte de temps.
Quequ'un connait t'il ce 'Bug' qui agit sur les listes déroulantes et comment peut t'on y remédier.
Je remerci d'avance tout ceux qui peuvent m'apporté une solution.
Ci joint un fichier. [file name=PrixDelais_20060508182903.zip size=15342]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PrixDelais_20060508182903.zip[/file]

 

[Marc_du_78]

Bonsoir Dominique,
As-tu essayé en mettant tes listes sur une autre feuille ?
Amicalment.

 

[Dominique F]

Bonjour Marc.
Ta solution je l'ai essayée malheureusement cela ne change rien les listes déroulantes restent désactivées après envoi par mail.
Je pense que c'est dû à la macro envoi par mail
qui est la suivante:

Sub EnvoiMail()
AdresseEmail = Range('U10')
ThisWorkbook.Windows(1).SelectedSheets.Copy
Sujet = 'REQUEST FOR PRICES AND/OR DELIVERY TIME'
ActiveWorkbook.SendMail AdresseEmail, Sujet
ActiveWorkbook.Close False
End Sub

Par contre je ne comprend pas pourquoi cela bloque ensuite les listes déroulantes dans les fichiers.
Merci quand même de ta suggestion, je suis preneur pour toute autres solutions.
a +

 

[Dominique F]

Bonjour Marc.
Ta solution je l'ai essayée malheureusement cela ne change rien les listes déroulantes restent désactivées après envoi par mail.
Je pense que c'est dû à la macro envoi par mail
qui est la suivante:

Sub EnvoiMail()
AdresseEmail = Range('U10')
ThisWorkbook.Windows(1).SelectedSheets.Copy
Sujet = 'REQUEST FOR PRICES AND/OR DELIVERY TIME'
ActiveWorkbook.SendMail AdresseEmail, Sujet
ActiveWorkbook.Close False
End Sub

Par contre je ne comprend pas pourquoi cela bloque ensuite les listes déroulantes dans les fichiers.
Merci quand même de ta suggestion, je suis preneur pour toute autres solutions.
a +

 

[Dominique F]

Bonjour Marc.
Ta solution je l'ai essayée malheureusement cela ne change rien les listes déroulantes restent désactivées après envoi par mail.
Je pense que c'est dû à la macro envoi par mail
qui est la suivante:

Sub EnvoiMail()
AdresseEmail = Range('U10')
ThisWorkbook.Windows(1).SelectedSheets.Copy
Sujet = 'REQUEST FOR PRICES AND/OR DELIVERY TIME'
ActiveWorkbook.SendMail AdresseEmail, Sujet
ActiveWorkbook.Close False
End Sub

Par contre je ne comprend pas pourquoi cela bloque ensuite les listes déroulantes dans les fichiers.
Merci quand même de ta suggestion, je suis preneur pour toute autres solutions.
a +

 

[Dominique F]

Bonjour Marc.
Ta solution je l'ai essayée malheureusement cela ne change rien les listes déroulantes restent désactivées après envoi par mail.
Je pense que c'est dû à la macro envoi par mail
qui est la suivante:

Sub EnvoiMail()
AdresseEmail = Range('U10')
ThisWorkbook.Windows(1).SelectedSheets.Copy
Sujet = 'REQUEST FOR PRICES AND/OR DELIVERY TIME'
ActiveWorkbook.SendMail AdresseEmail, Sujet
ActiveWorkbook.Close False
End Sub

Par contre je ne comprend pas pourquoi cela bloque ensuite les listes déroulantes dans les fichiers.
Merci quand même de ta suggestion, je suis preneur pour toute autres solutions.
a +

 

[Dominique F]

Bonjour Marc.
Ta solution je l'ai essayée malheureusement cela ne change rien les listes déroulantes restent désactivées après envoi par mail.
Je pense que c'est dû à la macro envoi par mail
qui est la suivante:

Sub EnvoiMail()
AdresseEmail = Range('U10')
ThisWorkbook.Windows(1).SelectedSheets.Copy
Sujet = 'REQUEST FOR PRICES AND/OR DELIVERY TIME'
ActiveWorkbook.SendMail AdresseEmail, Sujet
ActiveWorkbook.Close False
End Sub

Par contre je ne comprend pas pourquoi cela bloque ensuite les listes déroulantes dans les fichiers.
Merci quand même de ta suggestion, je suis preneur pour toute autres solutions.
a +