[Toutes versions] Pb ouverture fichier excel [Résolu]

[Aladin_23]

Bonjour le forum
J' au un souci avec un code que je suis en train de faire pour ouvrir un fichier excl qui se trouve dans le réperoire courant de la base
"\Répertoirecourant\MEO-calendrier\fichiex excel"
Lors du lancement du code, Excel s' ouvre, mais pas mon fichier
Voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
Dim xlApp As Object
     Set xlApp = CreateObject("Excel.Application")
     Dim chemin As String
     chemin = CurrentProject.Path & "\MEO-Calendrier\Calendrier.xls"
     If Not FichierEstOuvert(chemin) Then
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open (chemin)
     End If
     xlApp.visible = True
    xlApp.Worksheets(2).Activate

Merci d' avance pour toute aide
Aladin

[helas]

Bonjour,
et comme cela

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Dim xlApp As Object, xlw As Workbook
Dim chemin As String
 
     Set xlApp = CreateObject("Excel.Application")
     xlApp.visible = True
 
     chemin = CurrentProject.Path & "\MEO-Calendrier\Calendrier.xls"
     If Not FichierEstOuvert(chemin) Then Workbooks.Open (chemin)
     Set xlw = Activeworkbook     
     xlw.Sheets(2).Activate

[Aladin_23]

Bonjour helas et le forum
J' ai fait un test avace ton code et cela fonctionne, le tien étant plus optilmisé
je l' ai mis en pretique.
Merci pour ton aide
Aladin