Discussion :

[hacker59]

bonjour,
j'ai crée deux buttons : 1 save et 1 afficher le fichier parcouru

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim save As New SaveFileDialog
            save.Filter = "ALL FILE (*.*)|*.*"
            If save.ShowDialog = Windows.Forms.DialogResult.Cancel Then
                Textbox2.Text = save.FileName
            End If

je voudrais savoir comment afficher le chemin parcouru dans mon textbox2.text.

merci.

[strikel]

salut,

tu remplis ton textbox si l'utilisateur à cliquer sur le bouton cancel, la valeur filename sera toujours vide

ce ne serais pas ça plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim save As New SaveFileDialog
            save.Filter = "ALL FILE (*.*)|*.*"
            If save.ShowDialog = Windows.Forms.DialogResult.Ok Then
                Textbox2.Text = save.FileName
            End If

[wallace1]

ce ne serais pas ça plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim save As New SaveFileDialog
            save.Filter = "ALL FILE (*.*)|*.*"
            If save.ShowDialog = Windows.Forms.DialogResult.Ok Then
                Textbox2.Text = save.FileName
            End If

Je plussois strikel, une erreur d'inattention certainement !

[clementmarcotte]

Bonjour,

une erreur d'inattention certainement !

Je dirais qu'il y a certainement une erreur d'inattention là:

aide affichier le fichier parcouru

Mais je pense que seuls l'auteur initial ou un modérateur pourraient corriger l'intitulé

[hacker59]

bonjour,

je me suis mal exprimer, je voudrais ouvrir le répertoire dans mon SaveFileDialog.
j'ai essayer : process.start(textbox1.text) => il démarre le fichier .

comment on écrie le code pour ouvrir le répertoire de savefiledialog.
merci.

[rv26t]

Bonjour,

...je voudrais ouvrir le répertoire dans mon SaveFileDialog.
...comment on écrie le code pour ouvrir le répertoire de savefiledialog.

Il suffit de regarder les propriétées disponibles avec l'intellisense, et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        SaveFileDialog1.InitialDirectory = "d:\data\"
        SaveFileDialog1.FileName = "NomDuFichier.txt"
        SaveFileDialog1.ShowDialog()

[clementmarcotte]

Directement de l'aide de VBA Excel

Référence du développeur Excel
Application.GetSaveAsFilename, méthode
Cette méthode affiche la boîte de dialogue standard Enregistrer sous et lit un nom de fichier tapé par l'utilisateur sans réellement enregistrer les fichiers.
Syntaxe

expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

expression Variable qui représente un objet Application.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
InitialFilename Facultatif Variante Spécifie le nom de fichier suggéré. Si cet argument n'est pas spécifié, Excel utilise le nom du classeur actif.
FileFilter Facultatif Variante Chaîne spécifiant les critères de filtrage des fichiers.
FilterIndex Facultatif Variante Spécifie le numéro d'index des critères de filtrage de fichier par défaut, de 1 au nombre de filtres spécifiés dans FiltreFichier. Le premier filtre de fichier est utilisé si l'argument n'a pas été spécifié ou s'il est plus grand que le nombre de filtres présents.
Title Facultatif Variante Spécifie le titre de la boîte de dialogue. Si cet argument n'a pas été spécifié, le titre par défaut est utilisé.
ButtonText Facultatif Variante Macintosh uniquement.

Valeur renvoyée
Variante

Remarques


Cette chaîne passée à l'argument FiltreFichier est constituée de paires de chaînes de caractères représentant le filtre de fichier suivies de la spécification de filtre de fichier à caractère générique de MS-DOS, dont chaque partie et chaque paire est séparée par une virgule. Chaque paire distincte est contenue dans la liste déroulante Type de fichier. Par exemple, la chaîne suivante spécifie deux filtres de fichiers (fichiers texte et macros complémentaires) : « Fichiers texte (*.txt),*.txt,Macros complémentaires (*.xla),*.xla ».

Pour utiliser les expressions multiples à caractère générique de MS-DOS pour un seul type de filtre de fichier, séparez les expressions à caractères génériques par des points-virgules ; par exemple, « Fichiers Visual Basic (*.bas; *.txt),*.bas;*.txt ».

Cette méthode renvoie le nom du fichier sélectionné ou le nom entré par l'utilisateur. Le nom renvoyé est susceptible d'inclure une spécification de chemin d'accès. La méthode renvoie la valeur False si l'utilisateur annule la boîte de dialogue.

Cette méthode est susceptible de modifier le lecteur ou le dossier en cours.


Exemple


Cet exemple montre comment afficher la boîte de dialogue Enregistrer sous, dont le filtre de fichier est défini en fichiers texte. Si l'utilisateur choisit un nom de fichier, ce nom de fichier est affiché dans un message.

Visual Basic pour Applications
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If


© 2010 Microsoft Corporation. Tous droits réservés.

[hacker59]

bonjour,

j'ai trouver un moyen ouvrir le répertoire du fichier savefiledialog.
voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Process.Start(IO.Directory.GetParent(textbox1.Text).FullName)

comment on fait pour sélectionner le fichier du répertoire?

merci.

[hacker59]

bonjour,

j'ai trouver la solution pour parcourir le chemin de savefiledialog en sélectionnent du fichier.
voici mes codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Imports System.IO
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim save As New SaveFileDialog
        save.Filter = "Tous les fichiers (*.*)|*.*"
        If save.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = save.FileName
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Process.Start("explorer.exe", "/select," & TextBox1.Text)
    End Sub
End Class

bien cordialement,