Discussion :

[Falcosama]

Bonjour à tous,
j'ai le problème suivant : j'importe des données à partir d'excel et pour savoir le nombre de champs à importer sous Access, j'utilise la worksheetfunction.counta de la library Excel. Le programme plante de temps en temps (mais pas toujours) sur cette ligne (nb_lignes = ...) et me dit que le serveur distant n'existe pas ou n'est pas disponible...

Quelqu'un a déjà eu le problème?

Merci d'avance

Voici le début de mon code :

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
Sub execution()
 
Dim objXL As Excel.Application
Dim wbexcel As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim requete, requete1, requete2, requete3 As String
Dim adresse, datum As String
Dim nb_lignes As Integer
Dim vari As Date
 
datum = Form_Importation.Texte0.Value & Form_Importation.Texte5.Value & Form_Importation.Texte7.Value
adresse = "D:\Daily_Monitor\DailyMonitor" + datum + ".xls"
 
Set objXL = CreateObject("excel.application")
Set wbexcel = objXL.Workbooks.Open(adresse)
Set xlSheet = wbexcel.Worksheets("Controls")
 
DoEvents
 
nb_lignes = Excel.Application.WorksheetFunction.CountA(xlSheet.Range("W:W"))

[Didier L]

Oui
dernièrement j'ai eu un problème similaire sur le calcul d'un nombre de ligne.
Pour ma part, tout comme toi j'avais déclaré ma variable ainsi:

Code :

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

1
2
 
Dim nb_lignes As Integer

Et cela fonctionnais très bien jusqu'au jour ou ... Plantage.

Et pourquoi? tout simplement car j'avais dépassé les 32767 lignes.
Ne serait ce pas là ton problème?

Si oui, fait comme moi déclare ta variable en long car dans excel on peut avoir jusqu'a 65536 lignes

32767 étant la limite pour un integer!

[Falcosama]

C'est bon, le pb est résolu. Ici c'était pas un pb de capacité mais à la fin j'avais oublié set xlsheet = nothing donc l'espace mémoire n'était pas libéré et ça causait un pb de serveur distant avec Excel quand je lançait l'application plus d'une fois...

Bonne journée