Ouvrir un nouveau classeur avec un autre nom que classeur 1

[youki]

Bonjour à tous,
je pense que le titre est pas mal révélateur. Lors d'une opération je souhaite ouvrir un classeur sans forcement l'enregistrer pour l'instant. Ce nouveau classeur s'appel actuelement classeur 1, 2 , 3... je souhaiterais pouvoir lui donner un nom durant sa crétion automatique. La fonction utilisée pour ouvrir le nouveau classeur est:

 Sheets(Array("construction_devis", "devis_imprimable")).Copy

auriez vous une astuce?

 

[br44]

Re : Ouvrir un nouveau classeur avec un autre nom que classeur 1

Re: Bonjour Youki ,le forum ,


Si j'ai compris se que tu veux ,il sagit d'une copie du classeur en cours .

tu peux essayer ceci :

acitveThiWorkbook.SaveASCopy "C:\Ton chemind'acces \ Nonfichier.Xls"

où si tu le fait à partir d'un autre endroit que le classeur source :
'déclare les variables Chemin et Wb
Dim Chemin As String
Dim wb As Workbook

'Definit les variables chemin et Wb
Set Chemin = "C:\l'endroit du classeur source\nomdu classeur source .xls
Set Wb=Workbooks.Open (Chemin)


With Wb
ActiveWorkbook.SaveASCopy "C:\Ton chemind'acces \ Nonfichier.Xls"
End With

Voilà si cela te convient fais le mois savoir . Amicalement BR44

 

[youki]

Re : Ouvrir un nouveau classeur avec un autre nom que classeur 1

Merci Br44. Je remarque qu'il faut effectivement obligatoirement enregistrer le fichier pour qu'il ait un nom autre que classeur 1. En tous cas la deuxieme solution se rapproche le plus de celle que je désire. Je te remercie je pense garder cette dernière solution.