sahli amdine
XLDnaute Nouveau
salut
le code vba ci-dessous est exécutable sur win 7 et office excel 2007 mais pas sur win 10
'**********************************************
' Affiche plan salle princ_2\scie exp\11.xlsx
'********************************************
Private Sub CommandButton20_Click()
Dim Chemin As String, NomFichier As String
Chemin = "\plan salle princ_2\scie exp\"
fpath = ActiveWorkbook.Path & Chemin
fname = "11.xlsx"
NomFichier = "11.xlsx"
Workbooks.Open Filename:=fpath & fname
End Sub
le code vba ci-dessous est exécutable sur win 7 et office excel 2007 mais pas sur win 10
'**********************************************
' Affiche plan salle princ_2\scie exp\11.xlsx
'********************************************
Private Sub CommandButton20_Click()
Dim Chemin As String, NomFichier As String
Chemin = "\plan salle princ_2\scie exp\"
fpath = ActiveWorkbook.Path & Chemin
fname = "11.xlsx"
NomFichier = "11.xlsx"
Workbooks.Open Filename:=fpath & fname
End Sub