Discussion :

[Forpp]

Bonjour,

Je suis nouveau sur ce forum. Au niveau de mes connaissances Excel et VBA, je me définirais comme un bricoleur averti.

J'ai un programme VBA Excel qui traite et croise des fichiers Excel, et je voudrais ouvrir une fenêtre de dialogue "Enregistrer sous" en contraignant le nom du fichier et le type du fichier. Par exemple, je veux que mon fichier soit "Licences.txt". et je souhaite aussi laisser l'opérateur choisir le chemin pour enregistrer.
Jusque là j'arrive à ce que je veux avec une macro de ce type.

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
 
Dim Filename As String
Filename = "Licences"
 
Application.Dialogs(xlDialogSaveAs).Show (Filename), 20
 
End Sub

Jusque là, ça fonctionne, Mais je veux, en plus vérifier si l'opérateur a cliqué sur "Enregistrer" ou "Annuler".
Et là, ça ne va plus.

VBA refuse que je teste de cette façon

Code :

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

If (Application.Dialogs(xlDialogSaveAs).Show(Filename) ,20) = False Then

Je ne peux tester que sur If (Application.Dialogs(xlDialogSaveAs).Show(Filen)) = False Then
L'extension n'est pas toujours la bonne et en plus ça ouvre une 2^e boite de dialogue "Enregistrer sous"

J'ai essayé ceci

Code :

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

1
2
Dim Essai As Boolean
Essai = Application.Dialogs(xlDialogSaveAs).Show (Filename), 20

Mais VBA m'indique une erreur de compilation. Et à priori, c'est ",20" qui gène VBA. Mais si je le retire, je ne contraints plus le type de fichier.

Je cherche depuis plus d'une semaine, sans succès. Si l'un d'entre vous a la solution, je suis preneur.
Merci.

[Invité]

Bonsoir Forpp

Donc effectivement novice en VBA et tout faux pour commencer

Il faut juste demande à l'utilisateur de choisir son dossier, puisque tout le reste est contraint

Code :

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

1
2
3
4
5
6
7
8
Sub recup()
Dim chemin As String
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
If Repertoire.SelectedItems.Count > 0Then chemin = Repertoire.SelectedItems(1)
EndSub

A+

[Forpp]

Bonsoir BrunoM45

Désolé, mais ta solution ne fonctionne pas.
VBA bloque sur la ligne

Code :

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

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)Repertoire.Show

Pour laquelle il dit : Erreur de compilation / Attendu : Fin d'instruction

Je ne peux pas tester ta solution.

[Franc]

Bonsoir BrunoM45

Désolé, mais ta solution ne fonctionne pas.
VBA bloque sur la ligne

Code :

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

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)Repertoire.Show

Pour laquelle il dit : Erreur de compilation / Attendu : Fin d'instruction

Je ne peux pas tester ta solution.

Salut, cette ligne doit être écrite sur 2 lignes:

Code :

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

1
2
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show

[Forpp]

Désolé, mais ça ne répond pas à ma question.
On peut enregistrer un chemin, ce n'est pas ce que je recherche, mais surtout on ne peut pas imposer le nom et le type de fichier, ni contrôler la réponse faite par l'opérateur

[Invité]

Bonsoir Forpp

J'ai corrigé le code que j'ai déposé, le coller n'a pas fonctionné comme il faut

A tester

[Franc]

Essaie ceci:

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
16
17
18
19
20
21
22
Sub Macro1()
 
    Dim Filename As String
    Dim FilePath As Variant
 
    Filename = "Licences"
 
    ' Affiche la boîte de dialogue "Enregistrer sous"
    FilePath = Application.GetSaveAsFilename(Filename, FileFilter:="Text Files (*.txt), *.txt")
 
    If FilePath <> False Then
        ' L'utilisateur a cliqué sur "Enregistrer"
        ' FilePath contient le chemin complet du fichier sélectionné
        ' Enregistre le fichier
        ActiveWorkbook.SaveAs FilePath, FileFormat:=xlTextMSDOS
        MsgBox "Fichier enregistré avec succès: " & FilePath
    Else
        ' L'utilisateur a cliqué sur "Annuler" ou a fermé la boîte de dialogue
        MsgBox "Enregistrement annulé par l'utilisateur."
    End If
 
End Sub

[Franc]

VBA refuse que je teste de cette façon

Code :

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

If (Application.Dialogs(xlDialogSaveAs).Show(Filen) ,20) = False Then

Bonsoir, si tu as écrit Filen au lieu de Filename comme dans ta déclaration de variable, ça risque pas de fonctionner

[Forpp]

Aïe, le mauvais gag du copié qui a mal collé
J'ai corrigé le post.
Mais sur mon programme, il n'y a pas cette erreur. Il y a bien "Filename" partout.

Merci de ma l'avoir signalée.