[VBA-E]Enregistrement Excel VBA

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:

---

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

Tu peux peut etre aller la :

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

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

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

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

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

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à :oops:

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

Code:

---

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 ?

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 ;)

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 :)

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:

---

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:

---

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:

---

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 :aie:

J'ai trouvééééééééééé :mrgreen:


Je reprend ta dernière fonction :

Code:

---

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:

---

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

---

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

J'avais déjà essayé ça, j'ai essayé de nouveau et ça ne fonctionne toujours pas :(

Y'a de quoi devenir dingue :P

Bah chez moi ça marche 8O :?

...GetSaveAsFilename utilise le répertoire courant...
il suffit de modifier le répertoire courant avant sont appel

Code:

---

1 2 3 4

ChDrive("W") 'Defini le disque courant ChDir ("\Test\Henri\Intégrations\") Msgbox Application.GetSaveAsFilename (FichierSauvegarde)

---

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 ?

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

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:

---

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

---

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

Code:

---

1 2 3 4 5 6

Dim NomFichier NomFichier = Application.GetSaveAsFilename(FichierSauvegarde) If NomFichier <> False Then ThisWorkbook.SaveAs NomFichier End If

---

Ca fonctionne merci :yaisse: