Utilisation d'une variable définie par un message box

Bonjour

Tout d'abord un immense merci à tous ceux qui prendront le temps de lire cette demande et encore plus à ceux qui auront la solution.

Pour me présenter, je m'appelle Sonia et je débute totalement dans la création de macro.J'utilise ces macro tant sur excel que dans le cadre d'un logiciel privé qui utilise le VBA en langage de script ( je sais pas si j'ai le droit d'en donner le nom)

Mon problème actuel est sur une rédaction en VBA pour ce logiciel

Voici la portion de script qui ne marche pas

Function DirectExtraction
Dim Valeur As Integer
Valeur= InputBox ("Age supérieur A")
Set db = Client.OpenDatabase("essai.IMD")
Set task = db.Extraction
task.IncludeAllFields
dbName = "essai3.IMD"
task.AddExtraction dbName, "", "AGE_DE_LA_RELANCE > Valeur"
task.CreateVirtualDatabase = False
task.PerformTask 1, db.Count
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)

Ce que je cherche à faire

La fonction d'origine est écrite ainsi

task.AddExtraction dbName, "", "AGE_DE_LA_RELANCE > 60"

Je voudrais pouvoir remplacer 60 par une valeur modifiable. Cette valeur serait indiquée par l'utilisateur dans une message box et importer dans la fonction.

En effet, cette valeur n'est pas toujours identique

Mais le code que j'ai ecris ne fonctionne pas.

Avec tous mes remerciements

Bonsoir,

peut-être en isolant la variable?

task.AddExtraction dbName, "", "AGE_DE_LA_RELANCE >" & Valeur

Peut-être?

Merci beaucoup

Cela a resolu le problème, je vais pouvoir avancer sur le reste.

Merci encore

Bonsoir,

Une méthode toute simple, pour savoir si ta variable est bien prise en compte

Si, comme tu as bien raison de le faire, tu déclares tes variables

Nommes tes variables avec la première lettre en majuscule, et le reste en minuscule

et lorsque tu inscrits ta variable dans une ligne de code, mets tout en minuscule

si ta variable est reconnue (i.e., elle se met automatiquement en Nom propre), c'est bon

Bonne continuation

Bonsoir

J'ai appliqué le précédent code sur une variable Date, mais j'ai du mal rédigé, ca ne fonctionne pas. Il s'agit d'une date sans notion d'heure.

' Données : Extraction directe
Function DirectExtraction
Dim ANVDate As Date
ANVDate= InputBox("Reintégrer les ANV postérieures à cette date; Format AAAA/MM/JJ")
Set db = Client.OpenDatabase("ANV hors effacement RAR.IMD")
Set task = db.Extraction
task.IncludeAllFields
dbName = "liste ANV réintégrées.IMD"
task.AddExtraction dbName, "", "DATE_COMPTABLE >=" & ANVDate
task.CreateVirtualDatabase = False
task.AddExtraction "liste ANV non réintégrées.IMD", "", "DATE_COMPTABLE <" & ANVDate
task.PerformTask 1, db.Count
Set task = Nothing
Set db = Nothing
Client.OpenDatabase (dbName)
End Function

Dans la rédaction initiale il est écrit "DATE_COMPTABLE < "20180101"

Merci vraiment

Sonia