Création de macro sur 2 fichiers excel

bonjour,
Voici mon problème :
je souhaite à partir d'un fichier excel de base créer une macro pour transférer les données de ce fichier dans un autre fichier excel mon souci est que le fichier excel destinataire ne sera jamais le même (une extraction effectuer quotidiennement), or la macro se base sur le nom du fichier (et je souhaiterais le conservé).

Est ce que quelqu’un aurait une solution à mon problème ??
Merci d'avance

Tu peux variabiliser la cible. Faudrait voir ta macro.

Tu peux implanter en début de macro un GetOpenFilename qui va ouvrir une fenêtre classique de recherche de fichier (la même que lorsque tu utilises la commande Ouvrir du menu d'Excel) pour te demander le nom de fichier.
Avec ça, tu pourras pointer sur le fichier que tu souhaites comme destination.

Attention, cette commande se contente de récupérer le nom de fichier sans l'ouvrir. Il faut faire un Workbooks.Open ensuite pour l'ouvrir réellement.
Si tu veux faire les deux en une seule ligne, il faut utiliser la méthode FindFile mais, personnellement, je la trouve moins pratique parce qu'elle ne renvoie pas le nom de fichier.

Voici le début de ma macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub MacroExtractFormule() ' ' MacroExtractFormule Macro '   ' Range("AH1:AM2").Select Selection.Copy Windows("extract.xlsx").Activate ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5

---

Mais je n'arrive pas à implanter la ligne GetOpenFilename, je ne suis pas au top sur les macros !
Un coup de pouce ?

Citation:

---

Envoyé par Tivi31

je n'arrive pas à implanter la ligne GetOpenFilename,

---

Est-ce que au moins tu as essayé ?
Est-ce que tu as regardé la syntaxe de cette méthode dans l'aide VBA d'Excel ?

Ah oui j'comprend j'ai essayé je me casse la tete dessus!
J'ai reussi mais ce n'est pas réellement ce que je cherche, je m'explique :

On considere que pour faire la manip j'ai mes 2 fichiers déjà ouvert donc je n'ai pas besoin d'aller chercher le fichiers, Par contre je veux que ma macro s'applique au fichier ouvert quelque soit son nom

Je ne sais pas si je suis clair ...

Où est enregistré ta macro ?

Dans le premier fichier expéditeur des données

S'il n'y a que ces deux fichiers d'ouverts, remplace tes 3 premières lignes par :

Code:

---

1 2 3

Range("AH1:AM2").Copy Workbooks(1).Activate If Workbooks(1) = Thisworkbook then Workbooks(2).Activate

---