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