Manipulation des userform Résolu/Fermé

Question

Bonjour, J’ai le code ci-dessous pour me permettre d’ouvrir un fichier qui est dans un répertoire défini. Sub recherche_devis1()Dim chemin_devis As String chemin_devis = Sheets("données_logiciel").Range("E2").Value If chemin_devis <> "" Then GoTo 1 MsgBox "Chemin introuvable, avez vous mémorié un chemin ?" GoTo 2:1:chemin_devis = Sheets("données_logiciel").Range("E2").ValueCreateObject("Wscript.shell").Popup "Une boite de dialogue va s'afficher. A vous de choisir le fichier Devis à ouvrir ? ", 10, "choix du fichier à ouvrir" If Dir(chemin_devis, vbDirectory) <> "" Then Application.Dialogs(xlDialogOpen).Show chemin_devis Else MsgBox "Chemin introuvable, avez vous mémorié un chemin ?" End If2:Unload formulaire_debut 'UserForm End Sub Je souhaiterais que lorsque le bouton annuler est actionné, la fonction Unload formulaire_debut ne soit pas activée donc que le programme retour sur le formulaire début. a) Que faudrait-il faire, je ne trouve pas la solution ? b) En plus y-a-t-il une solution pour interdire de sortir d’un UserForm par la petite croix en haut à droite ? c) et pour finir sur le sujet, pour fermer un UserForm faut-il toujours le nommer ou peut-on utiliser une commande standard ? Merci pour vos réponses Cordialement

cs_Le Pivert · Answer

Bonjour,

Tu trouveras des réponses à tes questions a et c ici:

https://silkyroad.developpez.com/VBA/UserForm/#LI

Pour la question b, là:

https://vb.developpez.com/faqvba/?page=3.6#UFclosebutton

cs_Le Pivert · Answer

Pour la question a), je n’ai pas trouvé ou compris ce qu’il faut faire dans les liens que tu me donnes ? 

En supprimant cette ligne tout simplement:

Unload formulaire_debut  'UserForm 

Pour la question b) j’ai bien trouvé le code, si dessous, pour y réponde, mais ou faut-il mettre ce code ? 

Si tu avais tout lu tu aurais trouvé ceci:

https://silkyroad.developpez.com/VBA/UserForm/#LIV

f894009 · Answer

Bonjour a vous tous, question a) si annuler ou croix boite dial ne pas sortir de l'UF Sub recherche_devis1() Dim chemin_devis As String, Fichier chemin_devis = Sheets("données_logiciel").Range("E2").Value If chemin_devis <> "" Then 'variable non vide chemin_devis = Sheets("données_logiciel").Range("E2").Value CreateObject("Wscript.shell").Popup "Une boite de dialogue va s'afficher. A vous de choisir le fichier Devis à ouvrir ? ", 10, "choix du fichier à ouvrir" If Dir(chemin_devis, vbDirectory) <> "" Then 'repertoire existe Fichier = Application.Dialogs(xlDialogOpen).Show(chemin_devis) If Fichier = False Then 'choix Annuler ou croix Exit Sub 'sortie sub End If Else MsgBox "Chemin introuvable: " & chemin_devis & " ?" End If Else MsgBox "Chemin introuvable si cellule vide, avez vous mémorisé un chemin ?" End If Unload formulaire_debut 'UserForm End Sub

Manipulation des userform

3 réponses

Discussions similaires

Newsletters