VBA ACCESS ouverture d'un fichier excel
AS
-
AS -
AS -
Bonjour,
Je souhaite à l'aide du code présenté dans la réponse précédente et qui fonctionne, intégrer à la place d'un chemin fichier xls à ouvrir, une variable.
Private Sub FS_Click()
Dim FS As String
FS = Me.Lien_FS.Value
FS2 = Replace(FS, "#", "")
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open Filename:="FS2"
xls.Visible = True
Exit Sub
errHnd:
End Sub
Dans l'attente de votre réponse.
merci beaucoup
Je souhaite à l'aide du code présenté dans la réponse précédente et qui fonctionne, intégrer à la place d'un chemin fichier xls à ouvrir, une variable.
Private Sub FS_Click()
Dim FS As String
FS = Me.Lien_FS.Value
FS2 = Replace(FS, "#", "")
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open Filename:="FS2"
xls.Visible = True
Exit Sub
errHnd:
End Sub
Dans l'attente de votre réponse.
merci beaucoup
