Calculé dans un chiffrier et retourner les informations dans un autre

siocnarf

XLDnaute Occasionnel
Bonjour,

J'ai 2 chiffriers (A et B). Dans le chiffrier A, j'ai une série de valeurs et avec celle-ci, je me connect au WMI de d'autres serveurs. Une fois ma connexion faite, je souhaite écrire les résultats dans le chiffrier B. Toutefois malgré ma manipulation, l'information est toujours écrire dans le Feuil1 du chiffrier A au lieu de Feuil2 du chiffrier B.

Où suis-je en erreur?

Code:
'Connexion à WMI
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & Q_strComputer & "\root\cimv2")
        
Set colEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application' And (Type='Avertissement' or Type='Erreur')")

'J'active le chiffrier B
Code:
Windows(Q_StrTableaudebord).Activate
Sheets("Feuil2").Select

Code:
x = 1
y = 1

For Each objEvent In colEvents

    
    'Nom du serveur
    Cells(y, x) = objEvent.ComputerName
    Cells(y + 1, x) = objEvent.SourceName
    'Type d'alerte (Avertissement ou Erreur)
    Cells(y + 2, x + 2) = objEvent.Type
    'Code d'événement
    Cells(y + 3, x) = objEvent.EventCode
    'Moment de l'inscription
    Cells(y + 4, x) = objEvent.TimeWritten
    'No de l'enregistrement
    Cells(y + 5, x) = objEvent.RecordNumber
    'Utilisateur
    Cells(y + 6, x) = objEvent.User
    'Message d'erreur
    Cells(y + 7, x) = objEvent.Message
    
    x = x + 1
       
Next

Merci,
 

tora

XLDnaute Occasionnel
Re : Calculé dans un chiffrier et retourner les informations dans un autre

Slt,

Je ne m'y connais pas trop dans ce type de souci mais
pour inscrire correctement des informations je te recommande
des instructions type With/End With dans ce style :

Code:
[COLOR="blue"]With Sheets("Feuil2")
    .Cells(x, y) = calcul
    .Cells(x, y) = calcul
    .Cells(x, y) = calcul
    .Cells(x, y) = calcul
    .........
    .......
    .....
    ...
End With[/COLOR]

si plusieurs classeur modifier la ligne 1 :

[COLOR="Blue"]Workbooks("ChifrierA").Sheets("Feuil2")[/COLOR]

Bon courage:)