elbrahimo
Messages postés25Date d'inscriptionjeudi 25 décembre 2003StatutMembreDernière intervention25 novembre 2004
-
12 nov. 2004 à 22:41
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
13 nov. 2004 à 13:53
salut
je n'arrive pas à trouver d'où vient mon probleme, j'importe un fichier texte vers excel, cela marche bien qu'une fois, mais à la deuxieme fois ça plante qui peut m'aider ??
voilà mon code :
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
elbrahimo
Messages postés25Date d'inscriptionjeudi 25 décembre 2003StatutMembreDernière intervention25 novembre 2004 13 nov. 2004 à 07:42
c'est un code depuis vb6
c'est une procédure lancée depuis un bouton
si je clique une fois sur le bouton la procédure se déroule normalement
si je clique une deuxieme fois j'ai le message:
"variable objet ou variable bloc whith non défini"
et en faisant ok sur le message d'erreur je suis envoyé à la ligne :
Set wsExcel = wbExcel.ActiveSheet
voilà je reste dispo pour vos questions, et merci d'avance pour votre aide précieuse @+
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 13 nov. 2004 à 13:53
Esayes de tester si excel est ouvert si c'est le cas tu peux avoir un message d'erreur
' on teste si excel est ouvert
Set appexcel = GetObject(, "Excel.application")
If Err.Number <> 0 Then
Set appExcel = CreateObject("Excel.Application")
Err.Number = 0
Else
End If