Enregistrer Fichier à partir d'un UserForm

Version imprimable

Bonjour,

J'ai commençé le VBA il y a deux semaines et j'ai quelques problèmes pour faire marcher certaines fonctions en VBA
Mon problème est que je n'arrive pas à sauvegarder un fichier Excel que l'utilisateur choisis dans un UserForm pour y appliquer une Macro

Dans un fichier Excel, j'ai un UserForm et dans mon UserForm j'ai :

- Un bouton pour choisir le fichier à sauvegarder (CommandButton1)
- un TextBox (TextBox1)
- un autre bouton pour sauvegarder le fichier (CommandButton3)

Voici le code de CommandButton1 qui fonctionne:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Fichier as String Private Sub CommandButton1_Click() Set oFile = Application.FileDialog(1) '(msoFileDialogOpen) oFile.AllowMultiSelect = False If oFile.Show = -1 Then TextBox1.Text = oFile.SelectedItems(1) End If Fichier = TextBox1.Text Set oFile = Nothing End Sub
Le Code de CommandButton3 qui ne fonctionne pas et me met l'erreur " 'Erreur d'execution 9' L'indice n'appartient pas à la selection" sur "Workbooks(Fichier).SaveAs Filename:=fName", l'utilisateur choisit le nom du fichier :
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton3_Click() Do fName = Application.GetSaveAsFilename Loop Until fName <> False Workbooks(Fichier).SaveAs Filename:=fName End Sub
Toute aide est la bienvenue, merci !

Cordialement,

Bonjour,

Je ne suis pas un pro en VBA mais ce code fonctionne, reste plus qu'a l'adapter aux spécificités du besoin ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
réponse = MsgBox("Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel)
 
    'Si réponse oui, on sauvegarde et on ferme le classeur ou se trouve la macro
    If réponse = vbYes Then
 
 
       ThisWorkbook.Save
       ThisWorkbook.Close
 
    'Si non, on ferme sans enregistrer
    ElseIf réponse = vbNo Then
 
        ThisWorkbook.Close (SaveChanges = False)
 
    'Si cancel, on ne fait rien
    ElseIf réponse = vbCancel Then
 
    End If

29/04/2014, 11h09
Rageo

Merci Tooth pour ta réponse.
Mais ton code ne résout pas le problème.
Sans tenir compte des if, car on va considérer que l'utilisateur voudra enregistrer quelque soit le cas,

Code:

ThisWorkbook.Save

pourra me permettre d'enregistrer le fichier Excel sur lequel il y a mon UserForm (dans mon cas, vide en dehors de mon UserForm) mais pas d'enregistrer le fichier choisis par l'utilisateur.
29/04/2014, 13h45
Tooth

Ta variable "fichier" est déclarée hors des fonctions, ce qui veut dire que tu peux la réutiliser dans d'autre fonction. Je pense que le code suivant résoudra le problème, je ne l'ai pas testé mais je pense que sa fonctionne. Parcontre, la variable "fichier" ne devrait pas être déclaré en tant que Workbook puisque tu manipules des classeurs ?

Code:

fichier.save
29/04/2014, 15h14
Rageo
En faite, la variable Fichier est déclaré en String pour pouvoir stocker le chemin du fichier "C:\...\monfichier.xls" et non pas enregistrer le classeur dans un workbook, je voulais l'utiliser dans ce style la:

Code:

Workbooks("C\..\monfichier.xls").SaveAs Filename:="CopieClasseur.xls"

-->Provoque Erreur Execution 9
Ou comme sa :

Code:

Workbooks("monfichier.xls").SaveAs Filename:="CopieClasseur.xls"

--> Provoque Erreur Execution 9
Ou comme sa :

Code:

Workbooks(Fichier).SaveAs Filename:="CopieClasseur.xls"

--> Provoque Erreur Exécution 9
Ou comme sa :

Code:

Workbooks(Textbox1.Text).SaveAs Filename:="CopieClasseur.xls"

--> Provoque Erreur Exécution 13 "Incompatibilité de type"

Autre solution que j'ai essayé, qui crée bien un classeur2.xls mais vide... :
Code:

1 2 3 4 5 6 7 Dim wb as Workbook Private Sub CommandButton3_Click() Set wb = GetObject("C:\...\monfichier.xls") wb.Activate wb.SaveAs Filename:="Classeur2.xls"
Concernant ton "fichier.save", sa ne fonctionne pas, sa me met "Erreur d'éxecution '424' Objet Requis"

Je commence vraiment à desespérer :/

Solution trouvé avec 3 boutons :

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
' Bouton 1
Dim Fichier As String
 
Private Sub CommandButton1_Click()
 
    Set oFile = Application.FileDialog(1) '(msoFileDialogOpen)
    oFile.AllowMultiSelect = False
    If oFile.Show = -1 Then
        TextBox1.Text = oFile.SelectedItems(1)
    End If
    Set oFile = Nothing
 
End Sub
 
' Bouton 2
 
Private Sub CommandButton2_Click()
 
    Fichier = TextBox1.Text
    Workbooks.Open Fichier
 
End Sub
 
' Bouton 3
Private Sub CommandButton3_Click()
 
    Nom_Fichier = Application.GetSaveAsFilename( _
        fileFilter:="Fichier Excel (*.xls), *.xls")
    ActiveWorkbook.SaveAs Nom_Fichier
 
End Sub