Trouve le bon nom d'un répertoire juste avec le début [Résolu] - VB/VBA/VBS - Programmation
Marsh Posté le 09-02-2007 à 13:38:53
J'ai trouvé une solution qui va m'aider, grace à la fonction DIR et l'exemple que l'on trouve dans Excel
Sub Test()
Dim MyFile, MyPath, MyName
MyPath = "C:\toto\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName est un dossier.
If Left(MyName, 6) = "C08260" Then
MsgBox "TOTO"
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop
End Sub
Marsh Posté le 09-02-2007 à 11:31:46
Bonjour,
J'ai eu fichier excel qui doit d'enregistrer automatiquement dans un répertoire.
J'ai liste de répertoire ayant un numéro de départ unique, mais le suite peut être ammené à changer
01_toto1
02_toto2
03_toto3
04_toto4
05_toto5
J'aimerai faire en sorte que dès que je veux mettre dans la 01, un programme me donne le nom complet de mon répertoire =>,"01_toto1"
Une fois que j'ai le nom complet plus de soucis pour enregister
Quelqu'un à une idée sur la manière de faire?
Message édité par Raphou96 le 09-02-2007 à 13:39:49