Existence de répertoires d'après une liste

Existence de répertoires d'après une liste - VB/VBA/VBS - Programmation

Marsh Posté le 15-06-2016 à 23:18:54    

Bonjour à tous,
 
Voici mon problème : j'ai une liste de répertoires en colonne D. Je teste l'existence de ces répertoires un par un (avant de traiter leurs fichiers éventuels dans une prochaine routine).
 
Ce que je cherche à avoir : si un répertoire n'existe pas, la cellule en colonne E devient rouge avec la valeur N (pour Non). Mais cette macro tourne en boucle et me plante Excel 2010 (English)
 

Code :
  1. Sub Existence_of_Directory()
  2. Dim ligne As Integer
  3. Dim Chemin As String
  5. ' la liste des répertoire commence en cellule (6,4)
  6. ligne = 6
  7. Cells(ligne, 4).Select
  9. ' je récupère le contenu des cellules sous forme de chaine de char
  10. Chemin = Cells(ligne, 4).Text
  12. ' Tant que les cellules sous la cellule (6,4) ne sont pas vides
  13. Do While Len(Chemin) <> 0
  14. If Len(Dir(Chemin, vbDirectory)) = 0 Then ' Si le répertoire n'existe pas alors
  15. Cells(ligne, 5).Interior.ColorIndex = 3 ' la cellule en E est rouge
  16. Cells(ligne, 5) = "N" ' et contient "N"
  17. ligne = ligne + 1 ' je passe à la ligne suivante
  18. Chemin = Cells(ligne, 4).Text ' j'actualise le répertoire suivant à tester
  19. Cells(ligne, 4).Select ' utile ??
  20. End If
  21. Loop
  22. End Sub


Il doit y avoir un problème de logique, mais je ne trouve pas.
 
Merci pour votre aide !
 
Wyrgle


Message édité par wyrgle le 16-06-2016 à 00:21:52
Reply

Marsh Posté le 15-06-2016 à 23:18:54   

Reply

Marsh Posté le 16-06-2016 à 00:07:15    

 
            Bonjour !
 
            En fait la ligne n° … Ah zut le code n'a pas été balisé conformément aux règles du forum !
 
            Edit : déjà résolu sur un autre forum …
 


Message édité par Marc L le 16-06-2016 à 00:18:27
Reply

Sujets relatifs:

Leave a Replay

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