Bonjour,
Avec VB6, j’ai un problème pour ouvrir Excel.
Set XLApp = New Excel.Application
Set XLBook = XLApp.Workbooks.Open(Path & " Excel.xlsm")
Le fichier Excel.xlsm est bien dans le même dossier que MonVB6..vbp
Mais j’ai l’erreur qu’il est introuvable.
Quand je définie l’endroit comme ceci :
Set XLBook = XLApp.Workbooks.Open("C:\ \Dossier\Excel.xlsm")
Ça fonctionne.
Je l’ai déjà fait et ça fonctionnait. Pourquoi ça ne fonctionne plus?
Set XLBook = XLApp.Workbooks.Open(Path & " Excel.xlsm")
il y a un espace devant Excel.xlsm qui ne devrait pas y être.
Mais si tu as tapé le code, c'est peut-être une erreur de frappe dans le message, dans ce cas si tu avait utilisé la coloration syntaxique et prévisualisé le message, tu l'aurais peut-être vu et corrigé.
D'autre part, est ce que Path finit par \, par ce que si ça n'est pas le cas alors ta construction est
"C:\DossierExcel.xlsm"
qui n'est forcément pas bon.
Mets un point d'arrêt, pour vérifier le contenu de Path
Bonjour,
Merci pour votre aide.
C’est une erreur de frappe dans le message,
J’ai essayé avec \ sans succès: Set XLBook = XLApp.Workbooks.Open(Path & " \Excel.xlsm")
J’ai mis un point d’arrêt juste avant : Set XLBook = XLApp.Workbooks.Open(Path & "Excel.xlsm")
Je mets mon curseur sur Path et je vois que Path = Empty
Pourtant xxx.vbp et xxx.xlsm sont dans le même dossier.
Je crois bien que c’est là mon problème mais pourquoi?
Encore une fois MERCI!
