Sauvegarde fichier
Résolu
papounez
Messages postés
118
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
-
27 juil. 2005 à 14:06
papounez Messages postés 118 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 18 novembre 2008 - 27 juil. 2005 à 15:09
papounez Messages postés 118 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 18 novembre 2008 - 27 juil. 2005 à 15:09
7 réponses
cs_franckydeluka
Messages postés
228
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
4 janvier 2008
1
27 juil. 2005 à 14:24
27 juil. 2005 à 14:24
salut ! essaye de faire comme ça :
Dim resultat
If Dir$(NomFichier) <> "" Then
resultat = MsgBox("le fichier existe déjà voulez- vous le remplacer ?",vbOkCancel)
If resultat = 1 Then
----là ta fonction pour créer ton fichier
End If
Deluka.
Dim resultat
If Dir$(NomFichier) <> "" Then
resultat = MsgBox("le fichier existe déjà voulez- vous le remplacer ?",vbOkCancel)
If resultat = 1 Then
----là ta fonction pour créer ton fichier
End If
Deluka.
PsyCaDi
Messages postés
123
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
30 mars 2009
27 juil. 2005 à 14:20
27 juil. 2005 à 14:20
Avec la fonction dir, tu peux savoir si un fichier existe
If Dir(MonFichier) <> "" then
Msgbox "Le fichier existe"
End if
If Dir(MonFichier) <> "" then
Msgbox "Le fichier existe"
End if
papounez
Messages postés
118
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
27 juil. 2005 à 14:29
27 juil. 2005 à 14:29
merci
mais ou metre le code ,qand ma boite de diolog est ouverte je choisi le nom du fichier
et la je veu (voulez vous l'ecraser oui ou non)
mais ou metre le code ,qand ma boite de diolog est ouverte je choisi le nom du fichier
et la je veu (voulez vous l'ecraser oui ou non)
papounez
Messages postés
118
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
27 juil. 2005 à 14:33
27 juil. 2005 à 14:33
ok
la reponse a ete plus rapide que la question
je vais essayer mais il me faut du temp
merci
la reponse a ete plus rapide que la question
je vais essayer mais il me faut du temp
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_franckydeluka
Messages postés
228
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
4 janvier 2008
1
27 juil. 2005 à 14:40
27 juil. 2005 à 14:40
si tu veux que la MsgBox t'affiche "oui" et "non" au lieu de "Ok" ou "Cancel"
tu met :
Dim filepath 'chemin d'accès à ton fichier
Dim resultat 'integer renvoyé par la msgBox 6=oui ; 7=non
If Dir$(filepath) <> "" Then
resultat = MsgBox("le fichier existe déjà voulez- vous le remplacer ?",vbYesNo)
If resultat = 6 Then
----là ta fonction pour créer ton fichier
End If
Deluka.
tu met :
Dim filepath 'chemin d'accès à ton fichier
Dim resultat 'integer renvoyé par la msgBox 6=oui ; 7=non
If Dir$(filepath) <> "" Then
resultat = MsgBox("le fichier existe déjà voulez- vous le remplacer ?",vbYesNo)
If resultat = 6 Then
----là ta fonction pour créer ton fichier
End If
Deluka.
papounez
Messages postés
118
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
27 juil. 2005 à 14:58
27 juil. 2005 à 14:58
il me fait une erreur de compil voici mon code j' appelle un module pour la sauvegarde
que j' ai pris sur le forum
Private Sub O_enregistre_Click()
O_sauve.ShowSave
Fich = O_sauve.FileName
If Dir$(Fich) <> "" Then
resultat = MsgBox("le fichier existe déjà voulez- vous leremplacer ?", vbOKCancel)
If resultat = 1 Then
' ----là ta fonction pour créer ton fichier
' Sauvegarder dans le fichier
Call SaveList(O_fenetre, Fich)
End If
End Sub
le module
' Sauvegarder le contenue d'une ListBox
Public Sub SaveList(ListName As ListBox, ByVal Fich As String)
' ListName -> Nom de la ListBox à sauvegarder
' Fichier -> Nom du fichier dans lequel sauvegarder le contenue de la ListBox
Dim I As Integer
Dim iFile As Integer
'Fich = O_sauve.FileName
iFile = FreeFile
' Ouvre le fichier en écriture(si le fichier n'existe pas il seras créé automatiquement)
Open Fich For Output As #iFile
Print #iFile, ":1000(ELIPSE)"
Print #iFile,
Print #iFile, "(COORDONNEE DE L'ELIPSE)"
Print #iFile,
' Passe tous les items de la ListBox 1 à 1 et les sauvegarde dans le fichier
For I = 0 To ListName.ListCount - 1
Print #iFile, ListName.List(I)
' Passe au suivant
Next I
Print #iFile,
Print #iFile, "%"
' Ferme le fichier(important)
Close #iFile
End Sub
que j' ai pris sur le forum
Private Sub O_enregistre_Click()
O_sauve.ShowSave
Fich = O_sauve.FileName
If Dir$(Fich) <> "" Then
resultat = MsgBox("le fichier existe déjà voulez- vous leremplacer ?", vbOKCancel)
If resultat = 1 Then
' ----là ta fonction pour créer ton fichier
' Sauvegarder dans le fichier
Call SaveList(O_fenetre, Fich)
End If
End Sub
le module
' Sauvegarder le contenue d'une ListBox
Public Sub SaveList(ListName As ListBox, ByVal Fich As String)
' ListName -> Nom de la ListBox à sauvegarder
' Fichier -> Nom du fichier dans lequel sauvegarder le contenue de la ListBox
Dim I As Integer
Dim iFile As Integer
'Fich = O_sauve.FileName
iFile = FreeFile
' Ouvre le fichier en écriture(si le fichier n'existe pas il seras créé automatiquement)
Open Fich For Output As #iFile
Print #iFile, ":1000(ELIPSE)"
Print #iFile,
Print #iFile, "(COORDONNEE DE L'ELIPSE)"
Print #iFile,
' Passe tous les items de la ListBox 1 à 1 et les sauvegarde dans le fichier
For I = 0 To ListName.ListCount - 1
Print #iFile, ListName.List(I)
' Passe au suivant
Next I
Print #iFile,
Print #iFile, "%"
' Ferme le fichier(important)
Close #iFile
End Sub
papounez
Messages postés
118
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
27 juil. 2005 à 15:09
27 juil. 2005 à 15:09
ok ca marche j'avais oublier un endif
tu vois qaund je suis rapide !!!!!!!!!!!!!
merci
PS: prog. pour une machine numerique en iso
tu vois qaund je suis rapide !!!!!!!!!!!!!
merci
PS: prog. pour une machine numerique en iso