Ajout d'une contrainte dans un programme
Résolu/Fermé
sufyan77
Messages postés
10
Date d'inscription
vendredi 31 janvier 2020
Statut
Membre
Dernière intervention
24 février 2020
-
Modifié le 31 janv. 2020 à 14:00
sufyan77 Messages postés 10 Date d'inscription vendredi 31 janvier 2020 Statut Membre Dernière intervention 24 février 2020 - 24 févr. 2020 à 22:21
sufyan77 Messages postés 10 Date d'inscription vendredi 31 janvier 2020 Statut Membre Dernière intervention 24 février 2020 - 24 févr. 2020 à 22:21
A voir également:
- Ajout d'une contrainte dans un programme
- Programme demarrage windows 10 - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
- Ajouter un programme au demarrage windows 10 - Guide
- Mettre en veille un programme - Guide
- Forcer la fermeture d'un programme - Guide
3 réponses
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
Ambassadeur
1 568
31 janv. 2020 à 13:50
31 janv. 2020 à 13:50
bonjour, tu n'expliques pas où se trouve AED sur la ligne.
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
Ambassadeur
1 568
31 janv. 2020 à 14:14
31 janv. 2020 à 14:14
je suggère d'essayer ceci, en remplaçant les points d'interrogation en ligne 15 par les numéros de ligne et de colonne où se trouve le champ qui devrait contenir AED. ceci va juste afficher les trois premiers caractères de ce champ, pour vérifier si on les a bien trouvé. si cela marche, il faudra ensuite adapter la logique de la macro pour tester la devise.
Dim nu_doss_titre As String, devise as String ' Open "U:\dddd.txt" For Input As #1 Do While Not EOF(1) Input #1, nu_doss_titre With Session .WaitForEvent rcEnterPos, "30", "0", 5, 53 .TransmitANSI nu_doss_titre .TransmitTerminalKey rcIBMEnterKey .WaitForEvent rcKbdEnabled, "30", "0", 1, 1 .WaitForEvent rcEnterPos, "30", "0", 5, 41 .TransmitTerminalKey rcIBMTabKey .TransmitTerminalKey rcIBMTabKey .TransmitTerminalKey rcIBMTabKey devis = .GetFieldText(?,?,3) MsgBox devise ,,"est-ce AED?" .TransmitANSI "d" .TransmitTerminalKey rcIBMEnterKey .WaitForEvent rcKbdEnabled, "30", "0", 1, 1 .WaitForEvent rcEnterPos, "30", "0", 5, 41 .TransmitTerminalKey rcIBMPf14Key
sufyan77
Messages postés
10
Date d'inscription
vendredi 31 janvier 2020
Statut
Membre
Dernière intervention
24 février 2020
31 janv. 2020 à 16:08
31 janv. 2020 à 16:08
au fait AED est deja dans la programmation, le "transmit ansi "d" " est la ligne ou se situe l AED et le "d" est la donnée fixe pour lui dire de supprimer, donc mon soucy est de lui dire si ce n'est pas AED (par exemple) EUR ou USD, il ne doit pas le supprimer
merci de ton retour !
merci de ton retour !
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
>
sufyan77
Messages postés
10
Date d'inscription
vendredi 31 janvier 2020
Statut
Membre
Dernière intervention
24 février 2020
31 janv. 2020 à 16:58
31 janv. 2020 à 16:58
as-tu testé ma suggestion?
sufyan77
Messages postés
10
Date d'inscription
vendredi 31 janvier 2020
Statut
Membre
Dernière intervention
24 février 2020
>
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
14 févr. 2020 à 15:42
14 févr. 2020 à 15:42
Hello
Désolé du retour tardive, oui grand merci, cela marche mais juste que j'ai enlevé la boite msg car elle validait quand meme apres le OK et jai rajouté un "then" pour lui dire si elle quitte ou non le process si c'est la devise AED ou non..
merci en tout cas !!
Désolé du retour tardive, oui grand merci, cela marche mais juste que j'ai enlevé la boite msg car elle validait quand meme apres le OK et jai rajouté un "then" pour lui dire si elle quitte ou non le process si c'est la devise AED ou non..
merci en tout cas !!
yg_be
Messages postés
23476
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2025
1 568
>
sufyan77
Messages postés
10
Date d'inscription
vendredi 31 janvier 2020
Statut
Membre
Dernière intervention
24 février 2020
14 févr. 2020 à 18:16
14 févr. 2020 à 18:16
parfait! peux-tu alors marquer la discussion comme résolue?
sufyan77
Messages postés
10
Date d'inscription
vendredi 31 janvier 2020
Statut
Membre
Dernière intervention
24 février 2020
24 févr. 2020 à 22:21
24 févr. 2020 à 22:21
Merci a toi !