Pave numerique qui se désative lors d'une utilisation d'une macro

Bonjour,

Quan j'utilise cette macro, j'ai le pave numerique qui passe en mode fleche ( VERR NUM )

La macro sert a recuperer le lien dans le navigateur ouvert ( chrome )

Comment peut on la modifier pour plus avoir ce probleme?

Sub quelle_url()

    Cells(1, 1).Select
    Application.CutCopyMode = False

    Set oShell = CreateObject("wscript.shell")
    For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
        If UCase(Process.Name) = UCase("chrome.exe") Then
            oShell.AppActivate (Process.processID)
            SendKeys "%d"
            SendKeys "^c"
        End If
    Next

    For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
        If UCase(Process.Name) = UCase("excel.exe") Then
            oShell.AppActivate (Process.processID)
            ActiveSheet.Paste
        End If
    Next

End Sub

Bonjour,

Les SendKeys c'est galère !

Essaie de réactiver le VerrNum comme ci joint.

Non testé car je ne peux pas utiliser Chrome.

A+

Bonjour,

J'ai un message d'erreur

ERREUR de compilation

Message d'erreur complet : Le code dans ce projet doit être mis à jour pour être utilisé dans des systèmes 64 bits. ... Vous devez revoir et mettre à jour les instructions Declare, puis les marquer avec l'attribut PtrSafe.

Bonjour Jeromechant, Galopin01,

Juste en dessous de ta ligne de code Sendkeys "^c" ajoute simplement

Sendkeys "{NumLock}"

Cela rétablit ton clavier numérique. Attention c'est entre crochets, pas de parenthèses.

Bons tests, bonne continuation.