MuscatMimi
XLDnaute Accro
Bonjour a tout le Forum
Dans le Code ci-dessous, nom fichier en rouge
ce Nom de Fichier change du fait que je le Sauvegarde avec la Date du Jour
je n'arrive pas trouver la bonne syntaxe pour y arriver
Si qq a une idée, elle sera la bienvenue
Bonne journée a tous
Cordialement
Dans le Code ci-dessous, nom fichier en rouge
ce Nom de Fichier change du fait que je le Sauvegarde avec la Date du Jour
je n'arrive pas trouver la bonne syntaxe pour y arriver
Si qq a une idée, elle sera la bienvenue
Code:
Private Sub UserForm_Initialize()
Dim Nom1 As String, Nom2 As String
Nom2 = "Mail Outlook Express"
Nom1 = "AA"
[COLOR="Red"]Me.TextBox5 = ActiveWorkbook.Path & "\[COLOR="red"]Mail Outlook Exp 10/11/2010[/COLOR]" & ".xls" ' & Nom1 & "\" & Nom2 & ".xls"
'Me.TextBox5 = Sheets("settings").Range("F1")
Me.ListBox1 = Me.TextBox5.Value
Dim c
Dim T
Dim MonDico
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range(Sheets("settings").[J3], Sheets("settings").[J65000].End(xlUp))
If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
Next c
For Each T In MonDico.items
Me.ComboBox3.AddItem T
Next
ComboBox3.Value = Sheets("settings").Range("J3")
'--**********************
Dim I As Integer
numab = Sheets("settings").Range("B6")
ComboBox2.Clear
'For i = 1 To 3
ComboBox2.AddItem "Address Book " '& i
'Next
ComboBox2.ListIndex = numab
Call CommandButton6_Click ''clear
TextBox1.Value = Sheets("settings").Range("B3")
TextBox3.MultiLine = True
TextBox3.WordWrap = True
TextBox3.EnterKeyBehavior = True
'--************************
CommandButton5.Visible = False
End SubBonne journée a tous
Cordialement