[VBS] Excel

Excel [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 24-03-2011 à 12:24:26    

Bonjour,
 
Débutant en vb, je cherche à créer un vbs.
En effet celui-ci doit récupérer les noms netbios de machine dans un excel commençant par "XP" puis interroger ces machines sur le réseau pour vérifier qu'une valeur dans leur registre existe et enfin écrire dans ce même excel "OK" ou "Nok" sur la ligne correspondant à la bonne machine.
 
Apres plusieurs essai je pensais être enfin arrivé à quelque chose, mais non l'excel s'ouvre et il ne se passe rien.  :cry:  
 

Code :
  1. Function RegExiste(value)
  2. On Error Resume Next
  3. Set WS = CreateObject("WScript.Shell" )
  4. val = WS.RegRead(value)
  5. If (Err.number = -2147024893) or (Err.number = -2147024894) Then
  6. RegExiste = False
  7. Else
  8. RegExiste = True
  9. End If
  10. End Function
  12. On Error Resume Next
  13. 'Ouverture d'Excel
  14. Set objExcel = CreateObject("Excel.Application" )
  15. Set objWorkbook = objExcel.Workbooks.Open("c:\XXX\Desktop\VBS\Test1.xlsx" )
  16. objExcel.Visible = False
  17. objExcel.DisplayAlerts = False
  18. objExcel.Sheets("Feuil1" ).select
  19. Dim Netbios
  20. IntRow = 2
  21. Netbios = objExcel.Cells(IntRow,10).Value
  22. While Netbios = "XP*"
  23. If objExcel.Cells(IntRow,10).Value = "XP*" Then
  24.  NomMachine = objExcel.Cells(IntRow,10).Value
  25.  'objExcel.value(IntRow,10)
  27.  HKEY_LOCAL_MACHINE = &H80000002
  28.   Err.Clear
  29.   Set objReg = GetObject("winmgmts:\\" & NomMachine & "\root\default:StdRegProv" )
  30.   If err.number<>0 Then
  31.   msgbox "L'ordinateur " & NomMachine & " n'a pas été trouvé sur le réseau", vbCritical, "Erreur de connexion"
  32.   Else
  33.    If RegExiste ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ScanOCS" ) Then
  34.     MsgBox "La valeur existe."
  35.     objExcel.Cells(IntRow, 18).Value = "Ok"
  36.     IntRow = IntRow + 1
  37.    Else
  38.     MsgBox "La valeur n'existe pas."
  39.     objExcel.Cells(IntRow, 18).Value = "Nok"
  40.     IntRow = IntRow + 1
  41.    End If
  42.   End If
  43. Else
  44.  'Fermeture d'Excel
  45.  objWorkbook.Save
  46.  objWorkbook.Close
  47.  objExcel.Quit
  48.  Set objWorkbook = Nothing
  49.  Set objWorkbook = Nothing
  50.  Set objExcel = Nothing
  51. End If
  52. Wend

 
Si quelqu'un à une idée d'ou pourrait provenir le problème je lui en serais reconnaissant
Merci
 

Reply

Marsh Posté le 24-03-2011 à 12:24:26   

Reply

Marsh Posté le 24-03-2011 à 13:50:07    

Code :
  1. Netbios = objExcel.Cells(IntRow,10).Value
  2. While Netbios = "XP*"

Tu définis en amont du While, et tu ne redefinis pas Netbios par la suite, ca ne peut pas tourner...
 
De plus, il va sortir de ton while des que Netbios sera different de "XP"...
 
Je verrais plutot quelque chose de ce genre la :
A la place des lignes 21 et 22:

Code :
  1. DerLigne = objExcel.Cells(Rows.Count, 10).End(xlUp).Row
  2. For IntRow = 1 To DerLigne


 
Degager les lignes 36 ; 40
 
Et a la place de la ligne 52

Code :
  1. Next IntRow

Message cité 1 fois
Message édité par SuppotDeSaTante le 24-03-2011 à 13:50:16

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 24-03-2011 à 16:14:35    

Merci  pour les réponses

SuppotDeSaTante a écrit :

Tu définis en amont du While, et tu ne redefinis pas Netbios par la suite, ca ne peut pas tourner...


Ah oui effectivement trop la honte lol Merci

SuppotDeSaTante a écrit :

De plus, il va sortir de ton while des que Netbios sera different de "XP"...


Dans mon fichier Excel les "XP" se suivent. Des que ce n'est plus le cas les valeurs ne m'intéressent plus. En fait je cherche seulement les cellules commençant par XP en respectant la casse.

SuppotDeSaTante a écrit :

Je verrais plutot quelque chose de ce genre la :
A la place des lignes 21 et 22:

Code :
  1. DerLigne = objExcel.Cells(Rows.Count, 10).End(xlUp).Row
  2. For IntRow = 1 To DerLigne


Degager les lignes 36 ; 40
 
Et a la place de la ligne 52

Code :
  1. Next IntRow



Si je comprend bien ca "check" chaque ligne à partir de 1 et Next IntRow sert à passer à la suivante jusquà la derniere?
J'ai enlevé IntRow dans "Next IntRow" car j'ai un message d'erreur "Attente d'intruction".
 
En suivant ta méthode la boucle à l'air de marcher mais bloque à ligne 31 et m'affiche mon message d'erreur "L'ordinateur " & NomMachine & " n'a pas été trouvé sur le réseau" ou "NomMachine" correspond à un Blanc : L'ordinateur >< n'a pas été trouvé sur le réseau ( donc normale que l'erreur survienne )
 
