Il faut placer entre guillemets le nom du fichier tel que dans le titre de la fenêtre une fois ouvert
(sans le répertoire le précédant) …
1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("ARTBURET.xls").Close
End Sub
Private Sub Workbook_Open()
With Application
.ScreenUpdating = False
.Workbooks.Open ("F:\Noticeanc\ARTBURET.xls"), , True
Me.Activate
.ScreenUpdating = True
End With
End Sub |
_______________
____________________________________
______________________________
Merci de cliquer sur
pour chaque message ayant aidé puis sur
pour clore cette discussion …
Partager