Données incrémentées par USERFORM non utilisables avec une formule
Bonjour,
J'ai un tableau Excel (150 colonnes et 2000+ lignes) Je dois renseigner des dates régulièrement (col FD, FG etc (donc loin à droite dans le tableau)
Pour faciliter cette tache, j'ai crée un USERFORM dans lequel je viens mettre les dates, après validation, ces dernières sont incrémentées automatiquement dans la cellule correspondante.
Problème:
Dans ce même tableau, je dois faire un calcul de moyenne en prenant comme base de données certaines de ces dates.
Formule : =SIERREUR(MOYENNE.SI.ENS(FI10:FI2000;FD10:FD2000;">="&DATE(FE5;1;1);FD10:FD2000;"<="&DATE(FE5;12;31));"")
Etant donné que ces dates n'ont pas été renseignées à la main dans la cellule, mais par validation via USERFORM, la formule ne la/les prend pas en compte.
Les dates en question sont dans la colonne "FD"
Bien évidemment, dès lors que je rentre au fur et à mesure les dates manuellement, la formule les prend en compte.
--> J'ai des milliers de cellules concernées, je ne veux pas faire ça manuellement. Sachant en plus que le fichier est "vivant" tous les jours de nouvelles dates sont incrémentées via la USERFORM. Si je dois revenir en arrière et donc ne plus utiliser le USERFORM, ce serait un peut comme revenir à l'age de pierre lol
Si quelqu'un sait comment "valider" en dur toutes les cellules incrémentées par ce USERFORM, vous m’enlèveriez une belle épine du pied (Une manip dans les options ? )
Merci d'avance pour votre aide
Bonjour,
Quel est votre code de validation dans le userform ?
Bonjour,
Le voici :
'Pour le bouton Valider
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i%, L%
With Worksheets("BC")
If MsgBox("Confirmez-vous les modifications apportées ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
On Error GoTo SORTIE
L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9
For i = 1 To 18
If Me.Controls("TextBox" & i).Visible = True Then
.Cells(L, i + 144) = Me.Controls("TextBox" & i)
End If
Next i
Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
Me.Label47 = CStr(Application.Index(.Range("FH:FH"), L))
Me.Label52 = CStr(Application.Index(.Range("BZ:BZ"), L))
Me.Label54 = CStr(Application.Index(.Range("I:I"), L))
Me.Label56 = CStr(Application.Index(.Range("FI:FI"), L))
Me.Label61 = CStr(Application.Index(.Range("AA:AA"), L))
Me.Label59 = CStr(Application.Index(.Range("AH:AH"), L))
Me.Label63 = CStr(Application.Index(.Range("FJ:FJ"), L))
Me.Label64 = CStr(Application.Index(.Range("AI:AI"), L))
Me.Label66 = CStr(Application.Index(.Range("J:J"), L))
Me.Label67 = CStr(Application.Index(.Range("K:K"), L))
Me.Label69 = CStr(Application.Index(.Range("AL:AL"), L))
Me.Label71 = CStr(Application.Index(.Range("AO:AO"), L))
Me.Label73 = CStr(Application.Index(.Range("AN:AN"), L))
Me.Label74 = CStr(Application.Index(.Range("L:L"), L))
Me.Label77 = CStr(Application.Index(.Range("HA:HA"), L))
Me.Label78 = CStr(Application.Index(.Range("HB:HB"), L))
Me.Label85 = CStr(Application.Index(.Range("AR:AR"), L))
Me.Label86 = CStr(Application.Index(.Range("AS:AS"), L))
Me.Label87 = CStr(Application.Index(.Range("AT:AT"), L))
Me.Label88 = CStr(Application.Index(.Range("AU:AU"), L))
Me.Label90 = CStr(Application.Index(.Range("Z:Z"), L))
Me.Label85.Caption = Format(Round(CDbl(Application.Index(.Range("AR:AR"), L)), 2), "###,##0.00")
Me.Label86.Caption = Format(Round(CDbl(Application.Index(.Range("AS:AS"), L)), 2), "###,##0.00")
Me.Label87.Caption = Format(Round(CDbl(Application.Index(.Range("AT:AT"), L)), 2), "###,##0.00")
Me.Label88.Caption = Format(Round(CDbl(Application.Index(.Range("AU:AU"), L)), 2), "###,##0.00")
End If
Me.Label71 = .Range("ED65000").End(xlUp).Rows
End With
Exit Sub
SORTIE: MsgBox "BC non trouvé, merci de recommencer une nouvelle saisie", vbCritical: Exit Sub
Application.ScreenUpdating = True
Me.Repaint
End Sub
Et ici pour les textbox dans lesquelles je mets les dates qui vont s'incrémenter (Texbox 16 pour ce qui me pose problème maintenant)
'Pour le suivi des visas'
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim L As Integer
Range("ED" & L).Value = ComboBox1
Range("EO" & L).Value = TextBox1
Range("EP" & L).Value = TextBox2
Range("EQ" & L).Value = TextBox3
Range("ER" & L).Value = TextBox4
Range("ES" & L).Value = TextBox5
Range("ET" & L).Value = TextBox6
Range("EU" & L).Value = TextBox7
Range("EV" & L).Value = TextBox8
Range("EW" & L).Value = TextBox9
Range("EX" & L).Value = TextBox10
Range("EY" & L).Value = TextBox11
Range("EZ" & L).Value = TextBox12
Range("FA" & L).Value = TextBox13
Range("FB" & L).Value = TextBox14
Range("FC" & L).Value = TextBox15
Range("FD" & L).Value = TextBox16
Range("FE" & L).Value = TextBox17
Range("FF" & L).Value = TextBox18
End If
Application.ScreenUpdating = True
End Sub
Essayez :
Range("FD" & L).Value = Cdate(TextBox16)
Votre code me paraît bien compliqué :
Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
Regardez si ce code ne serait pas plus simple :
Me.Label46 = CStr(.Cells(L,"FG"))
Modification effectuée mais rien ne change.
Il faut toujours que je rentre la date à la main pour qu'elle soit prise en compte par la formule.
Pouvez-vous mettre un fichier sans données confidentielles en ligne ?
Oui, je vais le faire, mais ça va me prendre un peu de temps (temps pour "anonymiser" le fichier)
Vous avez soldé la discussion. Vous avez réglé votre problème ?
For i = 1 To 18
If Me.Controls("TextBox" & i).Visible = True Then
Select Case i
case 16
.Cells(L, i + 144) = Cdate(Me.Controls("TextBox" & i))
case else
.Cells(L, i + 144) =Me.Controls("TextBox" & i)
End Select
End If
Next i
Je n'arrive pas à réduire la taille du fichier (malgrè avoir enlever quasiment toutes les MEF et données), il reste à 4,7M0 et en le compressant je n'arrive qu'à 2M0
J'essaierai donc demain à nouveau...
Pour la "validation" de la discussion, cela ne concernait que le code amélioré que vous m'avez suggéré.
Dupliquez votre fichier et ne gardez que quelques données qui permettront de travailler avec l'usf.
Bonjour,
Ça m'a pris une heure pour modifier le fichier en conséquence. J'ai mis par écrit les problématiques dans le fichier.
J'espère que ce sera assez clair
Merci :)
C'est bon, super ! Vous êtes un as :) Cela fonctionne avec le dernier code que vous avez envoyé ! Bravo
Question subsidiaire :
Si je veux que toutes les "cases" soient au format date, le code serait ? :
For i = 1 To 18
If Me.Controls("TextBox" & i).Visible = True Then
Select Case i
case 1 to 18
.Cells(L, i + 144) = Cdate(Me.Controls("TextBox" & i))
End Select
End If
Next i
Bonjour,
Le code que vous m'avez communiqué fonctionne très bien pour paraméter la cellule au format "DATE"
For i = 1 To 18
If Me.Controls("TextBox" & i).Visible = True Then
Select Case i
case 16
.Cells(L, i + 144) = Cdate(Me.Controls("TextBox" & i))
case else
.Cells(L, i + 144) =Me.Controls("TextBox" & i)
End Select
End If
Next i
Cependant, il fait planter l'exécution de la Macro. (Photo ci-dessous)
Une idée pour débloquer ?
Merci d'avance
Le TextBox18 existe-t-il ?
Oui,
J'ai bien 18 textbox
et idéalement, il faut qu'elles soient toutes au format DATE car ce ne sont que des dates à renseigner.
Voici le code complet d'origine
Dim Ws As Worksheet
'RAZ
Private Sub CommandButton4_Click()
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
UserForm1.ComboBox1.SetFocus
Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.Tag = "LblZoneA" Then
Ctl = ""
End If
Next Ctl
End Sub
'Ouvrir le PDF du BC'
Private Sub CommandButton9_Click()
Dim Cible As String, LeBC As String
Dim OuvrirFichier As Object
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LeBC = Me.ComboBox1
Cible = "\Commun\2. PR_BCR\Contrat\2-BC\BC Notifiés\" & "BC " & LeBC & ".pdf"
Set OuvrirFichier = CreateObject("Scripting.FileSystemObject")
With OuvrirFichier
If (.FileExists(Cible)) Then
Shell "C:\WINDOWS\explorer.exe """ & Cible & "", vbNormalFocus
Else
MsgBox "Impossible d'atteindre le fichier (""" & Cible & """)" & Chr(10) & Chr(10) & "Il a pu être déplacé, renommé ou supprimé.", vbCritical
End If
End With
End Sub
'Ouvrir la DR'
Private Sub CommandButton13_Click()
Dim Cible As String, LaDR As String, LeBC As String
Dim OuvrirFichier As Object
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " BC" & LeBC & ".zip"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " BC" & LeBC & ".pdf"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DLR" & " BC" & LeBC & ".zip"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DLR" & " BC" & LeBC & ".pdf"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DAJ" & " BC" & LeBC & ".zip"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DAJ" & " BC" & LeBC & ".pdf"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DRP" & " BC" & LeBC & ".zip"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LaDR = Me.Label71.Caption
LeBC = Me.ComboBox1
Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DRP" & " BC" & LeBC & ".pdf"
Set OuvrirFichier = CreateObject("Shell.Application")
If Len(Dir(Cible)) > 0 Then
OuvrirFichier.Open (Cible)
End If
End Sub
'Ouvrir un dossier'
Private Sub CommandButton10_Click()
Dim Cible As String, NomDossier As String
Dim OuvrirDossier As Object
Dim FichierExiste As Boolean
Dim TailleDossier As Integer
Dim LimiteInf As Long, LimiteSup As Long, i As Long, LeBC As Long
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
LeBC = CLng(Me.ComboBox1)
TailleDossier = 50
For i = 1 To 1500 Step TailleDossier
LimiteInf = i
LimiteSup = i + TailleDossier - 1
If LeBC >= LimiteInf And LeBC <= LimiteSup Then NomDossier = "BC " & LimiteInf & "à" & LimiteSup: Exit For
Next i
Cible = "Commun\2. PR_BCR\Contrat\2-BC\" & NomDossier
Set OuvrirDossier = CreateObject("Scripting.FileSystemObject")
With OuvrirDossier
If (.FolderExists(Cible)) Then
Shell "C:\WINDOWS\explorer.exe """ & Cible & "", vbNormalFocus
'Ou : Shell "C:\WINDOWS\explorer.exe " & cible, vbNormalFocus
Else
MsgBox "Le dossier n'existe pas, il a peut-être été supprimé ou déplacé.", vbExclamation
End If
End With
End Sub
'Pour le formulaire
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim J As Long, i%, L%
With Worksheets("BC")
L = .Range("ED" & Rows.Count).End(xlUp).Row
For J = 10 To L
Me.ComboBox1.AddItem .Range("ED" & J)
Next J
Me.Label71 = .Range("ED65000").End(xlUp).Rows
End With
Application.ScreenUpdating = True
End Sub
'Pour la liste déroulante BC
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim i%, L%
With Worksheets("BC")
On Error GoTo SORTIE
L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
For i = 1 To 18
Me.Controls("TextBox" & i) = .Cells(L, i + 144)
Next i
Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
Me.Label47 = CStr(Application.Index(.Range("FH:FH"), L))
Me.Label52 = CStr(Application.Index(.Range("BZ:BZ"), L))
Me.Label54 = CStr(Application.Index(.Range("I:I"), L))
Me.Label56 = CStr(Application.Index(.Range("FI:FI"), L))
Me.Label61 = CStr(Application.Index(.Range("AA:AA"), L))
Me.Label59 = CStr(Application.Index(.Range("AH:AH"), L))
Me.Label63 = CStr(Application.Index(.Range("FJ:FJ"), L))
Me.Label64 = CStr(Application.Index(.Range("AI:AI"), L))
Me.Label66 = CStr(Application.Index(.Range("J:J"), L))
Me.Label67 = CStr(Application.Index(.Range("K:K"), L))
Me.Label69 = CStr(Application.Index(.Range("AL:AL"), L))
Me.Label71 = CStr(Application.Index(.Range("AO:AO"), L))
Me.Label73 = CStr(Application.Index(.Range("AN:AN"), L))
Me.Label74 = CStr(Application.Index(.Range("L:L"), L))
Me.Label77 = CStr(Application.Index(.Range("HA:HA"), L))
Me.Label78 = CStr(Application.Index(.Range("HB:HB"), L))
Me.Label85 = CStr(Application.Index(.Range("AR:AR"), L))
Me.Label86 = CStr(Application.Index(.Range("AS:AS"), L))
Me.Label87 = CStr(Application.Index(.Range("AT:AT"), L))
Me.Label88 = CStr(Application.Index(.Range("AU:AU"), L))
Me.Label90 = CStr(Application.Index(.Range("Z:Z"), L))
Me.Label85.Caption = Format(Round(CDbl(Application.Index(.Range("AR:AR"), L)), 2), "###,##0.00")
Me.Label86.Caption = Format(Round(CDbl(Application.Index(.Range("AS:AS"), L)), 2), "###,##0.00")
Me.Label87.Caption = Format(Round(CDbl(Application.Index(.Range("AT:AT"), L)), 2), "###,##0.00")
Me.Label88.Caption = Format(Round(CDbl(Application.Index(.Range("AU:AU"), L)), 2), "###,##0.00")
End With
Exit Sub
Application.ScreenUpdating = True
SORTIE: MsgBox "BC non trouvé, merci de recommencer une nouvelle saisie", vbCritical: Exit Sub
End Sub
'Pour le suivi des visas'
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim L As Integer
Range("ED" & L).Value = ComboBox1
Range("EO" & L).Value = (TextBox1)
Range("EP" & L).Value = (TextBox2)
Range("EQ" & L).Value = (TextBox3)
Range("ER" & L).Value = (TextBox4)
Range("ES" & L).Value = (TextBox5)
Range("ET" & L).Value = (TextBox6)
Range("EU" & L).Value = (TextBox7)
Range("EV" & L).Value = (TextBox8)
Range("EW" & L).Value = (TextBox9)
Range("EX" & L).Value = (TextBox10)
Range("EY" & L).Value = (TextBox11)
Range("EZ" & L).Value = (TextBox12)
Range("FA" & L).Value = (TextBox13)
Range("FB" & L).Value = (TextBox14)
Range("FC" & L).Value = (TextBox15)
Range("FD" & L).Value = (TextBox16)
Range("FE" & L).Value = (TextBox17)
Range("FF" & L).Value = (TextBox18)
End If
Application.ScreenUpdating = True
End Sub
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i%, L%
With Worksheets("BC")
If MsgBox("Confirmez-vous les modifications apportées ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
On Error GoTo SORTIE
L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9
For i = 1 To 18
If Me.Controls("TextBox" & i).Visible = True Then
.Cells(L, i + 144) = (Me.Controls("TextBox" & i))
End If
Next i
Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
Me.Label47 = CStr(Application.Index(.Range("FH:FH"), L))
Me.Label52 = CStr(Application.Index(.Range("BZ:BZ"), L))
Me.Label54 = CStr(Application.Index(.Range("I:I"), L))
Me.Label56 = CStr(Application.Index(.Range("FI:FI"), L))
Me.Label61 = CStr(Application.Index(.Range("AA:AA"), L))
Me.Label59 = CStr(Application.Index(.Range("AH:AH"), L))
Me.Label63 = CStr(Application.Index(.Range("FJ:FJ"), L))
Me.Label64 = CStr(Application.Index(.Range("AI:AI"), L))
Me.Label66 = CStr(Application.Index(.Range("J:J"), L))
Me.Label67 = CStr(Application.Index(.Range("K:K"), L))
Me.Label69 = CStr(Application.Index(.Range("AL:AL"), L))
Me.Label71 = CStr(Application.Index(.Range("AO:AO"), L))
Me.Label73 = CStr(Application.Index(.Range("AN:AN"), L))
Me.Label74 = CStr(Application.Index(.Range("L:L"), L))
Me.Label77 = CStr(Application.Index(.Range("HA:HA"), L))
Me.Label78 = CStr(Application.Index(.Range("HB:HB"), L))
Me.Label85 = CStr(Application.Index(.Range("AR:AR"), L))
Me.Label86 = CStr(Application.Index(.Range("AS:AS"), L))
Me.Label87 = CStr(Application.Index(.Range("AT:AT"), L))
Me.Label88 = CStr(Application.Index(.Range("AU:AU"), L))
Me.Label90 = CStr(Application.Index(.Range("Z:Z"), L))
Me.Label85.Caption = Format(Round(CDbl(Application.Index(.Range("AR:AR"), L)), 2), "###,##0.00")
Me.Label86.Caption = Format(Round(CDbl(Application.Index(.Range("AS:AS"), L)), 2), "###,##0.00")
Me.Label87.Caption = Format(Round(CDbl(Application.Index(.Range("AT:AT"), L)), 2), "###,##0.00")
Me.Label88.Caption = Format(Round(CDbl(Application.Index(.Range("AU:AU"), L)), 2), "###,##0.00")
End If
Me.Label71 = .Range("ED65000").End(xlUp).Rows
End With
Exit Sub
SORTIE: MsgBox "BC non trouvé, merci de recommencer une nouvelle saisie", vbCritical: Exit Sub
Application.ScreenUpdating = True
Me.Repaint
End Sub
'Ouvrir le dossier des DR notifiés'
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
Dim MonDossier As String
MonDossier = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées"
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus
Application.ScreenUpdating = True
End Sub
'Ouvrir le dossier des BC notifiés'
Private Sub CommandButton7_Click()
Application.ScreenUpdating = False
Dim MonDossier As String
MonDossier = "Commun\2. PR_BCR\Contrat\2-BC"
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus
Application.ScreenUpdating = True
End Sub
'Ouvrir le dossier des visas'
Private Sub CommandButton11_Click()
Application.ScreenUpdating = False
Dim MonDossier As String
MonDossier = "S:\DIR\Transverse\Actes_a_signer"
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus
Application.ScreenUpdating = True
End Sub
'Pour le bouton Quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub
: