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 :
 
 
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" ))

Je pense que c'est le fait que Excel.Application.WorksheetFunction.CountA(xlSheet.Range("W:W" ))
Selectionne 65535 lignes...
Essai en modifiant par:
 Excel.Application.WorksheetFunction.CountA(xlSheet.Range("W1:W1000" ))
 
Avec 1000 lignes et tu verras si ça pante ou pas....
 
@+