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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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,
 
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🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour