Problème brutal avec le copier coller en VB6 !

Signaler
Messages postés
26
Date d'inscription
lundi 3 septembre 2007
Statut
Membre
Dernière intervention
19 mars 2015
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
Bonjour,

Voici mon code ci-dessous qui fonctionnait parfaitement bien jusqu'à présent (depuis 2 ans !!!). Depuis qq jours, le copier/coller ne fonctionne pas systématiquement. Le nom du médicament s'affiche mais pas la posologie ! Pourtant je n'ai rien changé à mon code. Quelqu'un aurait-il une idée ?

Merci d'avancer

[i]Private Sub cmdOKliste_Click()
On Error GoTo blup
NomMedicament = cmbRechercheMedicament.Text 'je recherche le nom du medicament dans une combobox puis je l'enregistrer dans la variable

'je me positionne sur la textbox correspondant à l'ordonnance
txtOrdo.SetFocus
txtOrdo.SelAlignment = rtfLeft
txtOrdo.SelColor = vbBlack
txtOrdo.SelFontName = "Arial Black"
txtOrdo.SelFontSize = 12
Clipboard.Clear
Clipboard.SetText NomMedicament, vbCFText 'enregistre le nom du medicament
SendKeys "^V" 'colle dans l'ordonnance
SendKeys "{ENTER}"

DoEvents
txtOrdo.SelStart = Len(txtOrdo.Text & vbCrLf)
txtOrdo.SelBold = False
txtOrdo.SelColor = vbBlack
txtOrdo.SelFontName = "Arial"
txtOrdo.SelFontSize = 12

txtPosologie.SelStart = 0
txtPosologie.SelLength = Len(txtPosologie.Text)
Clipboard.Clear 'efface
Clipboard.SetText txtPosologie.SelText, vbCFText 'enregistre la posologie du medicament lorsque le medicament est sélectionné
DoEvents
SendKeys "^V" 'coller dans l'ordonnance
SendKeys "{ENTER}"
SendKeys "{ENTER}"
DoEvents

txtOrdo.SelStart = Len(txtOrdo.Text & vbCrLf)

txtPosologie.Text = ""
blnModification = True
cmbRechercheMedicament.SetFocus
Call ajout_dans_listMedoc(frmListeMedocPrescrit.lsvMedocPrescrit)
cmdEnrMedoc.Visible = False
blup:
End Sub/i

1 réponse

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
13
Si l'ordonnance est composée d'objets sur ton formulaire, tu peux écrire directement dans l'objet concerné ... Si ce n'est pas le cas, regarde du côté de SetForegroundWindow pour t'assurer que ton programme collera bien sur la fenêtre que tu veux.

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question