[R] Mettre donné dans un fichier Excel

[richie6700]

Salut à vous, chère autoitien!!! Serait-il possible de m'aidé?

Je n'ai pas bien réussi à formuler ma demande au titre donc j'explique.

J'ai un tableau sous la forme :
groupe 1
groupe 12
groupe 121

mon but est pour chaque ligne récupéré les utilisateurs de chaque groupes. Donc pour le groupe 1 récupéré les utilisateurs de ce groupes ect ect... (pour info ce sont des groupes AD)
Je souhaiterais mettre tous ces utilisateurs dans un fichier Excel en séparant les groupes par les feuilles . donc par exemple en feuille 1 j'ai groupe 1 avec un tableau contenant les utilisateurs, feuille 2 j'ai le groupe 12 etc etc.

J'arrive à afficher les utilisateurs de chaque groupe (No Problem), le problème c'est que je n'arrive pas a les mettre dans UN fichier Excel, séparer par des feuilles...

Serait t'il possible de m'aider??

Merci d'avance

Richie

[Strofe]

Bonsoir

Voici une trame à adapter avec ad.udf

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <Excel.au3>

Dim $groupe[11]=["Grp1","Grp11","Grp12","Grp13","Grp2","Grp21","Grp3","Grp31","Grp32","Grp33","Grp34"]
Dim $GrpActuel=""
Dim $ligEcr=1

$oExcel = _ExcelBookNew()

For $t = 0 to UBound($groupe)-1
;~  Hypothèse le quatrième caractère donne le groupe
    If StringMid($groupe[$t],4,1)<> $GrpActuel Then
            _ExcelSheetAddNew($oExcel, $groupe[$t])     
            $GrpActuel = StringMid($groupe[$t],4,1)
            $ligEcr = 1
        Else
            _ExcelWriteCell($oExcel, $groupe[$t], $ligEcr, 1)
            $ligEcr += 1
    EndIf
Next ; ==> $t
 

A+

[richie6700]

Salut, tout d'abord merci pour la réponse, ton script m'a aidé mais j'ai encore un soucis.

J'ai donc le tableau avec les groupes.
Ensuite grâce à la fonction AD j'ai réussi a affiché un tableau contenant tous les user de grp1 ensuite quand la boucle se finit un autre tableau qui affiche les user de grp11 etc etc.
Ce qui veut dire que j'ai : (je ne vais pas mettre mon script car c'est trop long)

Code : Tout sélectionner

Dim $groupe[11]=["Grp1","Grp11","Grp12","Grp13","Grp2","Grp21","Grp3","Grp31","Grp32","Grp33","Grp34"] ; mon premier tableau
                For $t = 0 to UBound($groupe)-1
avec la fonction AD je sors les user du groupe $groupe[$i] et je les affiche dans un  tableau
                next

Comment puis je dire tant que je suis dans le groupe, je met les user de ce groupe à la feuille 1 etc etc. Avec la boucle "While" mais je vois pas trop comment faire...

J'espère que c'est compréhensible

merci

[Strofe]

Bonsoir

Et comme cela ???

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <Excel.au3>

Dim $groupes[3][3]=[["Grp11","Grp12","Grp13"], ["Grp21","Grp22","Grp23"], ["Grp31","Grp32","Grp33"] ]
Dim $ligEcr=1

$oExcel = _ExcelBookNew()
For $i = 0 to 2
    _ExcelSheetAddNew($oExcel, $groupes[$i][0])     
    $ligEcr = 1
    For $t = 0 to 2
        _ExcelWriteCell($oExcel, $groupes[$i][$t], $ligEcr, 1)
        $ligEcr += 1
    Next ; ==> $t
 Next ; ==> $i
 

[richie6700]

Oui c'est sa!! Tout simple lol.

Merci beaucoup!!!

Richie