|
|
|
|
Bonjour,
J'ai un gros souci avec mon code. Je ne suis pas très fort en VBA mais je ne vois pas ce qui coince.
J'ai deux donctions, l'une appelant l'autre, et ça coince lors de cet appel.
Dans le code que je voue montre, j'obtient le message "Erreur : type incompatible" et le curseur est placé sur la ligne "If (Horaires...", précisémment sur le mot "heureDebut"
Si je met des parenthèses dans l'appel de la fonction Horaires, le MsgBox de la fonction Horaires affiche les bons résultats, c'est à dire "06:00:00 ; 14:00:00" mais le MsgBox de la fonction CalculPrincipal affiche uniquement "Actif : ; 00:00:00", ce qui n'est pas le bon résultat.
J'ai trouvé d'autres utilisateurs qui avaient eu ce probème mais pas la solution. Merci de m'aider et désolé pour l'absence de balises mais elles ne s'affichent pas sur mon écran, je les rajouterai si je les trouve.
Voici un bout de mon code :
Public Function CalculPrincipal(dateTravail As Date) As Double
Dim heureDebut, heureFin As date
Dim equipe As String
Dim numero As Integer
equipe = "A"
numero = 1
If (Horaires ( dateTravail, equipe, numero, heureDebut, heureFin) = True Then
MsgBox "<CalculPrincipal> : Actif : " & heureDebut & " ; " & heureFin
Else
MsgBox "<CalculPrincipal> : Inactif"
End If
End Function
Public Function Horaires(ByVal dateTravail As Date, _
ByVal equipe As String, ByVal numEquipes As Integer, _
ByRef heureDebut As Date, ByRef heureFin As Date) As Boolean
// je récupère heureDebut et heureFin avec une requete SQL qui fonctionne
MsgBox heureDebut & " ; " & heureFin
End Function
C'est ptêtre paske j'étais pas identifié...
Public Function CalculPrincipal(dateTravail As Date) As Double Dim heureDebut, heureFin As date Dim equipe As String Dim numero As Integer equipe = "A" numero = 1 If (Horaires ( dateTravail, equipe, numero, heureDebut, heureFin) = True Then MsgBox "<CalculPrincipal> : Actif : " & heureDebut & " ; " & heureFin Else MsgBox "<CalculPrincipal> : Inactif" End If End Function En revanche j'ai modifié la deuxième fonction que j'appelle : je change les paramètres, au lieu d'appeller des Date, j'appelle des Variant et ensuite je les cast en Date. Ca me semblait si horrible que même avec l'idée en tête, j'ai failli ne pas la tester... Public Function Horaires(ByVal dateTravail As Date, _ ByVal equipe As String, ByVal numEquipes As Integer, _ ByRef hDebut As Variant, ByRef hFin As Variant) As Boolean Dim heureDebut, heureFin as Date heureDebut = (hDebut) heureFin = (hFin) // je récupère heureDebut et heureFin avec une requete SQL qui fonctionne MsgBox heureDebut & " ; " & heureFin End Function Désormais les deux MsgBox affichent les mêmes valeurs donc ça c'est cool. Je ne met pas le tag résolu encore paskil me semble qu'une solution sans les variant serait mieux et doit être possible. |
En fait j'ai découvert quelque chose :
Public Sub Test1() Dim str1 As String Dim str2 As String Ecrire str1 Ecrire str2 MsgBox str1 & " ; " & str2 End Sub Public Sub Test2() Dim str1, str2 As String Ecrire str1 Ecrire str2 MsgBox str1 & " ; " str2 End Sub Public Sub Ecrire(ByRef str As String) str = "Ca marche" End Sub Alors Test1 va réussir mais pas Test2 (elle ne va pas compiler), simplement parce que j'aurais déclaré str1 et str2 sur la même ligne !! C'est un bug de VBA ? |
1727 l’appel de procédure distante a échoué et ne s’est pas exécuté. Appel de procédure distante (rpc) Appel macro autre formulaire vba access Appel procedure judiciare forum Appel procedure par trigger oracle Appel procedure stockee oracle avec procedure Appel procedure stockée Appel procédure sub vba Coment reparer l appel de procedure distante Declarer type procedure vba Probleme de démarage appel de procédure distante (rpc) avec avast Procedure excel vba boucle for Procédure de sécurité virus outlook 2003 vba Service appel procedure distant Shell appel procedure Vba excel appel fonction kernel32 Vba excel argument ou appel de procédure incorrect Vba tableau byref
