Variable ou !! pour Nom Fichier qui change

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 Sub

Bonne journée a tous
Cordialement
 
Re : Variable ou !! pour Nom Fichier qui change

Bonjour Christian, bonjour le forum,

Peut être comme ça (non testé) :

Code:
Dim nomfich As String
nomfich="\Mail Outlook Exp " & Format(Date, "dd/mm/yyyy")
Me.TextBox5 = ActiveWorkbook.Path & nomfich & ".xls" & Nom1 & "\" & Nom2 & ".xls"
Mais il y a deux fois .xls ça se semble suspect...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
483
Réponses
3
Affichages
677
Réponses
3
Affichages
685
  • Question Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
838
Réponses
2
Affichages
817
Retour