Discussion :

[darkspoilt]

Bonjour,
j'ai créer un code provisoire afin de tester ma fonction sur click lors d'un formulaire

et il a une erreur lorsque je click sur le bouton il m'écrit

"L"expression sur clic entrée comme paramètre de la propriété de type évènement est a l'origine d'une erreur Type défini par l'utilisateur non défini.
Le résultat de l'expression n'est pas le nom d'une macro, le nom d'une fonction définie par l'utilisateur ou [Event procédure]

Une erreur a peut être été commise lors de l'évalutation d'une fonction , d'un évène ment ou d'une macro"

mon bouton est configuré sur procédure évènementiel
Si quelqu'un voit l'erreur je le remercie d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Commande0_Click()
    Dim l As Integer
    l = Ligne()
    DoCmd.TransferSpreadsheet acImport, , CA, "D:\Test\Essai.xls", 0, "K" & i
 
End Sub
 
Public Function Ligne() As interger
 
 
Public AppExcel             As Excel.Application
Private wbFile               As Excel.Workbook
Public i As Integer
 
Set AppExcel = CreateObject("Excel.Application")  ' Ouverture d'excel
If Not AppExcel Is Nothing Then
        Set wbFile = AppExcel.Workbooks.Open("D:\Test\Essai.xls", False, True) 'Ouverture du classeur
        If Not wbFile Is Nothing Then
 
            Do While Cells(i, 1).Text <> "TOTAL"
            i = i + 1
            Loop
 
             wbFile.Close
             AppExcel.Application.Quit
             Set AppExcel = Nothing
        End If
End If
End Function

[darkspoilt]

J'ai résolu mon souci j'ai un probleme de syntaxe maintenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 DoCmd.TransferSpreadsheet acImport, , "CA", Chiffre, 0, "K" & i

i est une varable de type Integer

[mout1234]

Si j'ai bon flair...

i est une varable de type Integer

non, i est un variant qui vaut null car ....

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Dim l As Integer
    l = Ligne()

Ta variable s'appelle l (L) et non i



Si j'ai bien mis le doigt sur ton erreur, j'en conclus qu'il serait bon que tu suives les recommendations d'usage en terme de déclaration des variables:

• Rends la déclaration de tes variables obligatoire (Option Explicit en début du module)
• Evites les noms de variables peu explicites.