Discussion :

[the-geut]

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

[Minick]

Salut,

Si j'ai bien compri, le nom se trouve dans la feuille copier en cellule G3.

Quand tu fais ta copie la feuille dans le noveau classeur porte le meme nom donc elle ne s'appelle pas Feuil1 mais rendu

Essaie comme ca:

Code :

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

fichier = "fait par " & Sheets("rendu").Range("G3").Value & " le " & Format(Date, "dd mm yy") & " " & "N°" & " " & contrat & ".xls"