Comment enregistrer avec commondialog...

Question

Bonjour à tous,
je voudrais savoir comment enregistrer un tableau (mshflexgrid) grâce à un commondialog....et le récuperer après avec un bouton ouvrir...
je ne sais pas comment faire..
merci pour votre aide

cs_allfab · Answer

personne ne sait....

Cramfr · Answer

Salut,
utilise plutôt getopenfilename.

Va voir :http://www.vbfrance.com/code.aspx?ID=678

Cramsoturf le VBien en quête de nouveau programme  :big)

cboulas · Answer

Si tu est en .Net passe le tout en XML

Le dataSet sait l'écrire automatiquement et le récupérer ensuite

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_allfab · Answer

non je suis en vb6...
le truc sur getfile.....
trop compliqué....

cs_allfab · Answer

Voilà je vais être plus clair, j'ai avancé un peu... alors j'ai cela comme code pour enregistrer et j'aimerais que ce soit plus automatique (avec l'aide de boucle for i = 0 to....)

Private Sub Save_Click()

Dim TonChemin As String
Dim Chemin As String
CMD.CancelError = True ' Attribue à CancelError la valeur True
On Error GoTo ErrHandler
CMD.DialogTitle = "Enregistrer" ' Définit le titre de la fenêtre
CMD.Flags = cdlOFNHideReadOnly ' Définit la propriété Flags
CMD.InitDir = "C:\Mes documents" ' Chemin Initial
'CMD.Filter = "Fichiers (*.*)|*.*" ' Définit les filtres
'CMD.FilterIndex = 2 ' Définit le filtre par défaut
CMD.ShowSave ' Affiche la boîte de dialogue Ouverture
TonChemin = CMD.FileName ' Enregistrement du Chemin Selectionné
'Chemin.Value = TonChemin
Chemin = TonChemin
'Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler

Open CMD.FileName For Output As #1
Write #1, recup2(0, 0)
Write #1, recup2(0, 1)
Write #1, recup2(0, 2)
Write #1, recup2(0, 3)
Write #1, recup2(0, 4)
Write #1, recup2(0, 5)
Write #1, recup2(1, 0)
Write #1, recup2(1, 1)
Write #1, recup2(1, 2)
Write #1, recup2(1, 3)
Write #1, recup2(1, 4)
Write #1, recup2(1, 5)
Close #1

End Sub

et après je souhaite ouvrir en récupérant le fichier enregistré, càd, 

Private Sub ouvrir_Click()

Dim TonChemin As String
Dim Chemin As String
CMD.CancelError = True ' Attribue à CancelError la valeur True
On Error GoTo ErrHandler
CMD.DialogTitle = "Enregistrer" ' Définit le titre de la fenêtre
CMD.Flags = cdlOFNHideReadOnly ' Définit la propriété Flags
CMD.InitDir = "C:\Mes documents" ' Chemin Initial
'CMD.Filter = "Fichiers (*.*)|*.*" ' Définit les filtres
'CMD.FilterIndex = 2 ' Définit le filtre par défaut
CMD.ShowOpen  ' Affiche la boîte de dialogue Ouverture
TonChemin = CMD.FileName ' Enregistrement du Chemin Selectionné
'Chemin.Value = TonChemin
Chemin = TonChemin
'Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler

Open CMD.FileName For Input As #1
    Je récupère toutes les infos dans un tableau()
et comme ça je peux les réinsérer dans un mshflexgrid...

    Close #1
End Sub

Merci pour tous ceux qui contribueront à me faire avancé et longue vie à ce site.

Comment enregistrer avec commondialog...

5 réponses

Discussions similaires