Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

2 questions en VBA

3 réponses
Avatar
seb
Bonjours
j'aurai deux question , puvez vous m'aidez :

je souhaiterai desactiver la croix de fermeture d'un userform commen faire
????

j'ai aussi un bouton de sauvegarde qui fait ca :

Sheets("Feuil2").Select

Sheets(Array("Feuil2", "Feuil4", "Feuil6")).Copy

ActiveWorkbook.SaveAs Filename:="C:\Source.xls", FileFormat:=xlNormal,
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
CreateBackup:=False

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

3 réponses

Avatar
Ellimac
Bonjour,

Pour la 2nde question :

ActiveWorkbook.SaveAs Filename:="C:" & Userform1.Text1
&".xls",

Avec le bon nom de Formulaire et de champ.

Camille

-----Message d'origine-----
Bonjours
j'aurai deux question , puvez vous m'aidez :

je souhaiterai desactiver la croix de fermeture d'un
userform commen faire

????

j'ai aussi un bouton de sauvegarde qui fait ca :

Sheets("Feuil2").Select

Sheets(Array("Feuil2", "Feuil4", "Feuil6")).Copy

ActiveWorkbook.SaveAs Filename:="C:Source.xls",
FileFormat:=xlNormal,

Password:="", WriteResPassword:="",
ReadOnlyRecommended:lse,

CreateBackup:lse

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
.



Avatar
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


2.
ActiveWorkbook.SaveAs Filename:="C:" & Client ...

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
????

j'ai aussi un bouton de sauvegarde qui fait ca :

Sheets("Feuil2").Select

Sheets(Array("Feuil2", "Feuil4", "Feuil6")).Copy

ActiveWorkbook.SaveAs Filename:="C:Source.xls", FileFormat:=xlNormal,
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse,
CreateBackup:úlse

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


Avatar
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

j'ai aussi un bouton de sauvegarde qui fait ca :

Sheets("Feuil2").Select

Sheets(Array("Feuil2", "Feuil4", "Feuil6")).Copy

ActiveWorkbook.SaveAs Filename:="C:Source.xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse

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
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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~