Boite de dialogue pour choix ouverture fichier

[Uzul]

Bonjour

Je me permets de vous soumettre mon très petit projet.

Tous les semaines je crée un indicateur avec des données récupérer dans de divers fichier et info que je reçois par mail et je calcule un moyenne hebdomadaire avec toutes ces informations

Je nomme ce fichier : Indicateur semaine 17.xls et toutes les semaines le nom change car il est fonction de celle ci.

Mais suite a plusieurs demandes je dois récupérer les données de ces fichiers afin de le mettre dans un autre fichier Excel car je dois calculer un moyenne avec une formule différente (pondération).
Mon souhaite et de créer sur le fichier mensuel une petite macro qui me permettrai de choisir le fichier 'Indicateur semaine XX.xls' avec ouverture d'une boite de dialogue pour choisir ce fichier et quand ce fichier est sélectionné que les données que j'ai besoin soient recopiée dans le fichier mensuel.

J'espère avoir été clair dans ma demande.

Par avance merci.

Jean Pierre

 

[Creepy]

Bonjour le Forum, Uzul,

Ta demande est très claire, mais pourrais tu mettre un exemple pour nous permettre de travailler sur une bonne base.

@+

Creepy

 

[MichelXld]

bonjour Jean-Pierre , bonjour Creepy

cet exemple permet d'afficher une boite de dialogue pour ouvrir un classeur


Dim Fichier As Variant
Dim Wb As Workbook

Fichier = Application.GetOpenFilename('Fichiers Excel (*.xls), *.xls')
If Fichier = False Then Exit Sub

Set Wb = Workbooks.Open(Fichier)
'
'...
'


ensuite il restera à voir ce que tu souhaites recuperer comme données ...


bon week end
MichelXld