[MichelXld]

bonsoir

j'ouvre ce fil pour faire quelques tests de mise en forme

Sub Test()
MsgBox 'Le forum XLD'
End Sub

Sub Test()
MsgBox 'Le forum XLD'
End Sub

Sub Test()
MsgBox 'Le forum XLD'
End Sub

Sub Test()
MsgBox 'Le forum XLD'
End Sub

bonne soirée
MichelXld

[MichelXld]

MichelXld


MichelXld

MichelXld


MichelXld

[MichelXld]

...ppfff...raté...

....cher David , si tu passes par ici ... y a t'il un moyen d'afficher la zone de 'Code' en unicolor et écrit un peu plus grand ?


bonne soirée
MichelXld

[MichelXld]

rebonsoir

un dernier test avant d'aller au dodo ...

Sub Test()
MsgBox 'Le forum XLD'
End Sub

Sub Test()
MsgBox 'Le forum XLD'
End Sub

Sub Test()
MsgBox 'Le forum XLD'
End Sub

[MichelXld]

bonsoir

un petit test suite au message de David

Sub listeImprimantes_et_Statut()
'testé avec Excel2002 et WinXP
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
nomPC = '.'
Set objWMIService = GetObject('winmgmts:' & _
'{impersonationLevel=impersonate}!\\\\' & nomPC & '\\root\\cimv2')
Set colInstalledPrinters = objWMIService.execQuery('Select * from Win32_Printer')
For Each objPrinter In colInstalledPrinters
Resultat = Resultat & objPrinter.Name & ' imprimante active : ' & objPrinter.Default & vbLf
Next
MsgBox Resultat
End Sub

Sub creerUndossier()
mkDir 'c:\\Mes Documents\\Excel'
End Sub

bonne soiree
MichelXld

[MichelXld]

merci David cela fonctionne très bien

un nouvel essai sans la balise Code


Sub listeImprimantes_et_Statut()
'testé avec Excel2002 et WinXP
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
nomPC = '.'
Set objWMIService = GetObject('winmgmts:' & _
'{impersonationLevel=impersonate}!\\\\' & nomPC & '\\root\\cimv2')
Set colInstalledPrinters = objWMIService.execQuery('Select * from Win32_Printer')
For Each objPrinter In colInstalledPrinters
Resultat = Resultat & objPrinter.Name & ' imprimante active : ' & objPrinter.Default & vbLf
Next
MsgBox Resultat
End Sub



MichelXld

[Hervé]

bonjour

Je me permet de squatter ce fil, michel, pour des essais de signatures.

Salut
Hervé

[jmps]

Bonjour à tous,

Jolie ta signature Hervé !

C'est vrai que la taille de la police pour le code est un peu petite. Surtout sur un 17' en 1280*1024 ! B)

Je fais un teste pour voir (Arf !)

Sub listeImprimantes_et_Statut() 
'testé avec Excel2002 et WinXP 
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object 
Dim nomPC As String, Resultat As String 
nomPC = '.' 
Set objWMIService = GetObject('winmgmts:' & _ 
'{impersonationLevel=impersonate}!' & nomPC & 'rootcimv2'Â'Â') 
Set colInstalledPrinters = objWMIService.execQuery('Select * from Win32_Printer'Â'Â') 
For Each objPrinter In colInstalledPrinters 
Resultat = Resultat & objPrinter.Name & ' imprimante active : ' & objPrinter.Default & vbLf 
Next 
MsgBox Resultat 
End Sub 

Sur l'aperçu, ça passe. Voyons voir le résultat...

Bin non. Je crois que l'aperçu n'est pas très WYSIWYG.
David ?????

Message édité par: jmps, à: 26/02/2005 12:48

[jmps]

En fait, la balise < font > n'est pas interprétée.
Je refais un test en la mettant à l'extérieur de code.

Sub listeImprimantes_et_Statut()
'testé avec Excel2002 et WinXP
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
nomPC = '.'
Set objWMIService = GetObject('winmgmts:' & _
'{impersonationLevel=impersonate}!\\' & nomPC & 'rootcimv2'Â'Â')
Set colInstalledPrinters = objWMIService.execQuery('Select * from Win32_Printer'Â'Â')
For Each objPrinter In colInstalledPrinters
Resultat = Resultat & objPrinter.Name & ' imprimante active : ' & objPrinter.Default & vbLf
Next
MsgBox Resultat
End Sub

Raté aussi. Y'a plus que David qui peut nous sauver de la conjonctivite....

Message édité par: jmps, à: 26/02/2005 12:52

[MichelXld]

Bonsoir Hervé , Bonsoir José

Hervé , elle est tres sympa ta signature

j'espere que David pourra faire quelque chose pour augmenter la taille des caracteres ( et peut etre la police ?)


en attendant je vous souhaite une bonne soiree
MichelXld

[galopin01]

Coucou,
Encore des Tests...
A+

http://www.eabressane.com

Message édité par: galopin01, à: 28/02/2005 12:22

[Sylvain]

bonjour,

voici ma dernière contribution à cette mise en forme (voir fil http://www.excel-downloads.com/forum...vba-gt-xld.htm.


Cette version utilise la balise quote. J'avais fait des essais avec la balise code et à l'Aperçu c'était nickel mais après
:angry:

PrivateSub GetSet()
'&nbsp; Loads a new graphic into the Image control
&nbsp; &nbsp; OnErrorGoTo NoPic
&nbsp; &nbsp; Image1.Picture = LoadPicture(ThisWorkbook.Path & '\\id' & Format(SetNumber, '00') & '.gif')
&nbsp; &nbsp; Frame1.ScrollTop = 0
&nbsp; &nbsp; LabelSet.Caption = 'Set ' & SetNumber & ' of 12'
&nbsp; &nbsp; Repaint
&nbsp; &nbsp; ExitSub
NoPic:
&nbsp; &nbsp; If Err = 53 Then
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Missing image file: ' & ThisWorkbook.Path & '\\id' & Format(SetNumber, '00') & '.gif'
&nbsp; &nbsp; &nbsp; &nbsp; LabelSet.Caption = 'Missing File'
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Error ' & Err
&nbsp; &nbsp; EndIf
EndSub

[file name=vbatoxld_20050227114912.zip size=24445]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vbatoxld_20050227114912.zip[/file]