Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Totor,
Tu peux utiliser ceci pour questionner "Active Directory" les informations reçues vont s'afficher dans un fichier .txt
P.S- Excel sait ouvrir un fichier texte... on peut aussi utiliser un bout de code en VBA si on sait ce que l'on cherche précisément dans le fichier texte.
'------------------------------------------ Sub test()
Dim T As Double Dim Fichier As String 'Où les informations seront après la procédure: Fichier = "c:toto.txt"
'La commande Net à plusieurs paramètres possible 'dans une fenêtre Dos, utilise la commande User /? 'pour afficher les paramètres disponibles commande = Environ("comspec") & " /c Net User > " & Fichier Shell commande, vbHide
'Un délai d'une seconde pour permettre à la commande 'de créer le fichier et y inscrire l'information T = Timer + 1 Do While Timer <= T DoEvents Loop 'affichage de la fenêtre avec le résultat. Shell "c:WindowsNotepad.exe " & Fichier, vbNormalFocus
End Sub '------------------------------------------
"totor" a écrit dans le message de groupe de discussion : Bonjour Comment récupérer en vba dans excel des informations d'active directory Merci
Bonjour Totor,
Tu peux utiliser ceci pour questionner "Active Directory"
les informations reçues vont s'afficher dans un fichier .txt
P.S- Excel sait ouvrir un fichier texte... on peut aussi utiliser
un bout de code en VBA si on sait ce que l'on cherche
précisément dans le fichier texte.
'------------------------------------------
Sub test()
Dim T As Double
Dim Fichier As String
'Où les informations seront après la procédure:
Fichier = "c:toto.txt"
'La commande Net à plusieurs paramètres possible
'dans une fenêtre Dos, utilise la commande User /?
'pour afficher les paramètres disponibles
commande = Environ("comspec") & " /c Net User > " & Fichier
Shell commande, vbHide
'Un délai d'une seconde pour permettre à la commande
'de créer le fichier et y inscrire l'information
T = Timer + 1
Do While Timer <= T
DoEvents
Loop
'affichage de la fenêtre avec le résultat.
Shell "c:WindowsNotepad.exe " & Fichier, vbNormalFocus
End Sub
'------------------------------------------
"totor" <totor@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: D7A681E2-5E60-4AE6-99E6-1065FBB2E1C6@microsoft.com...
Bonjour
Comment récupérer en vba dans excel des informations d'active directory
Merci
Tu peux utiliser ceci pour questionner "Active Directory" les informations reçues vont s'afficher dans un fichier .txt
P.S- Excel sait ouvrir un fichier texte... on peut aussi utiliser un bout de code en VBA si on sait ce que l'on cherche précisément dans le fichier texte.
'------------------------------------------ Sub test()
Dim T As Double Dim Fichier As String 'Où les informations seront après la procédure: Fichier = "c:toto.txt"
'La commande Net à plusieurs paramètres possible 'dans une fenêtre Dos, utilise la commande User /? 'pour afficher les paramètres disponibles commande = Environ("comspec") & " /c Net User > " & Fichier Shell commande, vbHide
'Un délai d'une seconde pour permettre à la commande 'de créer le fichier et y inscrire l'information T = Timer + 1 Do While Timer <= T DoEvents Loop 'affichage de la fenêtre avec le résultat. Shell "c:WindowsNotepad.exe " & Fichier, vbNormalFocus
End Sub '------------------------------------------
"totor" a écrit dans le message de groupe de discussion : Bonjour Comment récupérer en vba dans excel des informations d'active directory Merci