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