je voudrait qe le nom de fichier corresponde au contenu d'un des champs du
Userform ( Client ) coment doi-je faire ? merci .
Pierre Fauconnier
Bonjour
1. Je pense que, sauf une api windows inconnue par moi, il n'y a pas moyen de masquer le bouton. Mais tu peux toujours interdire la fermeture en gérant l'évènement Query_Close du userform, soit de façon inconditionnelle
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub
soit avec un message ou une condition, comme par exemple Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim Reponse As VbMsgBoxResult Reponse = MsgBox("Voulez-vous fermer?", vbYesNo + vbQuestion, "Fermeture du formulaire") If Reponse = vbNo Then Cancel = True End Sub
Attention qu'il est prudent de tester que le champ Client ne soit pas vide et corresponde à un nom de fichier valide... Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"seb" a écrit dans le message de news:
Bonjours j'aurai deux question , puvez vous m'aidez :
je souhaiterai desactiver la croix de fermeture d'un userform commen faire ????
A = MsgBox("Le fichier est enregistré sous C:Source.xls", vbInformation, "CEGELEC Nord&Est")
ActiveWindow.Close
je voudrait qe le nom de fichier corresponde au contenu d'un des champs du Userform ( Client ) coment doi-je faire ? merci
Bonjour
1. Je pense que, sauf une api windows inconnue par moi, il n'y a pas moyen
de masquer le bouton. Mais tu peux toujours interdire la fermeture en gérant
l'évènement Query_Close du userform, soit de façon inconditionnelle
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub
soit avec un message ou une condition, comme par exemple
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Voulez-vous fermer?", vbYesNo + vbQuestion, "Fermeture
du formulaire")
If Reponse = vbNo Then Cancel = True
End Sub
Attention qu'il est prudent de tester que le champ Client ne soit pas vide
et corresponde à un nom de fichier valide...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"seb" <seb@discussions.microsoft.com> a écrit dans le message de news:
0A806F57-511B-492E-BEFE-ECB8C0088090@microsoft.com...
Bonjours
j'aurai deux question , puvez vous m'aidez :
je souhaiterai desactiver la croix de fermeture d'un userform commen faire
????
1. Je pense que, sauf une api windows inconnue par moi, il n'y a pas moyen de masquer le bouton. Mais tu peux toujours interdire la fermeture en gérant l'évènement Query_Close du userform, soit de façon inconditionnelle
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub
soit avec un message ou une condition, comme par exemple Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim Reponse As VbMsgBoxResult Reponse = MsgBox("Voulez-vous fermer?", vbYesNo + vbQuestion, "Fermeture du formulaire") If Reponse = vbNo Then Cancel = True End Sub
Attention qu'il est prudent de tester que le champ Client ne soit pas vide et corresponde à un nom de fichier valide... Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"seb" a écrit dans le message de news:
Bonjours j'aurai deux question , puvez vous m'aidez :
je souhaiterai desactiver la croix de fermeture d'un userform commen faire ????
A = MsgBox("Le fichier est enregistré sous C:Source.xls", vbInformation, "CEGELEC Nord&Est")
ActiveWindow.Close
je voudrait qe le nom de fichier corresponde au contenu d'un des champs du Userform ( Client ) coment doi-je faire ? merci
Oliv'
seb que je salut a écrit dans
Bonjours j'aurai deux question , puvez vous m'aidez :
je souhaiterai desactiver la croix de fermeture d'un userform commen faire ???? essaye cela
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = 1 End Sub
Private Sub CommandButton1_Click() Unload Me End Sub
Valeurs possible pour CloseMode :
vbFormControlMenu 0 vbFormCode 1 vbAppWindows 2 vbAppTaskManager 3 Mais j'ai pas testé faut rechercher sur google sinon c'est souvent posé comme question
je voudrait qe le nom de fichier corresponde au contenu d'un des champs du Userform ( Client ) coment doi-je faire ? merci tu peux déclarer une variable comme étant ton formulaire
Dim Monformulaire As Object Set Monformulaire = UserForm1 tu peux aisni afficher en mode arret : affichage/fenetre variables locales et tu peux developper ta variable pour voir les différentes valeurs. source= Monformulaire.TextBox1
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
seb <seb@discussions.microsoft.com> que je salut a écrit dans
0A806F57-511B-492E-BEFE-ECB8C0088090@microsoft.com
Bonjours
j'aurai deux question , puvez vous m'aidez :
je souhaiterai desactiver la croix de fermeture d'un userform commen
faire ????
essaye cela
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = 1
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Valeurs possible pour CloseMode :
vbFormControlMenu 0
vbFormCode 1
vbAppWindows 2
vbAppTaskManager 3
Mais j'ai pas testé faut rechercher sur google sinon c'est souvent posé
comme question
je voudrait qe le nom de fichier corresponde au contenu d'un des
champs du Userform ( Client ) coment doi-je faire ?
merci
tu peux déclarer une variable comme étant ton formulaire
Dim Monformulaire As Object
Set Monformulaire = UserForm1
tu peux aisni afficher en mode arret : affichage/fenetre variables locales
et tu peux developper ta variable pour voir les différentes valeurs.
source= Monformulaire.TextBox1
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjours j'aurai deux question , puvez vous m'aidez :
je souhaiterai desactiver la croix de fermeture d'un userform commen faire ???? essaye cela
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = 1 End Sub
Private Sub CommandButton1_Click() Unload Me End Sub
Valeurs possible pour CloseMode :
vbFormControlMenu 0 vbFormCode 1 vbAppWindows 2 vbAppTaskManager 3 Mais j'ai pas testé faut rechercher sur google sinon c'est souvent posé comme question
je voudrait qe le nom de fichier corresponde au contenu d'un des champs du Userform ( Client ) coment doi-je faire ? merci tu peux déclarer une variable comme étant ton formulaire
Dim Monformulaire As Object Set Monformulaire = UserForm1 tu peux aisni afficher en mode arret : affichage/fenetre variables locales et tu peux developper ta variable pour voir les différentes valeurs. source= Monformulaire.TextBox1
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~