Discussion :

[FOB11]

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.

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

[FOB11]

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 :

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

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