Garder l'userform visible

[paludot]

Bonjour Dan,

Ce que je ne comprends pas c'est pourquoi tu crées un fichier par bouton sur ton USF. Pourquoi ne pas mettre tous ces fichiers dans celui qui contient l'USF ?

Mon appli vas tourner en réseau et donc ou sauf erreur de ma part il vaut mieux que les fichiers soit séparés,pour éviter d'être en lecture seul .Exemple: Si le dossier pétanque nocturne et ouvert sur un ordi (A) il faut on puisse ouvrir un autre dossier Tournoi Volley depuis un autre ordi. Actuellement j'ai une appli qui fonçonne sur le même principe sauf que je n'est pas USF juste des liens hypertextes.(Sur un post de quelques semaine en arrière je donnais une petite idée de tout cà!). Mais je souhaite faire évoluer mon appli en essayant d'inclure les types de réglements, mais bon! comme tu l'as bien compris je suis loin de tout comprendre et que j'ai souvent recours à tes et vos connaissances, donc j'avance petit à petit.

Merci de ton aide toujours aussi efficace

Amicalement

Gérard

[Dan]

Bonjour,

C'est un peu de la bidouille mais essaie ceci :

1. Dans le fichier RESA-CAISSE

- vas dans THISWORKBOOK et mets le code ci-dessous

Code: Tout sélectionner

Private Sub Workbook_Activate()
UserForm1.Show
End Sub

- Toujours dans THISWORKBOOK, change le code de la Private sub workbook_open par celui ci-après:

Code: Tout sélectionner

Private Sub Workbook_Open()
With Application
    .ScreenUpdating = False
    .WindowState = xlMaximized
End With
UserForm1.Show
End Sub

- Vas ensuite dans l'USF et corrige les codes

Remplace

Code: Tout sélectionner

Unload UserForm1

Par

Code: Tout sélectionner

UserForm1.Hide

2. Dans le fichier petanque Nocture (et les autres aussi), change la macro Sub enregistrer par celle-ci après

Code: Tout sélectionner

Sub Enregistrer()
ThisWorkbook.Save
Workbooks("Résa-Caisse.xls").Activate
ThisWorkbook.Close
End Sub

Si ok, je vois 1 chose à simplifier. Pour ce faire dis moi, si tous tes fichiers sont bien placés dans le même répertoire que le fichier RESA-CAISSE

Autre remarque, évite les accents et espace dans tes noms de fichier et feuilles. Cela pose toujours des soucis à un moment ou l'autre. Mets plutôt comme ceci Resa-Caisse, petanque_nocture, etc....

A te relire

[paludot]

Bonjour Dan,le Forum

Si ok, je vois 1 chose à simplifier. Pour ce faire dis moi, si tous tes fichiers sont bien placés dans le même répertoire que le fichier RESA-CAISSE

Bien écoute tout tes codes parfait, j'espére bien comprendre ta question oui il sont bien dans le même répertoire,
je supose que dans le mot répertoire ces le dossier jaune ou je mes toutes mes feuilles excel.

Pour les dates qui me pose problème! as tu une idée ? entre les fichiers petanque nocturne,petanque journée, et le fichier hôtesse.

Merci et bonne journée

Gérard

[Dan]

re,

Dans l'USF tu as une série de code pour ouvrir le bon fichier en fonction du bouton cliqué. Cela concerne les instructions CHRDIR et Workbooks.Open Filename.

Remplace les Chrdir et workbooks.open... par ceci Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Nom de ton fichier.xls"

Exemple pour le fichier "petanque nocture.xls", la macro Command_click3 devient la suivante :

Code: Tout sélectionner

Private Sub CommandButton3_Click() 'Ouvre fichier Pétanque Nocturne
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Pétanque Nocturne.xls"
UserForm1.Hide
End Sub

NB : avec le nom de ton fichier à adapter si tu supprimes les accents.

A voir aussi mais tu peux supprimer toutes les instructions ActiveWindow.SmallScroll Down....

A te relire

[paludot]

Bonsoir Dan,

Tout vas pour le mieux,

A voir aussi mais tu peux supprimer toutes les instructions ActiveWindow.SmallScroll Down...

J'ai supprimé toutes les instructions et tout et bon.

Dois-je fermer ce fil ou je peut continuer ici pour la suite à savoir cette histoire de date, en attendant je vais finir d'organiser les autres fichiers.

Merci Dan

Amicalement

Gérard

[Dan]

re,

cette histoire de date,.

Je ne vois pas de souci. dès que tu mets un nom en colonne B du fichier "Petanque nocture" par exemple, la date est bien placée.
Quel est ton souci ?

Amicalement

[paludot]

Bonjour Dan le Forum,

Le problème de la date est que dans petanque nocturne aujourdhui la date affiché et le 9/7/2010 et hier il me sort le 9/6/2010 ou est l'erreur ?

Par contre j'ai la feuille hotesse qui s'ouvre et reste ouverte ai-je fais sauter quelque chose dans un code ? cette feuille sert à récupérer les infos de chaque hotesse, travail en tache de fond on ne l'ouvre cas la demande.


Bonne journée
Amicalement

Gérard

[Dan]

re,

- Pour le souci "petanque nocture", remplace l'instruction

Code: Tout sélectionner

Target.Offset(0, 2) = Format(Now, "dd/mm/yyyy")

par

Code: Tout sélectionner

Target.Offset(0, 2) = Format(Date, "mm/dd/yyyy")

Dans le code, change aussi le "Chrdir" comme je t'ai expliqué plus haut par --> thisworkbook...

- Pour le fichier Hotesse, tu fonctionnes comment dans ton appli ?? Rien dans tes codes ne dit que l'on doit fermer le fichier hotesse.

A te relire

[paludot]

Re,

Les petits soucis:
Depuis usf
quand tu ouvre le fichier petanque nocturne ou le fichier petanque journée tu as le fichier hotesse qui s'ouvre et apparait à l'écran à la fin de la saisi

dans idéal : le fichier hotesse ne s'ouvre que si on fait l'action de le faire par un bouton sur usf.
quand on à fait la réservation dans un des fichiers petanque on le ferme avec bouton en haut de la feuille et usf s'ouvre .

Merci @+

PS ne pouvant pas joindre plus de 2 fichiers ici, je te mets le dossier dans ta boite afin de travailler sur les mêmes bases

[Dan]

re,

Dans le fichier Petanque nocture, les instructions de la macro enregistrer ne sont pas dans l'ordre comme je te l'ai donné avant.

Depuis usf, quand tu ouvre le fichier petanque nocturne ou le fichier petanque journée tu as le fichier hotesse qui s'ouvre et apparait à l'écran à la fin de la saisi

Non, le fichier hotesse ne s'ouvre pas. Il n'y a pas d'instruction dans l'usf pour cela.

dans idéal : le fichier hotesse ne s'ouvre que si on fait l'action de le faire par un bouton sur usf.

Avec quel bouton sur l'USF ??

Ton fichier Resa-caisse n'est plus le même que celui que tu avais envoyé ici. IL manque des codes...

A te relire