FAQ : IDEAL Administration | IDEAL Dispatch | IDEAL Remote | IDEAL Migration | IDEAL Alerter | IDEAL Secure


FAQ : IDEAL Administration

Gestion Centralisée des Domaines Windows Active Directory et des Workgroups

Copier les mots de passe des comptes utilisateurs entre serveurs ou stations Windows

Comment générer un fichier ACT depuis Excel ?

Je dois créer pour la rentrée plus de 1.000 utilisateurs sur mon domaine.
J'ai déjà toutes les infos les concernant dans un fichier au format Excel.

Comment puis-je faire en sorte que celui-ci soit utilisable directement par IDEAL Administration ?

Le format d'import des comptes utilisateurs n'est pas directement compatible avec le format Excel.

Nous mettons à votre disposition le code VBA suivant vous permettant de créer un fichier au format ACT (ACcounTs) depuis votre fichier Excel.

Une fois créé, vous pourrez utiliser celui-ci dans IDEAL Administration via le menu "Mode avancé" / "Ajouter/Modifier des comptes utilisateurs".

Code :

Sub QuoteCommaExport()

' Dimension all variables.
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer

' Prompt user for destination file name.
DestFile = InputBox("Enter the destination filename" _
& Chr(10) & "(with complete path):", "Simple Excel To IDEAL Administration Exporter")

' Obtain next free file handle number.
FileNum = FreeFile()

' Turn error checking off.
On Error Resume Next

' Attempt to open destination file for output.
Open DestFile For Output As #FileNum

' If an error occurs report it and end.
If Err <> 0 Then
MsgBox "Cannot open filename " & DestFile
End
End If

' Turn error checking on.
On Error GoTo 0

' Loop for each row in selection.
For RowCount = 1 To Selection.Rows.Count

' Loop for each column in selection.
For ColumnCount = 1 To Selection.Columns.Count

If (ColumnCount = 1) Then
Print #FileNum, "" & Selection.Cells(RowCount, ColumnCount).Text
End If
If (ColumnCount = 2) Then
Print #FileNum, "" & Selection.Cells(RowCount, ColumnCount).Text
End If
If ColumnCount = Selection.Columns.Count Then
Print #FileNum, ""
Print #FileNum,
End If

' Start next iteration of ColumnCount loop.
Next ColumnCount

' Start next iteration of RowCount loop.
Next RowCount

' Close destination file.
Close #FileNum

End Sub

Comment utiliser ce script?

Tout d'abord, celui-ci suppose que votre fichier Excel est formaté comme suit:

A B
User1 Pass1
User2 Pass2
User3 Pass3

Sélectionnez toutes vos données dans la feuille Excel puis menu "Outils" / "Macros" / "Visual Basic Editor" (ou plus simplement ALT+F11).

Dans l'éditeur Visual Basic, menu "Insertion" puis "Module". Effectuez un copier/coller du script ci-dessus.
Sélectionnez alors le menu "Exécution" / "Exécuter" puis entrez le nom du fichier en sortie (par exemple, D:\Travail\Mes_comptes.act) lorsque la fenêtre de saisie apparaît.

Bien entendu, vous pouvez ajouter d'autres zones comme les groupes, la description du compte, etc... Il vous suffit d'ajouter des colonnes dans votre fichier Excel et de modifier le code ci-dessus en conséquence.

Dernière modification : 03/06/2009
<< Précédente   Suivante >>

Retour à la liste des FAQs

 


IDEAL Administration 19.6
Télécharger la version
gratuite 30 jours
Retour haut de page