Recfup space Disk SuiteRésolu

Question

Bonjour le forum, et  Jean Marc 

Suite au script que tu as bien voulu me faire pour la recup d' espace disque sur serveur vers excel, ne serait il pas possible de faire uen modif dans le code si le pourcentage d' espace libre est inferieur à 10 
pour cent de le mettre soit en jaune (pour être visible) où rouge .
Merci d' avance 

Barada

cs_JMO · Accepted Answer

Bonjour à tous

Bonjour barada et Jacques,

ligne(0) =  nom server
ligne(1) = nom disk hard (C: , D:, ...)
ligne(2) = taille totale 
ligne(3) = espace utilisé
ligne(4) = espace libre
ligne(5) = % espace libre

donc,
              i = ""
              For i=0 To UBound(Ligne)
                  If i=5  and ligne(1) <> "C:"  Then
                     Dim pourcent
                     pourcent  = Trim(Replace(Ligne(i),"%",""))
                     If pourcent =< 10 Then ' 10  represente le seuil de criticité
                        Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
                        Color NL,i+2,NL,i+2,xlMedium,Red                       
                     Else
                        Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
                        Color NL,i+2,NL,i+2,xlMedium,Yellow                      
                     End If  
                  Else
                     Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
                     Color NL,i+2,NL,i+2,xlMedium,Yellow                  
                  End If
              Next
              NL = NL + 1

jean-marc

cs_JMO · Answer

Bonjour à tous

bonjour barada,

Il suffit de remplacer par

i = ""
For i=0 To UBound(Ligne)
    If i=5 Then
       If Left(ligne(i),2) =< 10 Then ' 10  represente le seuil de criticité
          Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
          Color NL,i+2,NL,i+2,xlMedium,Red                       
       Else
          Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
          Color NL,i+2,NL,i+2,xlMedium,Yellow                      
       End If  
    Else
       Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
       Color NL,i+2,NL,i+2,xlMedium,Yellow                  
    End If
Next
NL = NL + 1

------------------------------------------------------
jean-marc

cs_barada · Answer

Bonjour Jean-Marc


Merci pour ton aide et la rapidité de ta réponse, mais j' ai une erreur de trype incompatibe Ubound sur For i=0 To UBound(Ligne)

Barada

cs_barada · Answer

Rebonjour Jean-Marc

Ne prend pas en compte la premiere réponse, j' ai fait correctement les modifs et ça fonctionne impeccable. Le seul pb c' est que lorsque que l' espace disque d' un lecteur est non utilisé et égale à 100 pour cent, il est aussi coloré en Rouge.

Barada

cs_JMO · Answer

Re, Peux-tu tester ceci: i = "" For i=0 To UBound(Ligne) If i=5 Then Dim pourcent pourcent = Trim(Replace(Ligne(i),"%","")) If pourcent =< 10 Then ' 10 represente le seuil de criticité Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10 Color NL,i+2,NL,i+2,xlMedium,Red Else Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10 Color NL,i+2,NL,i+2,xlMedium,Yellow End If Else Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10 Color NL,i+2,NL,i+2,xlMedium,Yellow End If Next NL = NL + 1 Si problème, précise-moi (clairement, si possible) l'anomalie. ---- Disque local , Taille Totale (Go) , Espace utilisé (Go) , Espace libre (Go) , % libre , ---- C: , 19,53 , 5,50 , 14,03 , 72%, ---- D: , 54,99 , 4,00 , 50,99 , 93% jean-marc

cs_barada · Answer

Rebonjour Jean-marc La photo sera plus explicite Disque local , Taille Totale (Go) , Espace utilisé (Go) , Espace libre (Go) , % libre C: ---- C: , 3,42 , 3,26 , 0,16 , 5%, ---- E: , 410,18 , 158,52 , 251,67 , 61%, ---- F: , 30,48 , 0,06 , 30,41 , 100% Le disque F a un espace libre de 100%, le pb c' est qu' il se colore en rouge, et normalement c' est l' espace disque inférieur à 10% qui doit être en rouge Barada

