[XL-2003] Sélection d'un fichier à partir d'un fichier excel

Sélection d'un fichier à partir d'un fichier excel

Bonjour à nouveau.

J'ai un fichier de gestion qui a été créé pour l'année 2010.

Comme l'année 2011 arrive bientôt, j'ai besoin de créer le même fichier que la version 2010, mais je dois donner la possibilité à l'utilisateur dans la version 2011 de trouver le fichier 2010 afin d'importer les données permanentes du fichier 2010 et de les importer les informations dans la version 2011.

Ma question :

Est-il possible d'avoir une fenêtre de dialogue me permettant de voir tous les disques et répertoires afin d'indiquer quel est le fichier 2010 et de l'attribuer à une variable qui me permettra de me « promener » entre les deux versions le temps d'importer les informations ?

Merci encore une fois à l'avance

Dlight

Code:

1
2
3
4
5
6
7
8
Dim Wk As Workbook
Dim Fichier As Variant
 
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If Fichier <> False Then
    Set Wk = Workbooks.Open(Fichier)
    'suite
End If

Ouverture ficher

Merci encore une fois à vous pour le code. C'est une fois de plus parfait !:ccool: