Discussion :

[zoumzoum59]

Bonjour a tous

Dans un code VBA qui fonctionnait sous windows XP je chargeais le presse papier avec le code suivant, depuis que je l'utilise sous windows 8.1 ça bug, le contenu du presse papier ne correspond pas aux données de ma variable.
Je me retrouve avec deux carré comme on peut les trouver dans les codes ascii, mais ça m'est arrivé de voir également deux points d'interrogation, genre: ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim LongPx, LargPx As integer
    Dim MyData As New DataObject
 
 
    MyData.SetText LongPx
    MyData.PutInClipboard
    WshShell.SendKeys "^v", True

Est ce que quelqu'un aurait une idée pour resoudre ce probleme?
Merci d'avance

[Qwazerty]

Salut

Windows 8 n'accepte plus les Sendkey il me semble. [Edit] Il semble que j'ai dis une bêtise, je ne retrouve pas d'info allant dans ce sens[/Edit]
Où sont collées tes données?
Si elles sont collées dans une feuille Excel, tu peux utiliser directement la procédure Past de l'objet WorkSheet.


Rien à voir avec ton problème mais attention à tes déclarations de variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim LongPx, LargPx As integer
 
'ici Excel comprend
 
Dim LongPx as Variant, LargPx As integer
 
'il faut répéter le type pour chaque variables
 
Dim LongPx as integer, LargPx As integer

++
Qwaz

[zoumzoum59]

Bonjour et merci Qwazerty de t'interresser a mon probleme.

C'est vrai que j'avais vu que cette façon de declarer les variables n'etait pas la meilleur, et expliqué comme tu l'a fait me le montre bien, merci pour l'info.

Parcontre, pour mon sendkey, je colle dans un text box d'un autre logiciel que excell c'est pour cela que j'utilise le sendkey.
la porcedure complete qui fonctionne jusqu'au collé par "controle + V" est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Set WshShell = CreateObject("WScript.Shell")
 
 
   WshShell.SendKeys "%f", True
   WshShell.SendKeys "i", True
    Sleep 10
    'WshShell.SendKeys "{tab 2}", True
    WshShell.SendKeys " ", True
    WshShell.SendKeys "{tab 3}", True
    WshShell.SendKeys "~", True
    Sleep 600
    WshShell.SendKeys NomFichier, True
    WshShell.SendKeys "~", True
    Sleep 10
    WshShell.SendKeys "{tab 3}", True
    WshShell.SendKeys "~", True
 
 
    If LongPx = 0 Then
        Exit Sub
    End If
    Sleep 10
    MyData.SetText LongPx
    MyData.PutInClipboard
    WshShell.SendKeys "^v", True
 
 
    WshShell.SendKeys "{tab}", True
    Sleep 10
    MyData.SetText LargPx
    MyData.PutInClipboard
    WshShell.SendKeys "^v", True

Tout fonctionne jusqu'a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WshShell.SendKeys "^v", True

[Docmarti]

Est-ce que ca fonctionne en supprimant les alertes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

[zoumzoum59]

Bonjour Docmarti

Non ça ne fonctionne pas mieux, toujours pareil.

[zoumzoum59]

Juste pour amener une solution ' et de plus toute bete a mon probleme, que je viens de trouver 7 mois plus tard.

Au lieu de passer par un copier coller, il y avait juste a déclarer le sendkeys avec la variable et la plus de probleme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Set WshShell = CreateObject("WScript.Shell")
 
 
   WshShell.SendKeys "%f", True
   WshShell.SendKeys "i", True
    Sleep 10
    'WshShell.SendKeys "{tab 2}", True
    WshShell.SendKeys " ", True
    WshShell.SendKeys "{tab 3}", True
    WshShell.SendKeys "~", True
    Sleep 600
    WshShell.SendKeys NomFichier, True
    WshShell.SendKeys "~", True
    Sleep 10
    WshShell.SendKeys "{tab 3}", True
    WshShell.SendKeys "~", True
 
 
    If LongPx = 0 Then
        Exit Sub
    End If
    Sleep 10
    'MyData.SetText LongPx
    'MyData.PutInClipboard
    WshShell.SendKeys (LongPx), True
 
 
    WshShell.SendKeys "{tab}", True
    Sleep 10
    'MyData.SetText LargPx
    'MyData.PutInClipboard
    WshShell.SendKeys (LargPx), True