[RÉSOLU]
 
Salut tout le monde.
 
J'ai besoin d’un petit coup de main.
 
Je suis professeur et j'aimerais créer un fichier Excel qui contient dans la première page un compte rendu d'intervention vierge.
 
Le but c'est que les élèves complètent le compte rendu, l'archive, le vide et l'enregistre.
 
Pour moi l'archivage consistera à faire une copie du compte rendu dans le même classeur et qu'il porte le nom de l'élève et la date du jour qu'il aura complété dans deux cellules du compte rendu.
 
Voilà le code que j'ai créé pour archiver le compte rendu celui-ci ne marche pas.
 
Sheets("Feuil1" ).Select
Selection.Copy
Sheets.Add
ActiveSheet.Name = Range("A1" ) & Range("A2" )
 
Voilà le code que j'ai créé pour effacer le compte rendu
 
Range("A1,A2,E7,G7,G9,E9,E11,G11,G13,E13" ).Select
Selection.ClearContents
Range("A1" ).Select
 
Voilà le code que j'ai créé pour enregistrer le fichier

ActiveWorkbook.Save
 
Pouvez-vous me dire ce qui ne va pas ?
 
Merci pour votre aide.

Sub Aol()
Sheets("Feuil1" ).Select
  vnom = InputBox(" Tapez votre nom" )
  Vprenom = InputBox("tapez votre prénom" )
Sheets.Add
ActiveSheet.Name = (vnom & " " & Vprenom)
 End Sub
 

Salut chacha merci pour ta réponse.
 
Impeccable ce code c'est une bonne solution.
 
Je l'ai adapté à mon cas comme ceci.
 
Sub Archiver()
Sheets("Compresseur compte rendu correc" ).Select
vnom = InputBox(" Tapez votre nom" )
Vdate = InputBox("Tapez la date jj.mm.aaaa" )
Sheets("Compresseur compte rendu correc" ).Copy Before:=Sheets(5)
ActiveSheet.Name = (vnom & " " & Vdate)
End Sub
 
 
Pour info on m'a proposé ce code la :
 
Dim nomFE As String
Dim plage As Range
With Sheets("Feuil1" )
nomFE = .[A1] & "-" & .[A2]
Set plage = Union(.[A1], .[A2])
End With
Sheets("Feuil1" ).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nomFE
plage.ClearContents
Sheets("Feuil1" ).Select
Range("A1" ).Select
ActiveWorkbook.Save
 
Source :commentcamarche.net
 
Il a un petit défaut pour moi car dans la cellule A2 j'ai la fonction =AUJOURD'HUI().
Il est impossible de nommer une feuille avec le signe /

  Normal  c'est pourquoi je ne t'ai pas proposé ActiveSheet.Name = (vnom & " " & Vprenom & Date)   car la date se mettrait au format 06/11/2011 ce qui ne serait pas accepté .  
 Il faut  changer les parametres régionaux en  11 mai 2011 par exemple pour que ça fonctionne    ou s'ateler a un formatage en VBA  ( chiant  >>> dodo le le chat )

Salut chacha et tout le forum
 
Voilà un code qui évite le problème de nom de feuille avec les signes /
 
L'élève rentre son nom dans A1
Dans A2 la fonction =AUJOURDHUI()  
 
Sub Archiver()
 
Dim nomE As String
Dim plage As Range
Dim dj As String
 
With Sheets("Feuil1" )
 
nomE = .[A1]
Set plage = Union(.[A1], .[A2])
dj = Format(.[A2], "dd-mm-yyyy" )
 
End With
 
Sheets("Feuil1" ).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nomE & "-" & dj
 
End Sub
 
Source : commentcamarche.net