Discussion :

[meumeu73.1]

Bonjour,

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

Code :

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

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.

[Supermichou]

Bonjour,

le fichier est pas déjà ouvert ?

[meumeu73.1]

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.

[CristofMartins]

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

[meumeu73.1]

Résolu,

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

[CristofMartins]

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