[Résolu] Trouve le bon nom d'un répertoire juste avec le début

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 à 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
Reply

Marsh Posté le 09-02-2007 à 11:31:46   

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed