Bonjour à toutes et à tous
j'èspère que les vaçances se passent bien pour tous le monde( pour les chanceux qui en prennent)
une fois de plus je bloque sur mon appli
je ne vois pas pourquoi mon fichier excel ne s'ouvre pas (ou n'est pas visible)à la fin de l'importation du fichier txt si quelqu'un ou quelqu'une pouvait m'aider cela m'arrangerrai beaucoup en vous remerciant d'avance . et bonne vaçances encore
voici une portion de mon code
'Déclaration des variables excel
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
----------------------------------------------------------------------
fichierOpen = sPath & "\" & sFile
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Workbooks.OpenText FileName:=fichierOpen, Origin:=xlWindows, _
StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(1, 1)
Set wbExcel = appExcel.ActiveWorkbook
'Set wsExcel = wbExcel.ActiveSheet
'wbExcel.ActiveSheet
wbExcel.ActiveSheet.Visible = True
autre chose qand je clique dessus une seconde fois , j'ai le msg qui me demande "le fichier X est deja utilisé par un autre utilisateur voulez vous l'ouvrir en lecture seul ?"
merci encore de votre aide