mell01
Messages postés72Date d'inscriptionlundi 6 juin 2005StatutMembreDernière intervention15 mai 2006
-
12 juil. 2005 à 15:08
cs_Yoyo2B
Messages postés125Date d'inscriptionjeudi 27 février 2003StatutMembreDernière intervention 6 mars 2008
-
12 juil. 2005 à 16:18
bonjour,
j'ai un tit pb:
à partir de mon application les utilisateur peuvent ouvrir excel ou word en chargeant un fichier, mais au moment du choix dans excel (ou word) d'ouvrir le fichier en lecture seule ou non, ils peuvent quitter l'application sans ouvrir le dossier et à ce moment j 'ai un message d'erreur sur ma commande d'ouverture: "la methode open de la classe workbooks à échouer"
voici mon code :
If ext = "xls" Then
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(fichier) = False Then
MsgBox "Ce fichier n'existe pas"
Exit Sub
End If
Set xls = CreateObject("Excel.application")
xls.DisplayAlerts = False
xls.Visible = True
xls.Workbooks.Open (fichier)
With xls
MsgBox .Range("A1").Value
End With
xls.quit
Set xls = Nothing
End If
si qql saurait m'aider ce serait avec bcp de gratitude....
bref au s'cour!!!
merci d'avance
cs_Yoyo2B
Messages postés125Date d'inscriptionjeudi 27 février 2003StatutMembreDernière intervention 6 mars 2008 12 juil. 2005 à 16:18
on error goto Err_OpenExcel au debut
et aprés
Err_OpenExcel :
if err.number = "ton erreur générée par l'annulation" then
msgbox "On t'as dit de l'ouvrir ce classeur !!"
else
msgbox "Erreur : " & err.number & vbcrlf & err.description
end if