<![CDATA[Les forums de JeBulle.net – [vb] Fonctions]]> 2004-07-08T15:22:03Z PunBB https://forums.jebulle.net/topic/364/vb-fonctions/ <![CDATA[Re: [vb] Fonctions]]> ben voila c&#39;etait pas dur wink

si tu as d&#39;autres problemes hésite pas a demander big_smile

plus serieusement sur les treeview,si tu as besoin d&#39;aide, je peut t&#39;envoyer ce que j&#39;ai fait pour mon projet vu que c&#39;etait un peu le theme principal smile

tiens moi au courant

]]> https://forums.jebulle.net/user/8/ 2004-07-08T15:22:03Z https://forums.jebulle.net/post/5208/#p5208 <![CDATA[Re: [vb] Fonctions]]> As-tu une petite fonction qui compte le nombre d&#39;enfant d&#39;un noeud dans une TreeView sous la main ???


Edit : Bon finalement c&#39;est pas la peine, j&#39;ai trouvé &#33; 

TreeView.SelectedItem.Children

Ca retourne le nombre d&#39;enfant du node selectionné.

J&#39;étais parti très loin alors que j&#39;avais la solution directement &#33;  roll   lol

]]> https://forums.jebulle.net/user/5/ 2004-07-08T13:48:49Z https://forums.jebulle.net/post/5207/#p5207 <![CDATA[Re: [vb] Fonctions]]> et voici encore une petite fonction made in maison smile (inspiré quand meme wink

elle permet de remplacer tous les espaces par des undescore dans le nom des fichiers pour un répertoire donné

celà peut s&#39;avérer très utile smile

Private Sub Bouton_Click&#40;&#41;

Dim fixe As String
Dim rep As String

fixe = &#34;c&#58;&#092;temp&#092;&#34;

&#39;obtient le premier fichier qui est dans le repertoire defini
rep = Dir&#40;fixe & &#34;*.*&#34;, vbDirectory&#41;
&#39;boucle tant que le répertoire n&#39;a pas été entièrement parcouru
Do While &#40;rep &#60;&#62; &#34;&#34;&#41;
 &nbsp; &nbsp;If rep &#60;&#62; &#34;.&#34; And rep &#60;&#62; &#34;..&#34; Then
 &nbsp; &nbsp; &nbsp; &nbsp;Name fixe & rep As fixe & Replace&#40;rep, &#34; &#34;, &#34;_&#34;&#41;
 &nbsp; &nbsp;End If
 &nbsp; &nbsp;&#39;passe à l&#39;élément suivant
 &nbsp; &nbsp;rep = Dir
Loop
MsgBox &#40;&#34;Fini&#34;&#41;

End Sub

je n&#39;ai pas fait l&#39;exploration en profondeur, elle marche uniquement pour un dossier qui ne contient QUE des fichiers, mais c&#39;est déjà un bon début smile

]]> https://forums.jebulle.net/user/8/ 2004-07-08T11:33:36Z https://forums.jebulle.net/post/5206/#p5206 <![CDATA[Re: [vb] Fonctions]]> OK d&#39;ac &#33;

]]> https://forums.jebulle.net/user/5/ 2004-06-29T08:20:37Z https://forums.jebulle.net/post/5137/#p5137 <![CDATA[Re: [vb] Fonctions]]> elle marche dans un certaine mesure, la taille d&#39;un quote n&#39;est pa égale à la taille d&#39;un double quote et quand tu travaille avec les longueurs des mots, celle ci te fait l&#39;adaptation donc c&#39;est ce qu&#39;il me faut wink

en plus je l&#39;ai allégé pour poster sur le forum mais elle me remplace également mes caractères spéciaux, je fait tout dans une fonction ca m&#39;évite d&#39;écrire 20 lignes avec replace=.., je lui passe une chaine et il me renvoie la chaine épuré wink

]]> https://forums.jebulle.net/user/8/ 2004-06-29T07:39:38Z https://forums.jebulle.net/post/5136/#p5136 <![CDATA[Re: [vb] Fonctions]]> je n&#39;ai pas tout regardé mais ta fonction pour remplacer les quotes par des doubles quotes me parait bien longue &#33;&#33; 

test = Replace&#40;test ,&#34;&#39;&#34;,&#34;&#34;&#34;&#34;&#41;

Ca ne suffit pas ca ??


Par contre ta fonction pour les documents Word et le mail me plait bien ... wink

]]> https://forums.jebulle.net/user/5/ 2004-06-28T17:26:26Z https://forums.jebulle.net/post/5132/#p5132 <![CDATA[Re: [vb] Fonctions]]> voila de quoi remplir un fichier word, cette fonction nécessite la référence microsoft word x.x object library

