Discussion :

[escalopepane]

Bonjour a tous, J'espere que vous avez passé un bon week end

Je suis bloqué dans mon code, j'essaie de d'ouvrir un fichier excel (j'y arrive) et de mettre ce fichier au premier plan (j'y arrive pas)

mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ouvriref()
    Application.EnableEvents = False
    Dim chemin As String
    chemin = ""
    chemin = "L:\mon_fichier_excel"
    On Error Resume Next
    Workbooks.Open Filename:=chemin & "*.xlsm"
    Workbooks("Copie de Planning nouveauté").Active
End Sub

C'est donc a ligne 8 qui peche.. Savez vous par quoi je peux la remplacer pour mettre mon fichier excel au premier plan?

Merci.

[Daniel.C]

Bonjour,

Remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Copie de Planning nouveauté").Active

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Copie de Planning nouveauté").Activate

[escalopepane]

Super merci