mabejaoui
Messages postés15Date d'inscriptionmardi 16 septembre 2008StatutMembreDernière intervention10 octobre 2008
-
30 sept. 2008 à 13:22
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
30 sept. 2008 à 15:16
Bonjour,
Je developpe une Macro en VBA sous Excel, je fais generer un fichier texte lors d'un click sur un bouton et l'enregister,la destination du fichier est ecrite dans le code le probleme c'est que je n'arrive pas à donner la main à l'utilisateur pour choisir l'emplacement du fichier du rapport d'erreurs
.
Code utilisé :
Private Sub Bt_Controler_Click()
Dim Fsys As Object
Dim MyFile As Object
Set Fsys = CreateObject("Scripting.FileSystemObject")
Set MyFile = Fsys.CreateTextFile("C:\RapportErreurRAF.txt")
If condition Then
MyFile.writeLine "Erreur Prévisionnel Initial"
End If
End Sub
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 30 sept. 2008 à 13:43
Salut,
Si tu souhaites faire en sorte que l'utilisateur puisse changer ce chemin ("C:\RapportErreurRAF.txt"), il faut pour cela utiliser un CommondDialog, Contrôle à insérer dans un USerForm.
reporte toi à Google ou dans le forum pour plus d'info à ce sujet
mabejaoui
Messages postés15Date d'inscriptionmardi 16 septembre 2008StatutMembreDernière intervention10 octobre 2008 30 sept. 2008 à 14:27
Voici la solution :
Dim TonChemin As String
Set CommonDialog = CreateObject("MSComDlg.CommonDialog")
CommonDialog.CancelError = False ' Attribue à CancelError la valeur True
CommonDialog.DialogTitle = "Selection de Fichier" ' Définit le titre de la fenêtre
CommonDialog.flags = cdlOFNHideReadOnly ' Définit la propriété Flags
CommonDialog.InitDir = "C:" ' Chemin Initial
CommonDialog.Filter = "Fichiers (*.*)|*.*" ' Définit les filtres
CommonDialog.FilterIndex = 2 ' Définit le filtre par défaut
CommonDialog.ShowSave ' Affiche la boîte de dialogue Ouverture
TonChemin = CommonDialog.Filename ' Enregistrement du Chemin Selectionné
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 30 sept. 2008 à 15:16
Salut,
c'est tres bien mais il y a moyen de simplifier l'ecriture :
Dim TonChemin As String
Set CommonDialog = CreateObject("MSComDlg.CommonDialog")
With CommonDialog
' Attention tout les points sont OBLIGATOIRE
.CancelError = False ' Attribue à CancelError la valeur True
.DialogTitle = "Selection de Fichier" ' Définit le titre de la fenêtre
.flags = cdlOFNHideReadOnly ' Définit la propriété Flags
.InitDir = "C:" ' Chemin Initial
.Filter = "Fichiers (*.*)|*.*" ' Définit les filtres
.FilterIndex = 2 ' Définit le filtre par défaut
.ShowSave ' Affiche la boîte de dialogue Ouverture
TonChemin = .Filename ' Enregistrement du Chemin Selectionné
End With
MsgBox TonChemin