[VB / Access / Excel] Problème de classeur
aureliesi
Messages postés
6
Statut
Membre
-
aureliesi -
aureliesi -
Bonjour,
Je fais un programme Access qui doit importer un fichier Excel. Le problème est qu'il ne trouve pas le classeur de macros personnelles.
Voici le code, ça sera plus simple que d'expliquer :
Le message d'erreur est : "PERSO.XLS" introuvable.
Si quelqu'un pouvait m'aider, merci d'avance.
Je fais un programme Access qui doit importer un fichier Excel. Le problème est qu'il ne trouve pas le classeur de macros personnelles.
Voici le code, ça sera plus simple que d'expliquer :
Function TRANSFERT()
On Error GoTo TRANSFERT_Err ' Valide la routine de gestion d'erreur
' Execute la macro dans un fichier qui est sélectionné par l'utilisateur (Me.tb_chemin)
Dim MonObjet As Object
Set MonObjet = GetObject("", "Excel.Sheet")
MonObjet.Application.Visible = False
MonObjet.Application.Workbooks.Open (Me.tb_chemin)
MonObjet.Application.Run "PERSO.XLS!Macro3"
MonObjet.Application.Visible = True
Set MonObjet = Nothing
' Transfert d'une feuille de calcul
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Cotations", Me.tb_chemin, True
TRANSFERT = True
TRANSFERT_Exit:
Exit Function ' Sort de la fonction
' S'il y a une erreur, un messagebox s'affiche
TRANSFERT_Err:
MsgBox Error$, vbCritical
Resume TRANSFERT_Exit ' Lien vers TRANSFERT_Exit
TRANSFERT = False
End Function
Le message d'erreur est : "PERSO.XLS" introuvable.
Si quelqu'un pouvait m'aider, merci d'avance.
Configuration: Windows 2000 Internet Explorer 6.0
