Discussion :

[jinx69]

Bonjour à toutes et tous,

Je me permets de demander un peu d'aider n'ayant pas du tout de connaissance VBA, macro Excel, etc.

J'ai un fichier Excel avec comme colonnes :

Id User Rôle

Id 1 Admin
Id 2 Admin
Id 3 Utilisateur

Afin d'alimenter en ligne de commande le back office d'un certain logiciel et affecter les users à leurs groupes respectifs, je dois avoir un fichier csv par rôle qui contient les ID user qui ont ce rôle.

Admin.csv contiendra Id 1 et Id 2
Utilisateur.csv contiendra Id 3

Etant donné que j'ai plusieurs milliers de users, j'ai besoin d'industrialiser.
Pourriez-vous donc m'aider sur les manipulations automatiques possibles pour parvenir à ce résultat s'il vous plait ?
Merci d'avance.

Laura

[kiki29]

Salut, pour cela tu as l'enregistreur de macros.

[jinx69]

Bonjour,

Merci pour ta réponse.
Oui j'imagine que ça doit servir à ça mais je ne sais pas du tout comment.
Peux-tu m'aider s'il te plait ?
Merci d'avance.
Cdlt,
Laura

[Malick]

Voici un tutoriel à lire :

Excel et l'enregistreur de macros, par Pierre Fauconnier

[jinx69]

Du coup, j'ai un peu avancé toute seule, mais sans l'enregistreur finalement.

Voici la macro à laquelle je suis parvenue qui fonctionne bien, mai de façon unitaire.
Ce que je voudrais, c'est pouvoir ajouter quelques lignes de codes qui permettent de modifier le filtre que j'ai sur ma feuille initiale pour prendre la valeur suivante avant de faire le Copier.
Quelques suggestions s'il vous plait ?
Merci d'avance !

Laura



Sub tocsv()
'
' tocsv Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+W
'
Application.DisplayAlerts = False
Range("Role,NNI").Select
ChDir "C:\tmp"
Selection.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = Range("A1")
Columns("A:A").Delete Shift:=xlToLeft
ActiveSheet.SaveAs Filename:="C:\tmp\" & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

[GastonLagaffe25]

Bonjour,

Une petite recherche et:
http://excel.developpez.com/faq/?page=Filtre
http://www.developpez.net/forums/d10...nnees-d-sheet/

Pour les filtres avancés:
http://philippetulliez.developpez.co...dvancedfilter/

Cordialement.

[Malick]

Du coup, j'ai un peu avancé toute seule, mais sans l'enregistreur finalement.

Voici la macro à laquelle je suis parvenue qui fonctionne bien, mai de façon unitaire.
Ce que je voudrais, c'est pouvoir ajouter quelques lignes de codes qui permettent de modifier le filtre que j'ai sur ma feuille initiale pour prendre la valeur suivante avant de faire le Copier.
Quelques suggestions s'il vous plait ?
Merci d'avance !

Laura


Sub tocsv()
'
' tocsv Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+W
'
Application.DisplayAlerts = False
Range("Role,NNI").Select
ChDir "C:\tmp"
Selection.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = Range("A1")
Columns("A:A").Delete Shift:=xlToLeft
ActiveSheet.SaveAs Filename:="C:\tmp\" & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

Pour poster des codes, merci de bien vouloir utiliser la balise prévue à cet effet (touche # se trouvant sur l'éditeur de message), cela faciliterait la lecture