Problème Ouverture de fichier Excel

Bonjour,

j'ai une problème lorsque je veux ouvrir un excel à partir d'un macro, mon script est le suivant :

Code:

---

1 2 3 4 5 6 7 8

ChDir "D:\MonDossier\" 'Specifier le dossier ici monfichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") If monfichier <> False Then Workbooks.Open Filename:=monfichier Else Exit Sub End If

---

ouverture de la boite de dialogue se passe bien, mais lorsque j'arrive sur le IF, j'ai le message suivant :

'erreur d'execution 13
incompatibilité de type'

merci pour votre aide.

Bonjour,

le fichier est pas déjà ouvert ?

non, a la base le fichier que je sélectionne n'est pas ouvert.

disons que sur mon poste, cela fonctionne très bien, par contre sur le poste d'un collège, j'ai cette erreur.

pourtant nous avons EXCEL 2007 et les même références.

Salut
Ta essayé de mettre le chemin complet de ton fichier ?
Exemple : nomfichier : "C:\MesDocuments\MonDossier\Fichier.xl"

Résolu,

j'ai enlevé la condition IF, car le contrôle n'est pas nécessaire puisque je sélectionne un fichier.

J'avoue que j'y avait même pas pensé.