Du coup je pense que j'ai un probleme à la ligne 23;24 :

Code :
  1. If objExcel.Cells(IntRow,10).Value = "XP*" Then
  2.  NomMachine = objExcel.Cells(IntRow,10).Value


Je voudrais dire : Si la valeur dans la cellule(IntRow, 10) commence par XP alors appliquer cette valeur à la variable "NomMachine"
C'est pas comme ça qu'il faut faire?
 
[Edit]
J'ai essayé d'isoler des lignes pour voir d'ou venait l'erreur et j'en est une autre maintenant " Erreur : Objet requis: 'Rows' " caractere 1 pour la ligne "DerLigne = objExcel.Cells(Rows.Count, 10).End(xlUp).Row"


Message édité par Mackk2 le 24-03-2011 à 16:28:31
Reply

Marsh Posté le 24-03-2011 à 16:37:03    

Ah ui, ôtent pour moi.
Je l'ai fait dans Excel... pas en VBS...
 
objExcel.Cells(objExcel.Rows.Count, 10).End(xlUp).Row

Message cité 1 fois

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 24-03-2011 à 16:50:43    

SuppotDeSaTante a écrit :

Ah ui, ôtent pour moi.
Je l'ai fait dans Excel... pas en VBS...
 
objExcel.Cells(objExcel.Rows.Count, 10).End(xlUp).Row


 
T'aurais un exemple de script ou tu utilise objExcel.Cells(objExcel.Rows.Count, 10).End(xlUp).Row
Parce que maintenant j'ai : erreur d’exécution inconnu
Donc peut être que je zappe quelque chose qu'il faut que je rajoute ( ou enleve )
 
Merci

Reply

Marsh Posté le 24-03-2011 à 16:58:45    

Fais un essai avec  
DerLigne = 65536
 
Edit : je suis con...
xlUp.. en vbs...
Remplace xlUp par 3
 
objExcel.Cells(objExcel.Rows.Count, 10).End(3).Row

Message cité 1 fois
Message édité par SuppotDeSaTante le 24-03-2011 à 17:01:15

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 24-03-2011 à 17:17:16    

SuppotDeSaTante a écrit :

Fais un essai avec  
DerLigne = 65536
 
Edit : je suis con...
xlUp.. en vbs...
Remplace xlUp par 3
 
objExcel.Cells(objExcel.Rows.Count, 10).End(3).Row


Effectivement ça marche
Bon ben je mettrais 1000 alors parceque xlUp ca passe pas en vbs
 
Merci beaucoup

Reply

Marsh Posté le 24-03-2011 à 17:19:02    

Non non !!
3 = xlUp
Il faut laisser 3.

Message cité 1 fois

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 24-03-2011 à 17:46:27    

SuppotDeSaTante a écrit :

Non non !!
3 = xlUp
Il faut laisser 3.


Mdr trop cool Merci beaucoup

Reply

Marsh Posté le 25-03-2011 à 15:24:43    

Maintenant le script marche nikel....... enfin presque
 
