"fichier-DATE.xlsx"
Fermé
Visual Studio
-
26 janv. 2012 à 16:57
cousinhub29 Messages postés 942 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 8 octobre 2024 - 26 janv. 2012 à 20:06
cousinhub29 Messages postés 942 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 8 octobre 2024 - 26 janv. 2012 à 20:06
A voir également:
- "fichier-DATE.xlsx"
- Fichier rar - Guide
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
cousinhub29
Messages postés
942
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
8 octobre 2024
343
Modifié par cousinhub29 le 26/01/2012 à 20:07
Modifié par cousinhub29 le 26/01/2012 à 20:07
Bonsoir,
Tu peux essayer ainsi
Nota 1: si tu penses avoir plus de 255 fichiers, définis la variable X as integer
Nota 2 : j'ai supposé que tous tes fichiers commençaient par "Le point_"
Bonne soirée
Tu peux essayer ainsi
Nota 1: si tu penses avoir plus de 255 fichiers, définis la variable X as integer
Nota 2 : j'ai supposé que tous tes fichiers commençaient par "Le point_"
Dim LePath As String, NomFich As String Dim X As Byte LePath = "C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2010\Projects\Cyber Café\Caisse\" '.... '.... '.... NomFich = Dir(LePath & "*.xlsx") Do While NomFich <> "" If NomFich Like "Le point_*" Then X = X + 1 End If NomFich = Dir Loop oBook.SaveAs (LePath & "Le point_" & X + 1 & ".xlsx") '.... '.... '....
Bonne soirée