Bonjour j'ai un bout de programme pour ouvrir 1 fichier excel.
Private Sub ouvrirbase_Click()
Dim Base As As Object
URL = "C:\accueilnico\PARC INFO TMI\Materiel-Production.xls"
'Créer l'appli excel
Set Base = CreateObject("Excel.Application")
'Afficher l'appli excel
Base.Visible = True
'Ouvrir le fichier excel
Base.Workbooks.Open FileName:=URL
'Activer la feuille
Base.Workbooks(1).Worksheets(Feuil1).Activate
End Sub
a l'execution ya une erreur "indice en dehors de la plage" je trouve pas le probleme merci de m'aiguiller.