Discussion :

[backx3]

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 :

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

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 :

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

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 !

[jeanmidudu]

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

[backx3]

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

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