Enregistrer sous avec chemin et nom de textbox d'un userform

Version imprimable

Bonjour,

J'aimerais pouvoir enregistrer un fichier avec le chemin et le nom qui seront renseignés dans des variables. Ca doit être vraiment tout con, et je trouve aucun site qui m'aide :'(

J'ai un userform, avec un bouton parcourir pour choisir le dossier où l'utilisateur veut enregistrer son fichier, et un inputbox pour demander le nom de ce fichier...

Le code de mon input box qui récupère le nom :
Code:

1 2 3 4 5 6 7 Dim nom As String If MsgBox("Voulez-vous enregistrer le graphique ?", vbYesNo) = vbYes Then nom = InputBox("Donnez un nom de fichier !" & Chr(13) _ & "Selon cette structure :Données du graphique_Délai LUP QC_Ki_Nom", , "Nom du graphique") If nom = "" Then Exit Sub End If End If
Le code de mon bouton parcourir et le textbox qui récupère le chemin d'enregistrement :
Code:

1 2 Fichier = Application.GetOpen 'Et je sais pas trop quoi' Save.Chemin.Text = Fichier
Et dans mon bouton principale je pense que ça sera un truc du genre ActiveWorkbooks.SaveAs Fichier & nom ou un truc comme ça...

Voilà merci d'avance pour votre aide, n'hésitez pas à demander des détails supplémentaires si nécessaires.

Merci !

08/06/2016, 12h35
jeanmidudu

Avant toute chose, quel type de fichier veux-tu enregistrer? .xlsm, .xls, .docx, .pptx, .txt, .pdf?

C'est du xlsm, j'ai déjà quelques pistes si ça peut t'aider.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Public nom As Variant, NomComplet As Variant
Public Dossier As Variant
 
Private Sub Parcourir_Click()
If MsgBox("Voulez-vous enregistrer le graphique ?", vbYesNo) = vbYes Then
    Dim Repertoire As FileDialog
     Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
     Repertoire.Show
     If Repertoire.SelectedItems.Count > 0 Then
         Dossier = Repertoire.SelectedItems(1)
         MsgBox Dossier
 
     Else
         MsgBox "Aucun Répertoire de sauvegarde Sélectionné"
         Exit Sub
     End If
 
nom = InputBox("Donnez un nom de fichier !" & Chr(13) _
    & "Selon cette structure :Données du graphique_Délai LUP QC_Ki_Nom", , "Nom du graphique")
If nom = "" Then Exit Sub
End If
NomComplet = Dossier & "\" & nom & ".xlsm"
MsgBox NomComplet
'End If
 
End Sub
 
Private Sub UserForm_Click()
Workbooks("Application Graphique.xlsm").Activate
ActiveWorkbook.SaveAs Filename:=NomComplet
End Sub

J'crois d'ailleurs que tout cela fonctionne, c'est encore un peu brouillon dans ma tête, j'ai tout chopé d'internet et de sites différents et j'ai remixé à ma sauce aha