Discussion :

[Helios07]

Bonjour à tous !

Je suis en train de développer un UserForm sous VBA-Excel et je coince.

Je voudrais créer un bouton qui :

- Ouvre une boîte de dialogue "Enregistrer sous" avec un répertoire défini par défaut (ex: W:\Test\Henri\Intégrations\Fichiers en cours) ;

- Propose également un nom d'enregistrement par défaut (mais modifiable) avec un format par défaut (.xls ou .csv) ( ex: FEC Username ddmmyy HhNn.xls ou donc .csv)

J'ai essayé de faire un peu de SaveAs ou GetSaveAsFilename et de mixer les deux mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton10_Click()
 
Dim Date1, Heure1 As String
 
Date1 = Format(Now, "ddmmyy")
Heure1 = Format(Now, "HhNn")
 
FichierSauvegarde = ("FEC" & Application.UserName & _
" " & Date1 & "-" & Heure1)
 
Application.Dialogs(xlDialogSaveAs).Show _
("W:\Test\Henri\Intégrations\Fichiers en cours" & FichierSauvegarde)
 
End Sub

Des idées ? Merci

[illight]

Tu peux peut etre aller la :

http://access.developpez.com/faq/?pa...AffBoitEnregSs

ça te donnera sur une idée de comment faire

[illight]

De plus, dans ce que tu as écrit je vois pas le "GetSaveAsFilename" t'es sur que ut l'as utilisé ?

Car normalement c'est celui la qu'il faut utiliser en regadant dans l'aide tu devrais trouver ton bonheur

[Helios07]

Oui, oui, j'avais bien commencé avec le "GetSaveAsFilename"

Il me proposait bien par défaut le nom d'enregistrement que j'avais paramétré mais je n'arrivais pas à combiné ça avec un répertoire par défaut alors j'ai essayé autre chose.

Je suis allé voir sur le lien que tu m'as donné mais pour être honnête, je suis un peu largué...je ne suis pas très loin du débutant et je vois pas trop là

[illight]

ça ça marche chez moi, si tu veux une boite de dialogue enregistrer sous, avec que les fichiers CSV en vue:

Code :

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

1
2
 
Application.Dialogs(xlDialogSaveAs).Show "W:\Test\Henri\Intégrations\Fichiers en cours\", xlCSV

je suis en train de chercher les arguments de cette fonction mais j'ai du mal a les trouver...

Par contre, il faut absolument que tu mette une boite de dialogue ? tu peux pas juste mettre un InputBox, que la personne rentre le nom du fichier qu'elle veut et derrière tu fais un SaveAs avec ce qu'il a mis dans l'InputBox ?

[Helios07]

J'ai essayé ton code, il affiche bien le chemin par défaut. En essayant 2/3 trucs, j'arrive à avoir un chemin prédéfini ou un nom de fichier prédéfini mais toujours pas les deux combinés.

Par contre, la boîte de dialogue est indispensable car l'utilisateur du formulaire peut avoir besoin de changer le chemin d'enregistrement de son fichier.

Merci pour ton aide

[illight]

si c'est résolu, n'oublie pas le tag, si en plus tu pouvais nous dire tes "2/3 trucs", ça serait ma foi fort intéressant si des personnes se posent la meme question que toi

[Helios07]

Si j'avais la solution, je l'afficherais oui mais ce n'est pas encore le cas et le code que tu as affiché ne fonctionne plus Pour résumer :

Cliquer sur un bouton de mon formulaire qui ouvre une boîte de dialogue "Ouvrir" avec un chemin d'accès prédéfini mais modifiable, j'arrive :

Code :

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

1
2
Application.Dialogs(xlDialogOpen).Show _
("W:\Test\Henri\Intégrations\Fichiers en cours")

Cliquer sur un bouton de mon formulaire qui ouvre une boîte de dialogue "Enregistrer Sous" avec un chemin d'accès prédéfini mais modifiable, je n'arrive pas :

Code :

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

1
2
Application.Dialogs(xlDialogSaveAs).Show _
("W:\Test\Henri\Intégrations\Fichiers en cours")

Cliquer sur un bouton de mon formulaire qui ouvre une boîte de dialogue "Enregistrer Sous" avec un nom prédéfini mais modifiable, j'arrive :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton10_Click()
 
Dim Date1, Heure1 As String
 
Date1 = Format(Now, "ddmmyy")
Heure1 = Format(Now, "HhNn")
 
FichierSauvegarde = ("Fichier en cours " & Application.UserName & _
" " & Date1 & "-" & Heure1)
 
Application.GetSaveAsFilename (FichierSauvegarde)
 
End Sub

Et pour terminer, combiner le chemin d'accès et le nom prédéfini mais modifiable dans une boîte de dialogue "Enregistrer sous", c'est la galère

[illight]

J'ai trouvééééééééééé


Je reprend ta dernière fonction :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton10_Click()   
Dim Date1, Heure1 As String   
Date1 = Format(Now, "ddmmyy") 
Heure1 = Format(Now, "HhNn")   
FichierSauvegarde = ("Fichier en cours " & Application.UserName & _
 " " & Date1 & "-" & Heure1)   
Application.GetSaveAsFilename (FichierSauvegarde)   
End Sub

A la ligne ou tu as le gatsaveasfilename, suffit juste que tu rajoute ton chemin en fait donc tu écrit ça a la place :

Code :

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

Application.GetSaveAsFilename ("W:\Test\Henri\Intégrations\" & FichierSauvegarde)

Normalement, ou en tout cas chez moi ça marche dis moi si ça marche chez toi

[illight]

C'est bizarre j'avais essayé ça justement, et je l'ai pas dit parce que ça avait pas marché chez moi, c'est possible que ce soit parce que j'avais fait juste un chdir avec un chemin complet ?

[Helios07]

J'ai essayé et ça fonctionne...merci beaucoup

[Helios07]

Euhhh, en fait désolé mais ça ne fonctionne pas jusqu'au bout. Je m'explique, la boîte "Enregistrer sous" apparaît bien avec le chemin et nom prédéfini mais quand je clique le bouton "Enregistrer" qui y figure, ça n'enregistre pas (la boîte se ferme par contre).

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
Private Sub CommandButton10_Click()
 
Dim Date1, Heure1 As String
 
Date1 = Format(Now, "ddmmyy")
Heure1 = Format(Now, "HhNn")
 
FichierSauvegarde = ("Fichier en cours " & Application.UserName & _
" " & Date1 & "-" & Heure1)
 
ChDrive ("W")
ChDir ("\Test\Henri\Intégrations\")
 
Application.GetSaveAsFilename (FichierSauvegarde)
 
End Sub

[SfJ5Rpw8]

.GetSaveAsFilename n'effectue pas la sauvegarde elle permet juste de d'effectuer le choix du nom de fichier ...

Code :

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

1
2
3
4
5
6
 
Dim NomFichier
NomFichier = Application.GetSaveAsFilename(FichierSauvegarde)
If NomFichier <> False Then
   ThisWorkbook.SaveAs NomFichier
End If

[Helios07]

Ca fonctionne merci