Nom de fichier stocké dans une variable
Résolu/Fermé
Brasiligun
Messages postés
122
Date d'inscription
mardi 29 décembre 2009
Statut
Membre
Dernière intervention
4 mars 2019
-
Modifié le 19 juil. 2018 à 15:51
Brasiligun Messages postés 122 Date d'inscription mardi 29 décembre 2009 Statut Membre Dernière intervention 4 mars 2019 - 20 juil. 2018 à 08:08
Brasiligun Messages postés 122 Date d'inscription mardi 29 décembre 2009 Statut Membre Dernière intervention 4 mars 2019 - 20 juil. 2018 à 08:08
A voir également:
- Nom de fichier stocké dans une variable
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Fichier iso - Guide
1 réponse
jordane45
Messages postés
38427
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 février 2025
4 735
19 juil. 2018 à 16:08
19 juil. 2018 à 16:08
Bonjour,
Teste donc ça
Teste donc ça
Sub choixdate() Dim titre As Variant Dim annee As String Dim feuille As String Dim sh As Worksheet Dim resultat As String Dim nom As String Dim mois As String Dim m As String Dim y As String Dim d As String Application.ScreenUpdating = False Application.DisplayAlerts = False Set sh = Worksheet("Equipe dém") encore: resultat = InputBox("Quelle est la date souhaitée ?" & Chr(10) & "Format XX/XX/XXXX", "Renseignement date") 'La variable reçoit la valeur entrée dans l'InputBox If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat If Len(resultat) <> 10 Then MsgBox "Erreur de format" GoTo encore End If sh.Range("B1") = resultat End If 'On explose la chaine en array arrDate = Split(resultat, "/") d = arrDate(0) 'jour m = arrDate(1) 'mois y = arrDate(2) 'année mois = MonthName(m) nom = d & m & y sh.Range("c1") = nom sh.Range("f1") = mois titre = "Liste des 4H " & nom & ".xlsx" sh.Range("d1") = titre sh.Range("e1") = y feuille = "D:\fichiers\" & y & "\" & mois & "\" & titre MsgBox feuille ' 'Workbooks.Open Filename:=feuille 'Sheets("Liste").Select 'Range("A1:X300").Select 'Selection.Copy 'Windows("ES.xlsm").Activate 'Workbooks("ES.xlsm").Sheets.Add(After:=Worksheets(Worksheets.Count)).Select 'Range("A1").Select 'ActiveSheet.Paste 'ActiveSheet.Name = Workbooks("ES.xlsm").Worksheets("Equipe dém").Cells(1, 3) End Sub
20 juil. 2018 à 08:08
Encore merci