moumoute6919
Messages postés3Date d'inscriptionsamedi 16 décembre 2000StatutMembreDernière intervention28 mai 2009
-
25 sept. 2008 à 23:40
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
26 sept. 2008 à 20:57
Comment choisir l'emplacement d'un fichier à enregistrer selon l'ordinateur? En d'autre mots, comment faire en sorte que je puisse choisir l'emplacement où que je veux que mon fichier s'enregistre sans que cet emplacement ne soit fixe. Je réussis, à l'aide des lignes qui vont suivent, à faire enregistrer mon fichier à un endroit fixe, mais j'aimerais que vba puisse me demander à quelle endroit je le veux :
Open "C:\Documents and Settings\Julien\Bureau\doyon.xyz" For Output As #1
For i0 = 1 To i0max + 1
cx(i0) = (cx(i0) - 350) * 2.5
cy(i0) = (cy(i0) - 150) * 3.5cz(i0) (cz(i0) - 150) * 3.5: rr(i0) 3 * rr(i0)
Print #1, cx(i0), cy(i0), cz(i0), rr(i0), ss(i0)
Next i0
Close #1
Merci d'avance!!!!
A voir également:
Comment choisir l'emplacement d'un fichier à enregistrer selon l'ordinateur?
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 sept. 2008 à 09:55
Salut,
>[../auteur/OROHENA/1483575.aspx Orohena] : Tu proposes un code en VBA et si [../auteur/MOUMOUTE6919/1438850.aspx moumoute6919] ne s'est pas trompé de section nous cherchons une solution en VB6.
Il faut donc Utiliser comme le propose [../auteur/GILLARDG/1360034.aspx gillardg] (bonjour aussi....) commondialog, le .
Tu peux le trouve en l'ajoutant comme composant. il est dans Microsoft Common Dialog COntrol 6.0 (SP6)
Il te suffit ensuite de l'insérer dans un formulaire puis de tester ceci.
Dim StrPath As String
'Répertoire par défaut
CommonDialog1.InitDir = "C:\"
'génère une erreur si l'utilisateur appuie sur Cancel
CommonDialog1.CancelError = True
'montre la boite de dialogue de sauvegarde
CommonDialog1.ShowSave
StrPath = CommonDialog1.FileName
Open StrPath For Output As #1
For i0 = 1 To i0max + 1
cx(i0) = (cx(i0) - 350) * 2.5
cy(i0) = (cy(i0) - 150) * 3.5 cz(i0) (cz(i0) - 150) * 3.5: rr(i0) 3 * rr(i0)
Print #1, cx(i0), cy(i0), cz(i0), rr(i0), ss(i0)
Next i0
Close #1, ----
[../code.aspx?ID=41455 By Renfield]
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 20104 26 sept. 2008 à 04:37
Bonjour Moumoute6919
La procédure ci-dessous ouvre une boîte de dialogue "Sauvegarder". Passez le nom de fichier en paramètre. Exemple : enregistrer "doyon.xyz"
Sub enregistrer(nomFichier as string)
dim n As Variant, newName As String, fs As Object
' par defaut, sauvegarder dans le repertoire du classeur
n = ActiveWorkbook.Path & Application.PathSeparator & nomFichier
' ouvre la boite de dialogue GetSaveAsFilename
n = Application.GetSaveAsFilename(n, "tous les fichiers,*.*", _
1, "Enregistrer un fichier")
If n = False Then Exit Sub ' l'utilisateur a fait "Annuler"
' le bloc ci-dessous gère l'écrasement de fichier
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists(n) Then
fs.getfile (n)
newName = fs.getfilename(n)
If nomFichier <> newName Then
If MsgBox("Le fichier """ & newName & _
""" existe déjà. Voulez-vous le remplacer ?", _
vbYesNo + vbQuestion, _
"Remplacer un fichier existant") = vbNo Then Exit Sub
End If
End If
'
nomFichier = fs.getfilename(n)
Open n For Output As #1
.
.<votre code d'ecriture du fichier ici>
.
Close
End Sub