Code pour ouvrir un fichier excel 2013/MSP 2010

Salut à tous,

J'ai lu quelques posts évoquant des ouvertures de classeur Excel via vba mais j'ai du mal à m'y retrouver, les exemples sont trop différents et pas forcément résolus. :weird:

Est-ce que l'un de vous aurait un code "basique" adaptable selon le format du fichier (Excel, MSP, ...) pour aller ouvrir un fichier sur son bureau/réseau?

Au pire je suis preneuse de 2 codes différents si ce n'est pas possible, je cherche juste quelque chose de simple que je puisse adapter en fonction du fichier que je veux ouvrir (je débute en vba).

Un grand merci d'avance pour ceux qui se jetteront à l'eau!!

FOB :zoubi:

Rebonjour,

J'ai trouvé ce code qui me parait pas mal et qui ouvre bien mon répertoire mais sans trouver mon fichier excel...:(

Je pense que l'erreur vient de "a" mais je ne sais pas comment le corriger. Est-ce quelqu'un à une idée?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub OuvertureFichier()   Dim a As Variant, wkA As Workbook   Application.ScreenUpdating = False ChDrive "D:" ' Choix du lecteur ChDir "D:\Users\st03147\Desktop\Données d'entrées\Test Plan\TP" 'Choix du répertoire a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", , "Test Plan SC V05-A.xlsx", , True) If a = False Then Exit Sub   End Sub

---

Merci d'avance

FOB