Bonjour à tous,
J’utilise 2 fichiers :
-Nettoyage_Demande
-Nettoyage_Donnée
Le demandeur saisit des données dans le formulaire du fichier Nettoyage_Demande. J’ai réalisé une macro dont l’objectif est de vérifier si la demande existe déjà dans le fichier Nettoyage_Donnée. J’utilise la macro (Module 1) suivante dans le fichier Nettoyage_Demande :
Test = Evaluate("=sum((TRANCHE=""" & TRA & """)*(LOCAL=""" & LOC & """)*(DATE_REALISE=""""))*1")
TRANCHE, LOCAL sont des champs « texte » nommés et DATE_REALISE est un champ de type « date » dans le fichier Nettoyage_Donnée
TRA et LOC sont des variables de type texte qui recopie les valeurs du fichier Nettoyage_Demande
Dim TRA As String 'Tranche
Dim LOC As String 'Local
Sheets("DEMANDE").Select
TRA = CStr(Range("P4")) 'Tranche
LOC = CStr(Range("P7")) 'Local
Voici le résultat voulu : On recherche s’il existe déjà les valeurs TRA et LOC dans le fichier Nettoyage_Donnée lorsque DATE_REALISE est vide
Le souci est que lorsque on remplit le fichier Demande et que l’on valide la saisie j’ai le message d’incompatibilité de valeur. Visiblement cela viendrait des variables TRANCHE et TRA :
Erreur d’exécution ‘13’ :
Incompatibilité de type
Pour faire un test, il fait décompresser les 2 fichiers dans le meme repertoire.
Les mots de passe sont :
test
essai
Merci d’avance !!!!
Seb
J’utilise 2 fichiers :
-Nettoyage_Demande
-Nettoyage_Donnée
Le demandeur saisit des données dans le formulaire du fichier Nettoyage_Demande. J’ai réalisé une macro dont l’objectif est de vérifier si la demande existe déjà dans le fichier Nettoyage_Donnée. J’utilise la macro (Module 1) suivante dans le fichier Nettoyage_Demande :
Test = Evaluate("=sum((TRANCHE=""" & TRA & """)*(LOCAL=""" & LOC & """)*(DATE_REALISE=""""))*1")
TRANCHE, LOCAL sont des champs « texte » nommés et DATE_REALISE est un champ de type « date » dans le fichier Nettoyage_Donnée
TRA et LOC sont des variables de type texte qui recopie les valeurs du fichier Nettoyage_Demande
Dim TRA As String 'Tranche
Dim LOC As String 'Local
Sheets("DEMANDE").Select
TRA = CStr(Range("P4")) 'Tranche
LOC = CStr(Range("P7")) 'Local
Voici le résultat voulu : On recherche s’il existe déjà les valeurs TRA et LOC dans le fichier Nettoyage_Donnée lorsque DATE_REALISE est vide
Le souci est que lorsque on remplit le fichier Demande et que l’on valide la saisie j’ai le message d’incompatibilité de valeur. Visiblement cela viendrait des variables TRANCHE et TRA :
Erreur d’exécution ‘13’ :
Incompatibilité de type
Pour faire un test, il fait décompresser les 2 fichiers dans le meme repertoire.
Les mots de passe sont :
test
essai
Merci d’avance !!!!
Seb
Dernière édition:
