Easy-Micro

ESPACEMEMBRE Projet VBA
Module VBA

Code du module "gestion_de_frais"

VBA Code du module "gestion_de_frais"
Créez un nouveau module (Insertion / Module), renommer cette feuille de code "module1" en "gestion_de_frais".

Procédure pour bouton Feuille 1
Sub proc_affiche_formulaire()
frm_nouvelle_fiche_de_frais.Show vbModeless
'vbModeless pour Excel 2013 et son mode SDI (single document interface)
End Sub

Formulaire vbModeless

Les formulaires et les boîtes de dialogue sont soit modaux soit non modaux.
Une boîte de dialogue ou un formulaire modal doit être fermé ou masqué avant que vous puissiez continuer à travailler dans le reste de l'application. Un formulaire non modal vous permet de lui ôter le focus pour, par exemple, donner le focus à un nouveau classeur ou à un autre formulaire...

Sub proc_nouveau_classeur()
'Vérification si le classeur existe déjà
'A rajouter plus tard (avec un End If tout en bas)

If Dir(ActiveWorkbook.Path & "\frais_" & _
frm_nouveau_classeur_de_frais.txt_annee.Value & ".xlsx") <> "" Then
MsgBox "Attention, le fichier frais_" & frm_nouveau_classeur_de_frais.txt_annee.Value & _
".xlsx existe déjà", vbCritical, "Fichier existant"
txt_annee.SetFocus 'ou Workbooks.Open("frais_" & txt_annee.Value & ".xlsx")
Else


Workbooks.Add 'Nouveau classeur
ActiveWorkbook.SaveAs Filename:= _
"C:\frais_" & _
frm_nouveau_classeur_de_frais.txt_annee.Value & ".xlsx"
End Sub

Note : un Workbooks.Open peut-être relatif à l'emplacement ou est enregistré le classeur contenant la procédure.

Rajoutez un bouton de la barre d'outils "Formulaire" (Affichage / Barre d'outils sous 2003 ou Onglet "Developpeur" sous 2007 et +), et liez-lui la procédure "proc_affiche_formulaire()".


< Page précédente PROJET VBA Page suivante >