salut salut,

je trouve ta source géniale.  Je m'en suis inspiré pour faire un prog de gestion pour moi.
Mais maintenant, j'ai un petit problème.
Dans ton menu imprimer tu peux imprimer tout ce qu'il y a dans ta datagrid.

Ce que je voudrais faire, en utilisant le principe de ta fonction mise_en_page, c'est écrire les données dans des fichiers textes séparés.

En gros, voici la structure de ma db.
machine,fournisseur,reference_fournisseur,stock.

je voudrais créer un fichier texte pour chaque fournisseur.
dans chaque fichier il y aura les pièces de ce fournisseur.
Mais voila, je ne sais pas trop comment faire parce que pour l'instant ca ne fonctionne pas. Il me met toutes les pièces dans le meme fichier.

voici mon code actuel :

  Sub commande_auto(ByVal fournisseur As String)
        Dim ligne, colonne As Single
        Dim date_fichier As Date
        date_fichier = System.DateTime.Now.ToShortDateString()
        Dim nom_fichier As String
        nom_fichier = nom_fichier + date_fichier
        nom_fichier = nom_fichier.Replace("/", "_")

        If Not (Directory.Exists("c:\" & fournisseur)) Then
            Directory.CreateDirectory("c:\" & fournisseur)
        End If
        Dim sw_fournisseur As New StreamWriter("c:\" & fournisseur & "\" & nom_fichier & ".txt", True)

        sw_fournisseur.WriteLine("je mets ici un en-tête pour chaque fichier)

        ligne = 0
        While (ligne >= 0)
            On Error GoTo fin
            Dim test As String
            test = repertoire.Item(ligne, colonne)
            For colonne = 1 To DtSet.Tables(0).Columns.Count - 1
                Select Case colonne
                    Case 1
                        sw_fournisseur.WriteLine("Machine : " & repertoire.Item(ligne, colonne))
                    Case 2
                        If ((fournisseur = "martin") Or (fournisseur = "Martin") Or (fournisseur = "MARTIN")) Then
                            sw_fournisseur.WriteLine("OM : " & repertoire.Item(ligne, colonne))
                        End If
                    Case 4
                        sw_fournisseur.WriteLine("Référence : " & repertoire.Item(ligne, colonne))
                    Case 14
                        sw_fournisseur.WriteLine("Quantité : " & repertoire.Item(ligne, colonne) + 4)
                End Select
            Next colonne
            colonne = 0
            ligne += 1
            sw_fournisseur.WriteLine(ControlChars.Tab & "______________________" & vbCrLf)
        End While
fin:
        sw_fournisseur.Close()
    End Sub



voila, et j'appelle ma fonction commande_auto comme toi tu appelles ta fonction mise-en-page.

Sais-tu m'éclairer sur ce sujet?

Merci

j'ai fait ça comme j'ai pu, maintenant j'ai du le mettre en application assez vite mais je n'ai pas le temps en ce moment de continuer l'application et de l'améliorer au maximum.

j'ai été élevé à la dure, donc je code à la dure.... ;-)

ouais, si j'ai le temps je mettrais tout ça à jour...

comme pour la version vb6, ce n'est qu'un exemple que j'utilisais chez moi, donc maintenant à toi de mettre tes applic dedans.

J'avais pensé faire un truc pour laisser l'utilisateur insérer ses propres raccourcis, mais j'ai fait ça en triple vitesse....

dans l'aide j'avais précisé que ce n'était qu'un exemple : il faut donc mettre tes applications à toi....

merci pour la note ;-)

combien tu mettrais comme note en attendant??? (juste pour voir comment on juge cette source, en sachant que je vais encore la mettre à jour)

Si je commence à comprendre, mais pour le standardoutput..... Je vais aller faire un tour sur msdn et aussi pour le system.directoryservices...

Mais je garantis pas que ce soit pour tout de suite car je suis en train de faire mes stages en entreprises, alors j'ai pas mal de boulot

Merci de tes conseils...

ben c'est mon premier programme avec lequel j'utilise les processus, je ne sais donc pas trop comment m'y prendre...  :-(

ben tant qu'on y est, tu ne sais pas comment faire pour récupérer dans une variable le message qu'on reçoit quand le message a été envoyé? (le message a bien été envoyé  à ....)

Parce qu'en fait, au départ je pensais rajouter dans mes arguments ">c:\result.txt" et alors lire le fichier pour voir son contenu.
Mais quand je fais :
send.StartInfo.Arguments = " send "+this.textBox1.Text+" "+this.textBox2.Text +" >c:\\result.txt"; il prend ça comme le message à envoyer.
Je ne sais pas comment on peut faire pour rajouter un 2è argument à la commande. Si t'as une idée, elle est la bienvenue

sorry, j'ai pas pensé à les remettre dans le zip.
En fait, netxp, c'est un petit outil bien sympathique qui permet justement de mettre des infobulles versions Windows XP, des listes de tâches comme on trouve dans le poste de travail, enfin, bref, plein de choses qui font que ça ressemble à une application spéciales windows xp. Je sais c'est un n'importe quoi, mais quand j'ai vu ça, j'ai voulu le tester.

Si tu fais une recherche sur google pour netxp, tu le trouveras tout de suite. Si pas je le mettrais dans la prochaine mise à jour du programme (j'essaie de faire un accusé de réception et de mettre la liste des pc dans la combo dynamiquement)

voila, en fait j'ai trouvé le problème :
dans ma base de données, certains de mes champs contenaient des espaces (le titre des colonnes quoi). En fait, quand je remplace l'espace par un "_", ça marche bcp mieux...
Il m'a quand meme fallu 2 jours pour trouver que c'était ça qui posait problème (lol).

voila, donc ceux qui auront cette erreur sauront quoi faire

merci à tresorsdevie et 187bundy pour leur source...