OVH Cloud OVH Cloud

Problèmes avec les useforms

1 réponse
Avatar
Fabieg
Bonjour,
je débute dans les useforms et donc pour m'initier je me suis lançée dans la
réalisation du fichier exemble donné sur le site excelabo.net dans "les
useforms Pas à pas" de Flo Cabon(Misange) et malheureusement l'exemple n'est
pas très concluant mon fichier ne fonctionne pas du tout et celui qui est à
téléchargé non plus...Tous mes codes .Value; .RowSource; .ListIndex...
sortent faux en affichant fichier introuvable... Notamment tous les codes
dans la partie
Private Sub Userform_Initialize ()

Workbooks("fc-pap-userforms.xls").Activate
CboType.RowSource = ("code!TypePlat")
CboType.ListIndex = -1
ListOccasion.RowSource = ("code!Occasion")
ListOccasion.MultiSelect = fmMultiSelectExtended
ListOccasion.ListIndex = -1
CboNbConvives.RowSource = ("code!NbConvives")
CboNbConvives.ListIndex = -1
TxtDate.Value = Format(Now(), "dd/mmm/yyyy")

Tous les codes sont donnés faux... Quelqu'un pourrait-il m'aider?
Merci d'avance

1 réponse

Avatar
Misange
Bonjour,
C'est très surprenant ça une fois... surtout que ce classeur a été
téléchargé plus de 5000 fois :-)
je viens de le retélécharger (on sait jamais, les micro climats sont
capricieux) mais contrairement à ce que tu décris, tout fonctionne bien
sur le classeur exemple. Dis nous exactement ce que tu fais. Quel est
ton niveau de sécurité pour les macros ? Qu'appelles tu : "Tous les
codes sont donnés faux..." ?
Il faut que tu télécharges le classeur sur ton PC pour le faire
fonctionner, ne l'ouvre pas depuis ton explorateur. Une fois téléchargé,
dézippe le dans un dossier de ton choix puis ouvre le. Est ce que tu
vois un formulaire te demandant de choisir entre l'ajout ou la
consultation d'une recette ?

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 07/06/2005 11:11, :
Bonjour,
je débute dans les useforms et donc pour m'initier je me suis lançée dans la
réalisation du fichier exemble donné sur le site excelabo.net dans "les
useforms Pas à pas" de Flo Cabon(Misange) et malheureusement l'exemple n'est
pas très concluant mon fichier ne fonctionne pas du tout et celui qui est à
téléchargé non plus...Tous mes codes .Value; .RowSource; .ListIndex...
sortent faux en affichant fichier introuvable... Notamment tous les codes
dans la partie
Private Sub Userform_Initialize ()

Workbooks("fc-pap-userforms.xls").Activate
CboType.RowSource = ("code!TypePlat")
CboType.ListIndex = -1
ListOccasion.RowSource = ("code!Occasion")
ListOccasion.MultiSelect = fmMultiSelectExtended
ListOccasion.ListIndex = -1
CboNbConvives.RowSource = ("code!NbConvives")
CboNbConvives.ListIndex = -1
TxtDate.Value = Format(Now(), "dd/mmm/yyyy")

Tous les codes sont donnés faux... Quelqu'un pourrait-il m'aider?
Merci d'avance