' Chargement de la feuille Excel Dim Classeur As Excel.Workbook Dim Feuille As Excel.Worksheet Appli.Visible = False ' Application invisible Appli.DisplayAlerts = False ' Inactivation des alertes ' Ouverture du classeur Try Appli.Workbooks.Open(FichExcel) Catch ex As Exception MsgBox("***** IMPOSSIBLE D'OUVRIR LE FICHIER EXCEL *****") End Try ' Initialisation Classeur et Feuille Excel Classeur = CType(Appli.Workbooks(1), Excel.Workbook) Feuille = CType(Classeur.Worksheets(1), Excel.Worksheet) ' Pied de page gauche - Emplacement et nom du fichier Feuille.PageSetup.LeftFooter = "D:\Doc\&F" ' Pied de page droit - Page X sur Total Feuille.PageSetup.RightFooter = "Page &P / &N"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question