Creation macro VBA

Bonjour,

Je commence tout d'abord que je suis vraiment un débutant sur VBA donc malgré plusieurs tentatives ( 2 jours d'essais ) je me tourne vers votre aide.
J'aimerais dans le fichier que je vous ai mis en pièce jointe créer une macro qui me permettrai de faire un filtre sur la colonne E, de choisir une variable USD, ensuite de me copier toutes les données avec ce filtre dans un premier temps.
Ensuite à partir de ces données de créer un fichier dans un répertoire specifique et de coller ces mêmes données dans la première feuille de ce nouveau fichier créer.
Concernant le nom du fichier je veux qu"il soit de la forme PDC_nomdelavariabledufiltre_datesetrouvantsurlacolonneBdufichierjoint .xlsm.

J'aimerai également faire le même travail avec d'autres variable tel que le CHF, YEN,PLN.

Je vous remercie d'avance mais je suis vraiment au bout la.Pièce jointe 382782

Salut, de la lecture : Excel et l'enregistreur de macro

Citation:

---

Envoyé par kiki29

Salut, de la lecture : Excel et l'enregistreur de macro

---

Salut,

J'ai déjà tenté cette méthode mais tout pose problème lors de mes créations de fichiers, il y a toujours un problème quelque part et c'est donc pour cela que je fais appel à vous.

Je suis vraiment désespéré

J'ai réussi à un peu avancer depuis. Ça marche bien pour ma première variable. Comment pourrais-je adapter ce code afin que ça me crée d'autres fichier pour chaque variables mentionnées ci dessus grâce à la méthode de filtre ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub USD() ' ' USD Macro '   ' ActiveSheet.Range("$A$1:$N$305").AutoFilter Field:=5, Criteria1:="USD" Workbooks.Add Dim classeur As Workbook Set classeur = Application.Workbooks.Add With classeur .Worksheets(1).Name = "PDC USD" .SaveAs "C:\Users\THIAMCH\Desktop\Export DEV\PDC_USD_Date.xlsx" Windows("Export Analyse PDC Par CRC.XLS").Activate Range("A1:N305").Select Selection.Copy Windows("PDC_USD_Date.xlsx").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With End Sub

---

Le plus simple est de remplacer ta chaine USD par une variable renseignée par un InputBox.
Commence le code par :

Code:

---

1 2 3

Dim Monnaie As String Monnaie = InputBox("Monnaie à traiter") If Len(Monnaie) <> 3 Then Exit Sub

---

Puis remplace tous tes "USD" par cette variable dans ton code.

Avec ça, à l'exécution de la macro, elle commencera par te demander la monnaie à traiter.
Si l'utilisateur tape autre chose que trois lettre, l'exécution s'arrête.

Si tu veux un peu plus personnaliser ton InputBox, lis ceci.
https://msdn.microsoft.com/en-us/VBA...utbox-function

Merci beaucoup