La ou ca bloque maintenant c'est ligne 16. Je pense au moment de la lecture du registre distant. Je ne comprend pas pourquoi il ne fait soit que m'inscrire Nok ( donc la valeur du registre n'existe pas )  peut importe qu'elle existe ou pas ; ou indisponible qui lui marche bien quand la machine distante n'est pas joignable
 

Code :
  1. 'On Error Resume Next
  2. 'Ouverture d'Excel
  3. Set objExcel = CreateObject("Excel.Application" )
  4. Set objWorkbook = objExcel.Workbooks.Open("c:\Excel.xlsx" )
  5. objExcel.Visible = True
  6. objExcel.DisplayAlerts = True
  7. objExcel.Sheets("sheet 1" ).select
  8. On Error Resume Next
  9. Dim DerLigne
  10. Derligne = objExcel.Cells(objExcel.Rows.Count, 10).End(3).Row
  11. For IntRow = 21 To DerLigne
  12. If objExcel.Cells(IntRow,10).Value<>"" Then
  13.  NomMachine = objExcel.Cells(IntRow,10).Value
  14.  HKEY_LOCAL_MACHINE = &H80000002
  15.  Err.Clear
  16.  Set objReg = GetObject("winmgmts:\\" & NomMachine & "\root\default:StdRegProv" )
  17.   strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
  18.   ValueName = "ScanOCS"
  19.   objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, ValueName, strValue
  20.  If err.number<>0 Then
  21.   objExcel.Cells(IntRow, 18).Value = "Indisponible"
  22.  Else
  23.   If IsNull(strValue) Then
  24.    objExcel.Cells(IntRow, 18).Value = "NOk"
  25.   Else
  26.    objExcel.Cells(IntRow, 18).Value = "Ok"
  27.   End If
  28.  End If
  29. Else
  30. 'Fermeture d'Excel
  31. ' objWorkbook.Save
  32. ' objWorkbook.Close
  33. ' objExcel.Quit
  34. ' Set objWorkbook = Nothing
  35. ' Set objWorkbook = Nothing
  36. ' Set objExcel = Nothing
  37. End If
  38. Next
  39. Msgbox = "Fichier Excel mise à jour."


 
J'ai pourtant essayé plusieurs manière d’interroger le registre sur un pc distant. J'ai à chaque fois un problème alors que les droit sont bons etc.
Si quelqu'un à une idée d'ou provient mon erreur.
Merci pour vos conseils avisés


Message édité par Mackk2 le 25-03-2011 à 15:27:58
Reply

Marsh Posté le 25-03-2011 à 15:24:43   

Reply

Marsh Posté le 25-03-2011 à 15:28:04    

strValue te renvoie quoi pour les coups où ca ne marche pas ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 15:29:27    

Hmm comment je peux récupérer cette valeur?
Quand j'essaye de la mettre dans une msgbox j'ai tout de suite une erreur

Reply

Marsh Posté le 25-03-2011 à 15:30:42    

Et ton erreur est ou ? Ligne 16 ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 15:32:37    

Pour le registre je n'ai pas de message d'erreur
Ca me met tout simplement Nok dans mon excel que la valeur dans le registre existe ou non
Pour "msgbox strValue" j'ai l'erreur sur la ligne ou je met cette commande.


Message édité par Mackk2 le 25-03-2011 à 15:32:52
Reply

Marsh Posté le 25-03-2011 à 15:38:15    

Hum.
 
Reprenons.
 
"ScanOCS" c'est quoi ? Une clé ou une Valeur ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 15:39:06    

Une Valeur de chaine

Reply

Marsh Posté le 25-03-2011 à 15:40:46    

Donc tu créés une Valeur Chaine directement dans le Run.. Mouai bon, admettons.
 
Tu as donc HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Et dedans une valeur chaine ayant pour nom ScanOCS ?


Message édité par SuppotDeSaTante le 25-03-2011 à 15:41:03

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 15:42:12    

Exactement
(Ce n'est pas moi qui la créée je veux juste savoir si elle est présente)

Reply

Marsh Posté le 25-03-2011 à 15:43:17    

Et dedans il y a quoi ? Comme données de la valeur ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 15:44:17    

Une url genre \\serveur\...\etc

Reply

Marsh Posté le 25-03-2011 à 15:45:35    

Et toi tu veux tester quoi ?
Si la valeur DWORD existe ou les données de la valeur DWORD ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 15:47:52    

Si ScanOCS existe. De toute facon impossible qu'il n'y est rien dans ScanOCS
Hmmmm
à tous les coup faudrait pas que je remplace DWORD par String?

Reply

Marsh Posté le 25-03-2011 à 15:57:59    

GetDWORDValue permet de lire les données dans la Valeur DWord, donc ton url
 
D'ailleurs, un truc comme ca serait plus rapide :
Set objWSH = CreateObject("WScript.Shell" )
Debug.Print objWSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ScanOCS" )
 
Tu peux d'ailleurs tester s'il y a une erreur ou pas et en fonction dire sil elle y est ou pas.
 
 
Ensuite, pour énumérer les Valeur d'une clé, remplace la ligne 19 par  

Code :
  1. objReg.EnumKey &H80000002, strKeyPath, strValue
  2. For Each Valeurs In strValue
  3. If strValue = "ScanOCS" Then


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-03-2011 à 16:36:01    

WOUAHOU!
Rofl Beau Gosse ça marche du tonnerre  
 
Et effectivement String à la place de Dword c'est mieux dans mon cas vu que je ne veux trouver que la valeur chaîne et pas ce qu'il y a dedans
 
Merci c'est génial :D

Reply

Marsh Posté le 25-03-2011 à 16:51:28    

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

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