Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1720 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2283731
wyrgle
Posté le 15-06-2016 à 23:18:54  profilanswer
 

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
  4. ' la liste des répertoire commence en cellule (6,4)
  5. ligne = 6
  6. Cells(ligne, 4).Select
  7. ' je récupère le contenu des cellules sous forme de chaine de char
  8. Chemin = Cells(ligne, 4).Text
  9. ' Tant que les cellules sous la cellule (6,4) ne sont pas vides
  10. Do While Len(Chemin) <> 0
  11. If Len(Dir(Chemin, vbDirectory)) = 0 Then ' Si le répertoire n'existe pas alors
  12. Cells(ligne, 5).Interior.ColorIndex = 3 ' la cellule en E est rouge
  13. Cells(ligne, 5) = "N" ' et contient "N"
  14. ligne = ligne + 1 ' je passe à la ligne suivante
  15. Chemin = Cells(ligne, 4).Text ' j'actualise le répertoire suivant à tester
  16. Cells(ligne, 4).Select ' utile ??
  17. End If
  18. Loop
  19. 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
mood
Publicité
Posté le 15-06-2016 à 23:18:54  profilanswer
 

n°2283732
Marc L
Posté le 16-06-2016 à 00:07:15  profilanswer
 

 
            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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[Prolog] : ajouter un nombre à la bonne place dans une liste de nbCréer une liste simplement chainée
Créer une liste simplement chainéerécupérer donnée selectionnée liste déroulante
problème liste déroulante avec BDDGnat : liste & nom des packages
Système de commentaire sur liste en PHP/AJAX[EXCEL] Associé nombre à mot depuis une liste déroulante
[Excel/VBA] Pivot table - Filtrer automatiquement sur une liste d'ID 
Plus de sujets relatifs à : Existence de répertoires d'après une liste


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR