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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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,