Bonsoir à tous,
Voila j'ai commencé à ecrir une macro me permettant suivant un nom tapé dans un inputbox, m'ouvrir un nouveau classeur excel prenant ce nom.
Cependant je voudrais que dans ce nouveau classeur, chaque onglet s'appel honoraire1 (pour sheet 1), honoraire 2 (pour sheet 2), ainsi de suite.
J'ai un autre problème, à l'heure actuelle, tous mes nouveau classeur s'enregistre par défaut dans mes documents. Je souhaiterais qu'il s'enregistre dans un dossier situé sur mon bureau portant le nom de projet.
Voici mon début de macro :
Sub nouveau()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
reponse = InputBox("Nom du projet")
If reponse = False Then
Exit Sub
Else
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 5)
'xlApp.SheetsInNewWorkbook = 5
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs ("" & Val(reponse) & ".xls")
'On rend le classeur visible
xlApp.Visible = True
End If
End Sub
Merci de votre aide,
Cordialement
Voila j'ai commencé à ecrir une macro me permettant suivant un nom tapé dans un inputbox, m'ouvrir un nouveau classeur excel prenant ce nom.
Cependant je voudrais que dans ce nouveau classeur, chaque onglet s'appel honoraire1 (pour sheet 1), honoraire 2 (pour sheet 2), ainsi de suite.
J'ai un autre problème, à l'heure actuelle, tous mes nouveau classeur s'enregistre par défaut dans mes documents. Je souhaiterais qu'il s'enregistre dans un dossier situé sur mon bureau portant le nom de projet.
Voici mon début de macro :
Sub nouveau()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
reponse = InputBox("Nom du projet")
If reponse = False Then
Exit Sub
Else
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 5)
'xlApp.SheetsInNewWorkbook = 5
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs ("" & Val(reponse) & ".xls")
'On rend le classeur visible
xlApp.Visible = True
End If
End Sub
Merci de votre aide,
Cordialement