OVH Cloud OVH Cloud

coller le presse-papier ds un fichier txt s/xp

4 réponses
Avatar
Joel Delaporte
Enoncé du problème :
il s'agit de récupérer le presse-papier et de le coller dans un fichier
c:\Client\Balance.txt (ce fichier étant ensuite importé dans une table
d'Access).
Code :
Private Sub EtiOui_Click()

On Error Resume Next
Call Shell("%SYSTEMROOT%\SYSTEM32\NOTEPAD.EXE c:\Client\Balance.txt", 1)
On Error Resume Next
Call Shell("C:\WINDOWS\NOTEPAD.EXE c:\Client\Balance.txt", 1)
SendKeys "^+{END}", True
SendKeys "{DEL}", True
SendKeys "^v", True
SendKeys "%F", True
SendKeys "E", True
SendKeys "%F", True
SendKeys "Q", True
Que se passe-t-il ?
- sous Win 95 et 98 ça fonctionne parfaitement
- sous Win XP apparition du message d'erreur suivant :
"Votre base de donnée ou projet "Dossier annuel" contient une référence
incomplète ou rompue au fichier 'TXTVIEW.OCX' version 1.0
* Pour le fonctionnement correct de votre base de données ou projet, vous
devez rectifier cette référence. "
et le fichier Balance.txt ne contient que 2 lettres : "E" et "Q"
merci de votre aide

4 réponses

Avatar
Raymond [mvp]
Bonjour.

si tu colles le presse-papier dans un fichier texte pour l'importer dans
access, le problème n'est pas sous access. Demande dans le forum du logiciel
sous lequel tu copies/colles dans le press-papier

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Joel Delaporte" <Joel a écrit dans le
message de news:
Enoncé du problème :
il s'agit de récupérer le presse-papier et de le coller dans un fichier
c:ClientBalance.txt (ce fichier étant ensuite importé dans une table
d'Access).
Code :
Private Sub EtiOui_Click()

On Error Resume Next
Call Shell("%SYSTEMROOT%SYSTEM32NOTEPAD.EXE c:ClientBalance.txt",
1)
On Error Resume Next
Call Shell("C:WINDOWSNOTEPAD.EXE c:ClientBalance.txt", 1)
SendKeys "^+{END}", True
SendKeys "{DEL}", True
SendKeys "^v", True
SendKeys "%F", True
SendKeys "E", True
SendKeys "%F", True
SendKeys "Q", True
Que se passe-t-il ?
- sous Win 95 et 98 ça fonctionne parfaitement
- sous Win XP apparition du message d'erreur suivant :
"Votre base de donnée ou projet "Dossier annuel" contient une référence
incomplète ou rompue au fichier 'TXTVIEW.OCX' version 1.0
* Pour le fonctionnement correct de votre base de données ou projet, vous
devez rectifier cette référence. "
et le fichier Balance.txt ne contient que 2 lettres : "E" et "Q"
merci de votre aide


Avatar
Joel Delaporte
Merci de ton aide Raymond mais je suis obligé d'aller récupérer le
presse-papier. C'est la seule passerelle avec l'autre application. Ma
procédure fonctionne bien sous win 95 et 98. La question est que signifie ce
message sous XP?
bien cordialement
Joël


Bonjour.

si tu colles le presse-papier dans un fichier texte pour l'importer dans
access, le problème n'est pas sous access. Demande dans le forum du logiciel
sous lequel tu copies/colles dans le press-papier

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Joel Delaporte" <Joel a écrit dans le
message de news:
Enoncé du problème :
il s'agit de récupérer le presse-papier et de le coller dans un fichier
c:ClientBalance.txt (ce fichier étant ensuite importé dans une table
d'Access).
Code :
Private Sub EtiOui_Click()

On Error Resume Next
Call Shell("%SYSTEMROOT%SYSTEM32NOTEPAD.EXE c:ClientBalance.txt",
1)
On Error Resume Next
Call Shell("C:WINDOWSNOTEPAD.EXE c:ClientBalance.txt", 1)
SendKeys "^+{END}", True
SendKeys "{DEL}", True
SendKeys "^v", True
SendKeys "%F", True
SendKeys "E", True
SendKeys "%F", True
SendKeys "Q", True
Que se passe-t-il ?
- sous Win 95 et 98 ça fonctionne parfaitement
- sous Win XP apparition du message d'erreur suivant :
"Votre base de donnée ou projet "Dossier annuel" contient une référence
incomplète ou rompue au fichier 'TXTVIEW.OCX' version 1.0
* Pour le fonctionnement correct de votre base de données ou projet, vous
devez rectifier cette référence. "
et le fichier Balance.txt ne contient que 2 lettres : "E" et "Q"
merci de votre aide







Avatar
Raymond [mvp]
as-tu vérifié en pas à pas que ça fonctionnait ? surtout le Ctrl+V.
le notepad.exe est toujour sur le c:windows

la procédure exacte est celle-ci:
Shell "C:WINDOWSNOTEPAD.EXE" & " Balance.txt", 1
SendKeys "^{HOME}", True
SendKeys "^+{END}", True
SendKeys "{DEL}", True
SendKeys "^v", True
SendKeys "%F", True
SendKeys "E", True
SendKeys "%F", True
SendKeys "Q", True

j'ai testé, sur windows xp et access 2003 ça marche.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Joel Delaporte" a écrit dans le
message de news:
Merci de ton aide Raymond mais je suis obligé d'aller récupérer le
presse-papier. C'est la seule passerelle avec l'autre application. Ma
procédure fonctionne bien sous win 95 et 98. La question est que signifie
ce
message sous XP?
bien cordialement
Joël



Avatar
Joel Delaporte
merci de ta réponse Raymond. Comme j'ai toujours la même erreur, je pense
qu'il s'agit d'un problème machine. Je vais donc faire un test sur une autre
machine avec XP.
Bien cordialement


as-tu vérifié en pas à pas que ça fonctionnait ? surtout le Ctrl+V.
le notepad.exe est toujour sur le c:windows

la procédure exacte est celle-ci:
Shell "C:WINDOWSNOTEPAD.EXE" & " Balance.txt", 1
SendKeys "^{HOME}", True
SendKeys "^+{END}", True
SendKeys "{DEL}", True
SendKeys "^v", True
SendKeys "%F", True
SendKeys "E", True
SendKeys "%F", True
SendKeys "Q", True

j'ai testé, sur windows xp et access 2003 ça marche.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Joel Delaporte" a écrit dans le
message de news:
Merci de ton aide Raymond mais je suis obligé d'aller récupérer le
presse-papier. C'est la seule passerelle avec l'autre application. Ma
procédure fonctionne bien sous win 95 et 98. La question est que signifie
ce
message sous XP?
bien cordialement
Joël