Pb sur les fichier, svp un p'ti coup de main!

mell01 Messages postés 72 Date d'inscription lundi 6 juin 2005 Statut Membre Dernière intervention 15 mai 2006 - 12 juil. 2005 à 15:08
cs_Yoyo2B Messages postés 125 Date d'inscription jeudi 27 février 2003 Statut Membre Derniè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

1 réponse

cs_Yoyo2B Messages postés 125 Date d'inscription jeudi 27 février 2003 Statut Membre Derniè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

non ??

happy coding ...
0