Salut à toi Christian,
N'étant que débuttant en vba, je n'ai probablement pas l'ultime solution à ton pb... néanmions voici comment je ferais:
ActiveWorkbook.SaveAs Filename:= "C:\MonRepertoire\" & C1 & ".xls"
Par contre c'est un peu plus compliqué si tu veux choisir entre différents nom pour ton classeur. Voici une piste:
En partant de l'hypothèse que sur ta Feuil1 , la cellule C1 contient le nom du premier onglet et sur ta feuil2 , cellule C1 le nom de l'onglet 2:
Dim NomDuClasseur as String
début:
NomDuClasseur = InputBox("Saisir '1' pour sauvegarder avec le nom du 1er onglet, '2' avec le nom du 2eme onglet")
If nomDuClasseur = "1" Then
ActiveWorkBook.SaveAs Filename:="C:\MonRepertoire\" & 'Feuil1'!C1 & ".xls"
GoTo Fin
ElseIf nomDuClasseur = "2" Then
ActiveWorkBook.SaveAs Filename:="C:\MonRepertoire\" & 'Feuil2'!C1 & ".xls"
GoTo Fin
Else: GoTo début 'en cas d'une saisie inattendue:<> "1", "2"
End If
Fin:
Voilà, je te préviens encore que je ne suis qu'un débutant et que par chance j'ai réussi à planter Excel (inutilisable pour l'heure), je ne suis pas sûr que ce code fonctionne (je peux pas le tester....)
Bonne chance!