PureBasic

j'ai creer un fichier, mais j'ai du oublier quelque chose, est-ce que quelqu'un pourrait me donner un petit coup de main svp?

Procedure creation_fichier()
If CreateGadgetList(WindowID())

If CreateFile(0,"catalogue.txt")

titre.s= GetGadgetItemText(#text_9,a,1)
realisateur.s=GetGadgetItemText(#text_11,a,2)
acteur1.s = GetGadgetItemText(#text_13,a,3)
acteur2.s=GetGadgetItemText(#text_14,a,4)
acteur3.s=GetGadgetItemText(#text_15,a,5)
duree.s=GetGadgetItemText(#text_17,a,6)
origine.s=getgadgetitemtext(#text_19,a,7)
annee.s=GetGadgetItemText(#text_21,a,8)
producteur.s=GetGadgetItemText(#text_23,a,9)

WriteString(titre)
WriteString(realisateur)
WriteString(acteur1)
WriteString(acteur2)
WriteString(acteur3)

WriteString(duree)
WriteString(origine)
WriteString(annee)
WriteString(producteur)

CloseFile(0)
SaveFileRequester("Sauver un fichier","c:\PureBasic\catalogue","Fichiers PureBasic|*.pb;*.pbi|Tout type|*.*",0)

EndIf
EndIf

EndProcedure

à premiere vue si le savefilerequester te sert à choisir l'emplacement de ton fichier, il est mal placé, il le mettre à la place de "catalogue.txt"
ce qui donnerais If CreateFile(0,SaveFileRequester("Sauver un fichier","c:\PureBasic\catalogue","Fichiers PureBasic|*.pb;*.pbi|Tout type|*.*",0) )

"catalogue.txt" étant le fichier que tu crées, regarde dans le dossier de ton appli , il doit s'y trouver....

patrick

Code : Tout sélectionner

Procedure creation_fichier()

  ; Demande le nom du fichier à l'utilisateur
  Fichier.s = SaveFileRequester("Sauver le fichier", "c:\PureBasic\catalogue\", "Fichiers texte|*.txt", 0)
  
  
  If Fichier = "" ; Si la function retourne un texte vide, vous avez appuyé sur annulé
    Debug "Vous avez annulé la sauvegarde"
    
  Else ; si la fonction SaveFileRequester retourne une valeur
    Debug "Fichier : " + Fichier
    
    If GetExtensionPart(Fichier) = "" ; si le nom de fichier ne comporte pas d'extension
      Fichier = Fichier + ".txt" ; on ajoute l'extension
      Debug "Fichier avec extension : " + Fichier
    EndIf
      
    Debug "Vous pouvez créer un fichier avec CreateFile(0, " + Chr(34) + Fichier + Chr(34) + ")"

  EndIf
EndProcedure

creation_fichier()

Et voila

le temps que je fasse un copier coller ,le soldat avait déjà répondu , tant pis je laisse la réponse

Code : Tout sélectionner

Procedure creation_fichier() 
   ; ceci n'est pas indispensable  ,c'est juste pour se placer dans le même répertoire que ton appli
   Repertoire.s = Space(256)
   GetCurrentDirectory_(256,@Repertoire)
   
   Titre$ = "Enregistre un catalogue"
   FichierParDefaut$ = Repertoire+"\" 
   Filtre$ = "Fichiers texte |*.Txt" ; ici tu devrais choisir un autre nom d'extension ( ex : .ctg), spécifique à ton prog , ça facilite la recherche des fichiers compatibles avec ton appli
   FiltrePosition = 0
   Chemin$ = SaveFileRequester(Titre$, FichierParDefaut$, Filtre$, FiltrePosition) 
   fichier$ = GetFilePart(Chemin$)
   EnregistreFichier = #True
   ;on écrase le fichier s'il existe ?
   If FileSize(Chemin$)>0
      Reponse = MessageRequester("Enregistre catalogue","Voulez vous écraser ce catalogue " + fichier$ + " ? ",#PB_MessageRequester_YesNo )
      If Reponse <> 6
         EnregistreFichier = #False
      EndIf
   EndIf   
   
   If EnregistreFichier   
   
      If CreateFile(0,Chemin$) 
         
         Titre.s= GetGadgetItemText(#text_9,a,1) 
         realisateur.s=GetGadgetItemText(#text_11,a,2) 
         acteur1.s = GetGadgetItemText(#text_13,a,3) 
         acteur2.s=GetGadgetItemText(#text_14,a,4) 
         acteur3.s=GetGadgetItemText(#text_15,a,5) 
         duree.s=GetGadgetItemText(#text_17,a,6) 
         origine.s=GetGadgetItemText(#text_19,a,7) 
         annee.s=GetGadgetItemText(#text_21,a,8) 
         producteur.s=GetGadgetItemText(#text_23,a,9) 
         
         WriteStringN(Titre) 
         WriteStringN(realisateur) 
         WriteStringN(acteur1) 
         WriteStringN(acteur2) 
         WriteStringN(acteur3) 
         
         WriteStringN(duree) 
         WriteStringN(origine) 
         WriteStringN(annee) 
         WriteStringN(producteur) 
          
         CloseFile(0) 
        
      EndIf 

   EndIf
   
EndProcedure

merci beaucoup a tous
ca marche et c'est génial

voici une petite procédure pour la prochaine fois que tu mettras un bout de code sur le forum , ça facilitera la lecture

- 1 - Copie ton code dans le post
- 2 - Sélectionne le code à la souris
- 3 - Clique sur le bouton

Code : Tout sélectionner

 en haut entre [Quote] et [List]

et voila , ainsi l'indentation de ton code sera conservée .

y a _ t il une autre fonction que savefilerequester qui permettrait d'enregister le fichier sans ouvrir de fenetre ?

saverequester() ne fait pas la sauvegarde du fichier ,ça permet seulement d'afficher une fenêtre pour sélectionner un fichier , ou indiquer un fichier .

Pour la sauvegarde il faut utiliser CreateFile()
ou OpenFile()

Je te renvoie à l'aide de purebasic pour lire la différence entre ces deux commandes .

Et si ce n'est pas clair , comme d'hab , il y a aura quelqu'un pour répondre ici à tes questions

Code : Tout sélectionner

Procedure creation_fichier() 
      If CreateFile(0,"catalogue.Txt") 
          
         Titre.s= GetGadgetItemText(#text_9,a,1) 
         realisateur.s=GetGadgetItemText(#text_11,a,2) 
         acteur1.s = GetGadgetItemText(#text_13,a,3) 
         acteur2.s=GetGadgetItemText(#text_14,a,4) 
         acteur3.s=GetGadgetItemText(#text_15,a,5) 
         duree.s=GetGadgetItemText(#text_17,a,6) 
         origine.s=GetGadgetItemText(#text_19,a,7) 
         annee.s=GetGadgetItemText(#text_21,a,8) 
         producteur.s=GetGadgetItemText(#text_23,a,9) 
          
         WriteStringN(Titre) 
         WriteStringN(realisateur) 
         WriteStringN(acteur1) 
         WriteStringN(acteur2) 
         WriteStringN(acteur3) 
          
         WriteStringN(duree) 
         WriteStringN(origine) 
         WriteStringN(annee) 
         WriteStringN(producteur) 
          
         CloseFile(0) 
        
      EndIf 
   
EndProcedure

lorsque j'envoies la procedure creation_fichier, en me servant seulement de createfile rien ne se passe, il ne m'enregistre rien, c'est pour ca que j'avais pense me servir de savefilerequester.
j'avoue que je suis perdue.
et je voulais savoir aussi lorsque j'arriverai a le faire marcher, lorsque j'entrerai une nouvelle fiche, est-ce qu'il me gardera en memoire la premiere, ou est-ce qu'il faudra que je rajoute un add quelque chose..

j'ai l'air nul, mais je me suis mis a la programmation qu'il y a à peine 2 semaines et j'ai vraiment envie d'y arriver.

merci pour votre aide, qui m'a bien fait avancer jusqu'à maintenant.

tu peux mettre ton code complet qu'on puisse y jeter un oeil ?

tu as quoi comme gadget ?

GetGadgetItemText(#text_9,a,1)

ajoute ceci dans ta procedure create_fichier() , juste avant closefile()

Code : Tout sélectionner

debug Titre 
debug realisateur 
etc

histoire de vérifier qu'il y a bien quelque chose à enregistrer , sinon le fichier est créé ? ou il n'y a rien du tout ?

j'essaie de rajouter les debug

je te tiens au courant

bien je t'envoie tout le programme

;déclaration des constantes

Enumeration

#menu
#Text_0
#Text_1
#Text_2
#Text_3
#Text_4
#Text_5
#Text_6
#Text_7
#Text_8
#text_9
#text_10
#text_11
#text_12
#text_13
#text_14
#text_15
#text_16
#text_17
#text_18
#text_19
#text_20
#text_21
#text_22
#text_23
#text_24
#text_25
#String_0
#String_1
#String_2
#String_3
#String_4
#String_5
#String_6
#String_7
#String_8
#Button_0
#Button_1

EndEnumeration

Enumeration

#bouton_inserer
#page_film
#sauvegarder
#corriger
#gadget_editeur
EndEnumeration
Global titre$, acteur1$, realisateur$, acteur2$, acteur3$, duree$, origine$, annee$, producteur$
Declare creation_de_film()
Declare recapitulatif()
Declare creation_fichier()
Procedure ouverture_menu()

If OpenWindow(#menu,0,0,200,200,#pb_window_systemmenu|#pb_window_windowcentered,"menu")

If CreateGadgetList (WindowID())

ButtonGadget(#bouton_inserer,10,10,180,20,"INSERER UN FILM")

EndIf

EndIf

Repeat

eventid = WaitWindowEvent()

If EventID = #PB_EventGadget
Select EventGadgetID()

Case #bouton_inserer
HideWindow(#menu,1)
creation_de_film()
HideWindow(#menu,0)

EndSelect
EndIf
Until EventID = #PB_EventCloseWindow

EndProcedure

Procedure creation_de_film()

If OpenWindow(#page_film, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "information pour le film")
If CreateGadgetList(WindowID())
TextGadget(#Text_0, 10, 10, 90, 20, "Titre du film :")
TextGadget(#Text_1, 10, 40, 90, 20, "Réalisateur :")
TextGadget(#Text_2, 10, 70, 90, 20, "Premier acteur :")
TextGadget(#Text_3, 10, 100, 90, 20, "Deuxième acteur :")
TextGadget(#Text_4, 10, 130, 90, 20, "Troisième acteur :")
TextGadget(#Text_5, 10, 160, 90, 20, "Durée :")
TextGadget(#Text_6, 10, 190, 90, 20, "Origine :")
TextGadget(#Text_7, 10, 220, 90, 20, "Année :")
TextGadget(#Text_8, 10, 250, 90, 20, "Producteur :")
StringGadget(#String_0, 100, 10, 210, 20, "")
StringGadget(#String_1, 100, 40, 210, 20, "")
StringGadget(#String_2, 100, 70, 210, 20, "")
StringGadget(#String_3, 100, 100, 210, 20, "")
StringGadget(#String_4, 100, 130, 210, 20, "")
StringGadget(#String_5, 100, 160, 210, 20, "")
StringGadget(#String_6, 100, 190, 210, 20, "")
StringGadget(#String_7, 100, 220, 210, 20, "")
StringGadget(#String_8, 100, 250, 210, 20, "")
ButtonGadget(#Button_0, 30, 290, 120, 30, "Terminer")
ButtonGadget(#Button_1, 190, 290, 120, 30, "Annuler")

EndIf

Repeat

EventID = WaitWindowEvent()

If EventID = #PB_EventGadget
Select EventGadgetID() ; La gestion des évenements

Case #Button_0
; L'utilistateur à terminer la saisie des informations
titre$ = GetGadgetText(#String_0)
realisateur$ = GetGadgetText(#String_1)
acteur1$ = GetGadgetText(#String_2)
acteur2$ = GetGadgetText(#String_3)
acteur3$ = GetGadgetText(#String_4)
duree$ = GetGadgetText(#String_5)
origine$ = GetGadgetText(#String_6)
annee$ = GetGadgetText(#String_7)
producteur$ = GetGadgetText(#String_8)
; On a mémorisé toute les informations utiles
; on ferme la fenetre.

recapitulatif()
Case #Button_1
; L'utilisateur à changer d'idée, on ferme la fenètre
EventID = #PB_EventCloseWindow

EndSelect
EndIf
Until EventID = #PB_EventCloseWindow

EndIf
; On ferme la Fenètre pour la saisie des informations d'un film
CloseWindow(#page_film)

EndProcedure
ouverture_menu()

Procedure recapitulatif()

If OpenWindow(#page_film, 216, 0,430, 400, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "Récapitulatif des informations pour le nouveau film")

If CreateGadgetList(WindowID())

ButtonGadget(#sauvegarder,10,340,200,20,"sauvegarder")
ButtonGadget(#corriger,220,340,200,20,"corriger")

If LoadFont(0,"arial",25,#PB_Font_Underline )
SetGadgetFont(#pb_default,FontID())

TextGadget(#text_9,10,10,430,40,titre$,#pb_text_center)

SetGadgetFont(#pb_default,#pb_default)
TextGadget(#text_10,10,100,100,20,"Réalisé par :")
TextGadget(#text_11,200,100,50,20,realisateur$)
TextGadget(#text_12,10,130,100,20,"avec entre autre : ")
TextGadget(#text_13,200,130,100,15,acteur1$)
TextGadget(#text_14,200,150,100,15,acteur2$)
TextGadget(#text_15,200,170,100,15,acteur3$)
TextGadget(#text_16,10,200,150,20,"La duree du film est de :")
TextGadget(#text_17,200,200,100,200,duree$)
TextGadget(#text_18,10,230,100,20,"l'origine est : ")
TextGadget(#text_19,200,230,100,20,origine$)
TextGadget(#text_20,10,260,190,20,"l'année de création de "+titre$+" est :")
TextGadget(#text_21,200,260,100,20,annee$)
TextGadget(#text_22,10,290,100,20,"produit par : ")
TextGadget(#text_23,200,290,100,20,producteur$)
EndIf

Repeat
eventid = WaitWindowEvent()

If EventID = #PB_EventGadget
Select EventGadgetID()

Case #corriger
HideWindow(#page_film,1)
creation_de_film()
HideWindow(#page_film,0)
Case#sauvegarder
creation_fichier()
EndSelect
EndIf

Until EventID = #PB_EventCloseWindow

EndIf
EndIf

EndProcedure
Procedure creation_fichier()
If CreateFile(0,"catalogue.Txt")

Titre.s= GetGadgetItemText(#text_9,a,1)
realisateur.s=GetGadgetItemText(#text_11,a,2)
acteur1.s = GetGadgetItemText(#text_13,a,3)
acteur2.s=GetGadgetItemText(#text_14,a,4)
acteur3.s=GetGadgetItemText(#text_15,a,5)
duree.s=GetGadgetItemText(#text_17,a,6)
origine.s=GetGadgetItemText(#text_19,a,7)
annee.s=GetGadgetItemText(#text_21,a,8)
producteur.s=GetGadgetItemText(#text_23,a,9)

WriteStringN(Titre)
WriteStringN(realisateur)
WriteStringN(acteur1)
WriteStringN(acteur2)
WriteStringN(acteur3)

WriteStringN(duree)
WriteStringN(origine)
WriteStringN(annee)
WriteStringN(producteur)

Debug titre
Debug realisateur
Debug acteur1
Debug acteur2
Debug acteur3
Debug duree
Debug origine
Debug annee
Debug producteur

CloseFile(0)

EndIf

EndProcedure
End

Code : Tout sélectionner


desolé mais je ne voie pas ce qui ne va pas

je te le renvoies en faisant la bonne manip

désolé

Code : Tout sélectionner


;déclaration des constantes

Enumeration

#menu
#Text_0 
     #Text_1 
     #Text_2 
     #Text_3 
     #Text_4 
     #Text_5 
     #Text_6 
     #Text_7 
     #Text_8 
     #text_9
     #text_10
     #text_11
     #text_12
     #text_13
     #text_14
     #text_15
     #text_16
     #text_17
     #text_18
     #text_19
     #text_20
     #text_21
     #text_22
     #text_23
     #text_24
     #text_25
     #String_0 
     #String_1 
     #String_2 
     #String_3 
     #String_4 
     #String_5 
     #String_6 
     #String_7 
     #String_8 
     #Button_0 
     #Button_1 




EndEnumeration


Enumeration

#bouton_inserer
#page_film
#sauvegarder
#corriger
#gadget_editeur
EndEnumeration
Global titre$, acteur1$, realisateur$, acteur2$, acteur3$, duree$, origine$, annee$, producteur$ 
Declare creation_de_film()
Declare recapitulatif()
Declare creation_fichier()
Procedure ouverture_menu()


  If OpenWindow(#menu,0,0,200,200,#pb_window_systemmenu|#pb_window_windowcentered,"menu")
  
    If CreateGadgetList (WindowID())
    
      ButtonGadget(#bouton_inserer,10,10,180,20,"INSERER UN FILM")
     
      
    EndIf
  
  
  EndIf
  
      Repeat
      
  
      eventid = WaitWindowEvent()
      
      
       If EventID = #PB_EventGadget 
          Select EventGadgetID()
  
  Case #bouton_inserer
  HideWindow(#menu,1)
  creation_de_film()
  HideWindow(#menu,0)
   
  
  
  
  
     EndSelect 
     EndIf 
Until EventID = #PB_EventCloseWindow 

EndProcedure 

Procedure creation_de_film() 


      If OpenWindow(#page_film, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "information pour le film") 
          If CreateGadgetList(WindowID()) 
               TextGadget(#Text_0, 10, 10, 90, 20, "Titre du film :") 
               TextGadget(#Text_1, 10, 40, 90, 20, "Réalisateur :") 
               TextGadget(#Text_2, 10, 70, 90, 20, "Premier acteur :") 
               TextGadget(#Text_3, 10, 100, 90, 20, "Deuxième acteur :") 
               TextGadget(#Text_4, 10, 130, 90, 20, "Troisième acteur :") 
               TextGadget(#Text_5, 10, 160, 90, 20, "Durée :") 
               TextGadget(#Text_6, 10, 190, 90, 20, "Origine :") 
               TextGadget(#Text_7, 10, 220, 90, 20, "Année :") 
               TextGadget(#Text_8, 10, 250, 90, 20, "Producteur :") 
               StringGadget(#String_0, 100, 10, 210, 20, "") 
               StringGadget(#String_1, 100, 40, 210, 20, "") 
               StringGadget(#String_2, 100, 70, 210, 20, "") 
               StringGadget(#String_3, 100, 100, 210, 20, "") 
               StringGadget(#String_4, 100, 130, 210, 20, "") 
               StringGadget(#String_5, 100, 160, 210, 20, "") 
               StringGadget(#String_6, 100, 190, 210, 20, "") 
               StringGadget(#String_7, 100, 220, 210, 20, "") 
               StringGadget(#String_8, 100, 250, 210, 20, "") 
               ButtonGadget(#Button_0, 30, 290, 120, 30, "Terminer") 
               ButtonGadget(#Button_1, 190, 290, 120, 30, "Annuler") 
                
          EndIf 
          
          Repeat 
                
               EventID = WaitWindowEvent() 
                
               If EventID = #PB_EventGadget 
                    Select EventGadgetID() ; La gestion des évenements 
                              
                         Case #Button_0 
                              ; L'utilistateur à terminer la saisie des informations 
                              titre$ = GetGadgetText(#String_0) 
                              realisateur$ = GetGadgetText(#String_1) 
                             acteur1$ = GetGadgetText(#String_2) 
                              acteur2$ = GetGadgetText(#String_3) 
                              acteur3$ = GetGadgetText(#String_4) 
                              duree$ = GetGadgetText(#String_5) 
                              origine$ = GetGadgetText(#String_6) 
                              annee$ = GetGadgetText(#String_7) 
                              producteur$ = GetGadgetText(#String_8) 
                              ; On a mémorisé toute les informations utiles 
                              ; on ferme la fenetre. 
                              
                            recapitulatif()
                         Case #Button_1 
                              ; L'utilisateur à changer d'idée, on ferme la fenètre 
                              EventID = #PB_EventCloseWindow 
                              
                    EndSelect 
               EndIf 
          Until EventID = #PB_EventCloseWindow 
          
     EndIf 
     ; On ferme la Fenètre pour la saisie des informations d'un film 
     CloseWindow(#page_film) 

EndProcedure
ouverture_menu()

Procedure recapitulatif()


If OpenWindow(#page_film, 216, 0,430, 400, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "Récapitulatif des informations pour le nouveau film") 

 

If CreateGadgetList(WindowID())

 ButtonGadget(#sauvegarder,10,340,200,20,"sauvegarder")
  ButtonGadget(#corriger,220,340,200,20,"corriger")

 If LoadFont(0,"arial",25,#PB_Font_Underline   )
SetGadgetFont(#pb_default,FontID())


TextGadget(#text_9,10,10,430,40,titre$,#pb_text_center)


SetGadgetFont(#pb_default,#pb_default)
TextGadget(#text_10,10,100,100,20,"Réalisé par :")
TextGadget(#text_11,200,100,50,20,realisateur$)
TextGadget(#text_12,10,130,100,20,"avec entre autre : ")
TextGadget(#text_13,200,130,100,15,acteur1$)
TextGadget(#text_14,200,150,100,15,acteur2$)
TextGadget(#text_15,200,170,100,15,acteur3$)
TextGadget(#text_16,10,200,150,20,"La duree du film est de :")
TextGadget(#text_17,200,200,100,200,duree$)
TextGadget(#text_18,10,230,100,20,"l'origine est : ")
TextGadget(#text_19,200,230,100,20,origine$)
TextGadget(#text_20,10,260,190,20,"l'année de création de "+titre$+" est :")
TextGadget(#text_21,200,260,100,20,annee$)
TextGadget(#text_22,10,290,100,20,"produit par : ")
TextGadget(#text_23,200,290,100,20,producteur$)
EndIf

Repeat
eventid = WaitWindowEvent()
      
      
       If EventID = #PB_EventGadget 
          Select EventGadgetID()
  
  
  Case #corriger
  HideWindow(#page_film,1)
  creation_de_film()
  HideWindow(#page_film,0)
  Case#sauvegarder
 creation_fichier()
 EndSelect
EndIf




Until EventID = #PB_EventCloseWindow 
          
EndIf
EndIf

EndProcedure
Procedure creation_fichier()
If CreateFile(0,"catalogue.Txt") 
          
         Titre.s= GetGadgetItemText(#text_9,a,1) 
         realisateur.s=GetGadgetItemText(#text_11,a,2) 
         acteur1.s = GetGadgetItemText(#text_13,a,3) 
         acteur2.s=GetGadgetItemText(#text_14,a,4) 
         acteur3.s=GetGadgetItemText(#text_15,a,5) 
         duree.s=GetGadgetItemText(#text_17,a,6) 
         origine.s=GetGadgetItemText(#text_19,a,7) 
         annee.s=GetGadgetItemText(#text_21,a,8) 
         producteur.s=GetGadgetItemText(#text_23,a,9) 
          
         WriteStringN(Titre) 
         WriteStringN(realisateur) 
         WriteStringN(acteur1) 
         WriteStringN(acteur2) 
         WriteStringN(acteur3) 
          
         WriteStringN(duree) 
         WriteStringN(origine) 
         WriteStringN(annee) 
         WriteStringN(producteur) 
         
         Debug titre
         Debug realisateur
         Debug acteur1
         Debug acteur2
         Debug acteur3
         Debug duree
         Debug origine
         Debug annee
         Debug producteur
          
         CloseFile(0) 
        
      EndIf 
    

    
 





EndProcedure
End

mets plutôt ça dans la procedure create_fichier() , ça te dépannera .
pour l'organisation du prog , on verra plus tard ,là je vais bosser

Code : Tout sélectionner

      Titre.s= GetGadgetText(#text_9) 
      realisateur.s=GetGadgetText(#text_11) 
      acteur1.s = GetGadgetText(#text_13) 
      acteur2.s=GetGadgetText(#text_14) 
      acteur3.s=GetGadgetText(#text_15) 
      duree.s=GetGadgetText(#text_17) 
      origine.s=GetGadgetText(#text_19) 
      annee.s=GetGadgetText(#text_21) 
      producteur.s=GetGadgetText(#text_23)

Mais ????, tu mets des post partout ... j'ai répondu ailleurs sur un sujet Help!!!!!!!!!!!!!!!!!!!
et c'est tout bon

ça marche quoi

PureBasic

mon fichier est vide

mon fichier est vide