Dim oWord As Word.Application
Set oWord = New Word.Application
oWord.Visible = True &#39;détermine si le fichier est visible
oWord.DisplayAlerts = wdAlertsNone
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
oWord.Documents.Add App.Path & &#34;&#092;document.doc&#34; &#39; charge un fichier existant
&#39;Mise en gras
oWord.Selection.Font.Bold = 1
oWord.Selection.typetext Text&#58;=&#34;bla bla&#58; &#34; &#39; remplit le document
&#39;enleve le gras
oWord.Selection.Font.Bold = 0

&#39;Sauvegarde et quitte
oWord.ActiveDocument.SaveAs App.Path & &#34;&#092;document.doc&#34;
oWord.Quit

je ne vous ai mis qu&#39;une seule propriété de mise ne page mais j&#39;en ai plusieurs pages de propriétés alors demander si vous avez besoin wink

]]> https://forums.jebulle.net/user/8/ 2004-06-28T07:19:37Z https://forums.jebulle.net/post/5122/#p5122 <![CDATA[Re: [vb] Fonctions]]> une petite fonction bien utile qui permet de remplacer les quote par des double quote, pratique dans les requetes sql wink

Public Function Doublequote&#40;ByVal vntValue As Variant&#41; As Variant
Dim i, j As Integer
Dim intLngDest As Integer, intLngSource As Integer

 &nbsp; &nbsp;If IsNull&#40;vntValue&#41; Then
 &nbsp; &nbsp; &nbsp; &nbsp;Exit Function
 &nbsp; &nbsp;End If
 &nbsp; &nbsp;If &#34;&#39;&#34; &#60;&#62; &#34;&#39;&#39;&#34; Then
 &nbsp; &nbsp; &nbsp; &nbsp;intLngDest = Len&#40;&#34;&#39;&#39;&#34;&#41;
 &nbsp; &nbsp; &nbsp; &nbsp;If intLngDest = 0 Then
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;intLngDest = 1
 &nbsp; &nbsp; &nbsp; &nbsp;End If
 &nbsp; &nbsp; &nbsp; &nbsp;intLngSource = Len&#40;&#34;&#39;&#34;&#41;
 &nbsp; &nbsp;
 &nbsp; &nbsp; &nbsp; &nbsp;i = 1
 &nbsp; &nbsp; &nbsp; &nbsp;j = InStr&#40;i, vntValue, &#34;&#39;&#34;&#41;
 &nbsp; &nbsp; &nbsp; &nbsp;While j &#60;&#62; 0
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;vntValue = Left&#40;vntValue, j - 1&#41; & &#34;&#39;&#39;&#34; & Right&#40;vntValue, Len&#40;vntValue&#41; - &#40;j + intLngSource - 1&#41;&#41;
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;i = j + intLngDest
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;j = InStr&#40;i, vntValue, &#34;&#39;&#34;&#41;
 &nbsp; &nbsp; &nbsp; &nbsp;Wend
 &nbsp; &nbsp;End If
 &nbsp; &nbsp;Doublequote = vntValue
End Function
]]> https://forums.jebulle.net/user/8/ 2004-06-28T07:12:00Z https://forums.jebulle.net/post/5121/#p5121 <![CDATA[[vb] Fonctions]]> je poste ici quelques fonctions que j&#39;ai trouvé et modifier parfois et qui sont bien utiles

envoi de mail

Public Function mail&#40;adresse As String, sujet As String, message As String, origine As String, MonFichier As String&#41;
&#39; Fonction de mail

Set objmail = CreateObject&#40;&#34;CDONTS.NewMail&#34;&#41;
 &nbsp; &nbsp; &nbsp; &nbsp;objmail.From = origine
 &nbsp; &nbsp; &nbsp; &nbsp;objmail.To = adresse
 &nbsp; &nbsp; &nbsp; &nbsp;objmail.Subject = sujet
 &nbsp; &nbsp; &nbsp; &nbsp;objmail.Body = message
 &nbsp; &nbsp; &nbsp; &nbsp;objmail.AttachFile MonFichier
 &nbsp; &nbsp; &nbsp; &nbsp;objmail.Send

End Function

Cette fonction nécessite l&#39;utilisation de la dll CDONTS qui est par défaut avec un serveur IIS, si vous ne l&#39;avez pas, telechargez la et executer ensuite la ligne suivante 

regsvr32 cdonts.dll

cela aura pour effet de l&#39;enregistrer aupres de votre os

]]> https://forums.jebulle.net/user/8/ 2004-06-28T07:10:17Z https://forums.jebulle.net/post/5120/#p5120