Nouveau classeur

[bellic]

Bonsoir à tous

Est-il possible de créer un nouveau classeur ayant les mêmes caractéristiques que celui où l'on se trouve?
Exemple :

Si j'ai un classeur nommé "client" avec un nombre de feuille définit, des macros correspondant à chaque feuille, des caractéristiques différentes sur chaque feuille.
Et que je veux créer un nouveau classeur ayant ces caractéristiques.
Est-ce réalisable?

Cdt,

Merci d'avance

 

[Pierrot93]

Re : Nouveau classeur

Bonsoir,

tu fais un "enregistrer sous" du 1er classeur en lui donnant un autre nom, tu auras 2 classeurs...

bonne soirée
@+

 

[bellic]

Re : Nouveau classeur

Bonsoir Pierrot93,

Non je pense pas que se soit aussi simple. Je voudrais avoir un bouton, me permettant de taper un nom (dans inputbox), et que se nom soit le nom du nouveau classeur (sa j'y suis parvenu), mais par contre le fichier que ce nouveau fichier est les mêmes caractéristiques que celui du premier...
A+

 

[Pierrot93]

Re : Nouveau classeur

Re,

Non je pense pas que se soit aussi simple.

fais l'essai, tu verras bien...

 

[bellic]

Re : Nouveau classeur

Re,

Bah cela ne marche pas car je tape un nom dans enregistrer sous.
Je veux prendre le nom tapé dans le inputbox.
Ce nom est l'identification du nouveau classeur (nom) et il faudrait qu'il est les mêmes caractéristiques que le premier classeur

 

[Pierrot93]

Re : Nouveau classeur

Re,

fais voir le code de l'inputbox, il faut rajouter un "saveas" ou un "savecopyas" selon ce que tu veux au juste...

 

[bellic]

Re : Nouveau classeur

Sub new_projet()
'
' new_projet Macro
'

'

reponse = InputBox("Nom du projet")

If reponse = False Then
Exit Sub
ElseIf reponse = "" Then
Exit Sub
ChDir "C:\Users\Bellic\Desktop\urba vs 24-01-11"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Bellic\Desktop\urba vs 24-01-11\reponse.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If

End Sub

 

[Pierrot93]

Re : Nouveau classeur

Re,

modifie comme suit :

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Bellic\Desktop\urba vs 24-01-11\" & reponse & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[bellic]

Re : Nouveau classeur

ça marche pas, cela n'enregistre plus....

 

[Pierrot93]

Re : Nouveau classeur

Re,
il manquait un "else" dans ton code...

If reponse = False Then
Exit Sub
ElseIf reponse = "" Then Exit Sub
Else
ChDir "C:\Users\Bellic\Desktop\urba vs 24-01-11"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Bellic\Desktop\urba vs 24-01-11\reponse.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If

 

[bellic]

Re : Nouveau classeur

Merci beaucoup, j'y est passé pratiquement toutes la journée à trouver une solution....
Encore merci,

Cdt,
Bonne soirée

 

[Pierrot93]

Re : Nouveau classeur

Merci beaucoup, j'y est passé pratiquement toutes la journée à trouver une solution....
Encore merci,

Cdt,
Bonne soirée

Aarf, tu aurais dû poster plus tôt... lol