Bonjour à tous!
Ma macro doit me permettre d'extraire un feuil excel et de creer un nouveau fichier avec le nom de l'utilisateur. Cependant le programme "plante" lorsque je veut faire appel à une valeur contenu dans un cellule pour faire le nom

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub imprimer_Click()

Dim fichier As String
Dim fin As Long

fin = (Application.Workbooks("statistiques motif de retour").Sheets("répertoire").Range("A5").End(xlDown).Row)
contrat = Application.Workbooks("statistiques motif de retour").Sheets("répertoire").Cells(fin, 4).Value
'on copie la feuil "rendu"
Sheets("rendu").Copy
'C'est le nom du nouveau fichier
fichier = "fait par " & Sheets("feuil1").Range("G3").Value & " le " & Format(Date, "dd mm yy") & " " & "N°" & " " & contrat & ".xls"
ActiveWorkbook.SaveAs Filename:="E:\Dir MCA\ASS\Accès libre\Tableau Archivage\Archive\" & fichier
ActiveWorkbook.Close True
End sub
L'erreur n°9
L'indice n'appartient pas à la selection
L'erreur survient lorsque j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Feuil1").range("G3").value
Merci de votre aide