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"