<![CDATA[Les forums de JeBulle.net – [vb] Fonctions]]> https://forums.jebulle.net/topic/364/vb-fonctions/ Thu, 08 Jul 2004 15:22:03 +0000 PunBB <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5208/#p5208 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

]]> Thu, 08 Jul 2004 15:22:03 +0000 https://forums.jebulle.net/post/5208/#p5208 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5207/#p5207 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

]]> Thu, 08 Jul 2004 13:48:49 +0000 https://forums.jebulle.net/post/5207/#p5207 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5206/#p5206 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

]]> Thu, 08 Jul 2004 11:33:36 +0000 https://forums.jebulle.net/post/5206/#p5206 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5137/#p5137 OK d&#39;ac &#33;

]]> Tue, 29 Jun 2004 08:20:37 +0000 https://forums.jebulle.net/post/5137/#p5137 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5136/#p5136 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

]]> Tue, 29 Jun 2004 07:39:38 +0000 https://forums.jebulle.net/post/5136/#p5136 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5132/#p5132 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

]]> Mon, 28 Jun 2004 17:26:26 +0000 https://forums.jebulle.net/post/5132/#p5132 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5122/#p5122 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

]]> Mon, 28 Jun 2004 07:19:37 +0000 https://forums.jebulle.net/post/5122/#p5122 <![CDATA[Re: [vb] Fonctions]]> https://forums.jebulle.net/post/5121/#p5121 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
]]> Mon, 28 Jun 2004 07:12:00 +0000 https://forums.jebulle.net/post/5121/#p5121 <![CDATA[[vb] Fonctions]]> https://forums.jebulle.net/post/5120/#p5120 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

]]> Mon, 28 Jun 2004 07:10:17 +0000 https://forums.jebulle.net/post/5120/#p5120