Discussion :

[dido123123]

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.Export Analyse PDC Par CRC2.XLS

[kiki29]

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

[dido123123]

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é

[dido123123]

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 :

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

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

[Menhir]

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

Code :

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

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

[dido123123]

Merci beaucoup