cs_barada · Answer

Rebonjour Jean-marc La photo sera plus explicite Disque local , Taille Totale (Go) , Espace utilisé (Go) , Espace libre (Go) , % libre C: ---- C: , 3,42 , 3,26 , 0,16 , 5%, ---- E: , 410,18 , 158,52 , 251,67 , 61%, ---- F: , 30,48 , 0,06 , 30,41 , 100% Le disque F a un espace libre de 100%, le pb c' est qu' il se colore en rouge, et normalement c' est l' espace disque inférieur à 10% qui doit être en rouge Barada

jmfmarques · Answer

If i=5 Then





Es-tu certain de ce que le 5ème indice de ton tableau est bien celui qui contient le pourcentage ?
(car si tu as mis dans ton tableau un ordre différent de celui de l'affichage, tout est faussé !)

A ta place, j'ajouterai ce msgbox là où je l'ai mis en rouge, juste vous en avoir le coeur net.

         For i=0 To UBound(Ligne)
                  If i=5 Then
                    Dim pourcent
                    msgbox ligne(i)
                    pourcent = Trim(Replace(Ligne(i),"%",""))

cs_JMO · Answer

Re,

Avec l'exemple de 09h55, cela devrait être ok.
J'ai rajouté:
Dim pourcent
pourcent = Trim(Replace(Ligne(i),"%",""))
c-à-d. je mets, dans la variable "pourcent", le contenu de ligne(5), en enlevant le "%".
le test   If pourcent =< 10 Then   devrait fonctionner.

j'ai testé avec mes disks et un taux de < 80 et pas de problème.

jean-marc

cs_JMO · Answer

Re,

Bonjour Jacques,

oui, le if i=5 correspond bien au pourcentage.
chez moi, pas de problème, j'ai bien cette zone en rouge ou jaune en fonction du seuil.
je ne sais pas si barada à modifier le script originel.

C'est sympa de prendre la relève, car:
- dans 1/4h, boulot-> at home;
- puis direction antibes pour mon petit week-end prolongé;

je vais taquiner les poissons sans poison.

jean-marc

cs_barada · Answer

Bonjour Jacques et Jean-marc

Un grand merci à Jean-marc et à toi aussi jacques, j' ai revu tout en details et corrigé ce que j' avais fait et outo fonctionne correctement -
A bientoto 
Barada

jmfmarques · Answer

Et voilà (bien qu'on ne connaisse pas le dernier mot de cette affaire...)

A Jean-Marc : Il me faut alors te dire le mot de 5 lettres (le reste étant interdit).
Pense à moi en montant ton bas de ligne.

cs_JMO · Answer

Re,

Jacques, mon erreur était +/- flagrante.

dans       If Left(ligne(i),2) =< 10 Then ' 10  represente le seuil de criticité
je teste la cellule sur sa longueur ( xx %) , donc  si 100 %, c'est faux...
Il suffit comme tu l'as remarqué d'utiliser une var et le replace.

Allez, j'y vais rater mon tgv.

ma canne anglaise, waggler...et tout le reste m'attendent.
une petite recherche sur "Port de La Salis"....

@+.
jean-marc

cs_barada · Answer

Re Encore moi pour une petitet modif qui consisterait à exclure les disque local C de le mise forme couleur rouge de l' ensemble lorsque le seuil descend sous 10% ---- U307FIC0 , C: , 3,42 , 3,29 , 0,13 , 4% , ---- U307FIC0 , E: , 410,18 , 158,52 , 251,66 , 61% Merci d' avance Barada

cs_barada · Answer

Re Encore moi pour une petitet modif qui consisterait à exclure les disque local C de le mise forme couleur rouge de l' ensemble lorsque le seuil descend sous 10% ---- U307FIC0 , C: , 3,42 , 3,29 , 0,13 , 4% , ---- U307FIC0 , E: , 410,18 , 158,52 , 251,66 , 61% Merci d' avance Barada

jmfmarques · Answer

Hé Bé !
Jean-Marc est parti à la pêche à Antibes et je n'ai sous les yeux qu'un morceau de son code (celui mis dans cette discussion ...!

Bon, Barada,  on va essayer de faire avec :

Je crois comprendre que C: figure en 2ème colonne de ton tableau 
Essaye d'ajouter ce que j'ai écrit en rouge et vois .
Si toutefois c'était dans la 1ère colonne et pas dans la seconde, il faudrait remplacer (2) par (1) (uniquement celui-là, de 2, hein !)

If i= 5 Then
       If Left(ligne(i),2) =< 10  and left(trim(ligne(2),2 ))   =<> "C:"  Then ' 10  represente le seuil de criticité
          Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
          Color NL,i+2,NL,i+2,xlMedium,Red      

Essaye et dis.

jmfmarques · Answer

Zut !

Corrige :

If Left(ligne(i),2) = < 10  and left(trim(ligne(2),2 ))  <> "C:"  Then ' 10  represente le seuil de criticité

Un  = se promenaIt indûment dans le coin  (à supprimer, donc, comme je l'ai fait ici)

jmfmarques · Answer

Ouais...
Me voilà plus reposé et, soudain, je pense qu'il pourrait toujours y avoir un proclème de casse ( c: au lieu de C:)

Prévenir valant mieux que guérir, voilà la correction finale




and Ucase(left(trim(ligne(2),2 )))





<> "C:"

cs_barada · Answer

Bonjour  jmfmarques

Merci pour ta réponse mais je ne peux tester ta modif car il y a eu une modif de la part de Jean-Marc sur le code sur le post de 10h55

Dim pourcent
                  pourcent = Trim(Replace(Ligne(i),"%",""))
                     If pourcent =< 10 Then ' 10  represente le seuil de criticité
                        Cellule NL,i+2,Space(2) & Replace(Ligne(i),"'","") & Space(2),True,False,10
                        Color NL,i+2,NL,i+2,xlMedium,Red 

Barada

jmfmarques · Answer

Bonjour,

Et alors ?

If pourcent =< 10 and Ucase(left(trim(ligne(2),2 ))
)<> "C:"   
Then ' 10  represente le seuil de criticité
etc...
etc...

En te rappelant que ce(2) en vert doit, si C: est dans une autre colonne x, être  remplacé par (x) ou x est le n° de la colonne

essaye donc !

cs_barada · Answer

Re jmfmarques 

J' ai éffectivement rajouté ton code et toutes les céllules pourcentage se colorent en rouge.

Barada

cs_barada · Answer

Bonjour Jeanmarc et jacques 

J' ai fait un test en local, qui ne pouvait me permettre d' avoir un bon résultat. Je pourrai le tester en réel la semaine prochaine et pourra te donner une réponse
Merci pour la modif 

Barada

cs_barada · Answer

Bonjour Jeanmarc et jacques et le forum 

Jean Marc, J' ai éfféctué le test ce matin et le résultat est positif suite à ta modification.
Je ter remercie pour ton travail.
Bonne continuation et à bientôt
Barada

cs_JMO · Answer

Bonjour à tous

Pense à clore ce topic en validant la réponse de jmfmarques.
 Ne connaissant pas le contexte , il a simplement décalé le [<> "C"] d'une ligne.

@+.
jean-marc

jmfmarques · Answer

Merci JMO,

Mais celà ne me parait pas nécessaire, dans la mesure où, s'agissant d'un problème très particulier et personnalisé, on ne saurait en faire une généralité utile à tous.


Je regrette par contre que barada n'ait pas su clore et valider sur TA dernière réponse !


Amitiés (et bonne pêche)

Recfup space Disk Suite

25 réponses

Votre réponse

Discussions similaires