[XL-2010] donner un nom à un classeur [Résolu]

[Jacbour]

bonjour,
je souhaite créer une macro qui à partir d'un classeur ouvert ouvre un nouveau classeur"type" et qui le sauvegarde avec un nom récupéré dans une cellule d'une feuille du premier classeur . (je ne sais pas si je suis très clair)
merci pour le coup de main

[Jean-Pierre49]

Bonjour

comme piste

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
                            Dim FichierA                As Workbook
                            Dim Nom                     As String
 
    Nom = "C:\....\xxxxx.xls" ' A modifier
ou
    Nom = Range("A1").Value
 
    Set FichierA = Workbooks.Add 'Créer un nv classeur
ou
    Set FichierB = Workbooks.Open("C:\....\zzzzzz.xls") ' Ouvre un classeur existant
 
 
    FichierA.SaveAs Filename:=Nom ' Nomme le fichier
    FichierA.Close False ' le ferme

Adapte et tu dis

Bon courage

[Jacbour]

comment indiquer le chemin pour enregistrer ce nouveau fichier avec son nouveau nom . actuellement il est enregistré dans les documents et je souhaiterais qu'il soit enregistré ailleurs dans un dossier prévu pour . J'ai tenté différentes écritures mais je n'y suis pas parvenu .
merci encore pour le coup de main

[Jacbour]

j'avais fait une petite erreur et maintenant tout fonctionne parfaitement,
merci du coup de main