Discussion :

[tarnx]

Bonsoir à tous.

Je cherche comment importer les données depuis un fichier Excel. A savoir:

Les données des feuilles source et destination sont sous le même format (Même nombre de colonnes et même type de valeur dans les cellules correspondantes).

Le code doit se trouver sur le fichier de destination car le fichier source est à chaque fois un nouveau(Il s'agit donc bien d'un import de données et non d'un export).

Mais là ou cela se complique, c'est que le chemin du fichier source est variable.
Je souhaiterais donc savoir s'il était possible de référencer le chemin de ce fichier source sans avoir à le rentrer entièrement dans une boîte de dialogue.
C'est à dire avoir en quelques sorte le même système que pour l'ouverture d'un fichier.

Si vous avez des méthodes particulières, je reste à votre écoute.

Merci de bien vouloir me venir en aide.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Dim Wbk As Workbook
Dim Fichier As Variant
 
Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If Fichier <> False Then
   Set Wbk = Workbooks.Open(Fichier)
   'Suite du code avec Wbk le fichier ouvert
'....
End If

[tarnx]

C'est parfait. Merci.