VBScript to excel
Fermé
servietsky777
Messages postés
189
Date d'inscription
mercredi 24 décembre 2008
Statut
Membre
Dernière intervention
19 septembre 2013
-
3 déc. 2010 à 15:53
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 10 déc. 2010 à 16:17
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 10 déc. 2010 à 16:17
A voir également:
- VBScript to excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Qwerty to azerty - Guide
- Déplacer une colonne excel - Guide
5 réponses
servietsky777
Messages postés
189
Date d'inscription
mercredi 24 décembre 2008
Statut
Membre
Dernière intervention
19 septembre 2013
7
3 déc. 2010 à 15:57
3 déc. 2010 à 15:57
ça crée le fichier excel et ça insère dans la première cellule toutes les imprimantes. Mais il faudrait que ça insère un nom pour une cellule.
servietsky777
Messages postés
189
Date d'inscription
mercredi 24 décembre 2008
Statut
Membre
Dernière intervention
19 septembre 2013
7
6 déc. 2010 à 08:39
6 déc. 2010 à 08:39
up
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
6 déc. 2010 à 09:24
6 déc. 2010 à 09:24
Bonjour,
directement dans un fichier Excel sur le serveur (évite l'étape .txt)
directement dans un fichier Excel sur le serveur (évite l'étape .txt)
Sub lister_imprimante() Dim strcomputer As String Dim objetWMI As Object Dim imprimantesdispo As Object Dim imprimante As Object Dim lig As Byte strcomputer = "." 'on ne travaille que sur ce poste 'activation WMI pour Windows Set objetWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2") 'liste les drivers imprimantes installés sur le poste Set imprimantesdispo = objetWMI.ExecQuery _ ("Select * from Win32_Printer") lig = 1 For Each imprimante In imprimantesdispo Cells(lig, 1) = imprimante.Name If imprimante.Default Then Range("D1") = "imprimante active: " & imprimante.Name End If lig = lig + 1 Next End Sub
servietsky777
Messages postés
189
Date d'inscription
mercredi 24 décembre 2008
Statut
Membre
Dernière intervention
19 septembre 2013
7
10 déc. 2010 à 14:58
10 déc. 2010 à 14:58
Pourrais tu me donner le code entier qui marche que je doive juste le rentrer dans le programme. Je ne connais vraiment pas bien le vbscript alors si tu me donnes des bou de code, je ne saurai pas où les mettre.
Merci
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
10 déc. 2010 à 16:17
10 déc. 2010 à 16:17
Bonjour
Très sympa de ta part:
Pourrais tu me donner le code entier qui marche que je doive juste le rentrer dans le programme. Je ne connais vraiment pas bien le vbscript alors si tu me donnes des bou de code, je ne saurai pas où les mettre.
le code est entier ,complet, il a été testé avant de le proposer.
Bref! quand tu sais pas, ce sont forcément les autres qui foirent !!!
dans le fichier Excel: Alt+F11 t"amène dans l'éditeur VBA
insertion module-
tu copies-colles ce code
pour déclencher:
options-personnaliser-barre d'outils- formulaire
tu dessines un bouton et l'affectes à la macro
Très sympa de ta part:
Pourrais tu me donner le code entier qui marche que je doive juste le rentrer dans le programme. Je ne connais vraiment pas bien le vbscript alors si tu me donnes des bou de code, je ne saurai pas où les mettre.
le code est entier ,complet, il a été testé avant de le proposer.
Bref! quand tu sais pas, ce sont forcément les autres qui foirent !!!
dans le fichier Excel: Alt+F11 t"amène dans l'éditeur VBA
insertion module-
tu copies-colles ce code
pour déclencher:
options-personnaliser-barre d'outils- formulaire
tu dessines un bouton et l'affectes à la macro