Discussion :

[louisreglain]

Bonjour,
J'ai l'habitude de faire mon code VBA dans mes macros personnelles et j'ai un code qui marche bien qui me permet d'ouvrir un fichier et de l'utiliser pour actualiser mes données :

Code :

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

1
2
3
ChDrive ("S")
ChDir "S:\Lyon\Louis"
MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xls")

Cependant, je suis entrain de réaliser un fichier qui sera utilisé par d'autres utilisateurs, j'ai donc transformé mon fichier xlsx en xlsm pour pouvoir rajouter des macros à l'intérieur du fichier mais mon code ne marche plus, j'ai une erreur d'exécution n°9, je pense qu'il y a une solution toute bête mais je ne maîtrise pas du tout l'ouverture des fichiers en VBA, j'ai récupéré cette commande sur des forums mais je n'arrive pas à l'adapter à mon problème.

Merci de votre aide.

[kiki29]

Salut, voir avec l'aide en ligne sur GetOpenFilename

[louisreglain]

Merci de votre réponse,

J'ai regardé dans l'aide en ligne mais je ne trouve pas la réponde à mon problème (d'où mon poste sur le forum).

D'après ce que j'ai compris :

Code :

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

MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xls")

la valeur entre parenthèse correspond au type de fichier que je veux ouvrir cependant il s'agit bien d'un xlsx.

Le fichier xlsm est le fichier qui contient le code et je souhaite ouvrir un fichier xlsx pour actualiser les données que contient mon xlsm.

[Slooby]

Bonjour,

Malheureusement tu n'as pas bien lu l'aide de la fonction ....
https://msdn.microsoft.com/fr-fr/lib.../ff834966.aspx
Relis bien et au calme, la réponse sera évidente !!!


Mais bon, je vais te donner un indice

Code :

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

.GetOpenFilename("Text Files (*.txt), *.txt")

la partie en vert correspond à un filtre sur le nom des fichiers.
la partie rose correspond à l'extension du fichier.

Donc un petit:

Code :

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

MonFichier = Application.GetOpenFilename("Merci Slooby, *.xlsx")

Devrait fonctionner, non ?

Tient moi au courant de l'évolution de ton projet.

Slooby

[louisreglain]

Bonjour,

Merci de votre réponse.
Malheureusement cela ne règle pas le problème
j'ai essayé avec

Code :

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

MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")

et

Code :

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

MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsm")

j'ai ensuite essayé de changer l'extension du fichier que j'ouvre avec le programme en .xlsm et j'ai également une erreur mais cette fois "erreur d'exécution 2004"

Merci beaucoup pour votre aide

[Slooby]

Re,

Tu n'aurais pas oublié le "Set" par hasard ?

Code :

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

1
2
Dim MonFichier as Workbook
Set MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")

Slooby