Renommer un classeurRésolu

Question

Bonjour, j'utilise une macro qui permet de copier et d'enregistrer un classeur. 
J'aimerais que ce classeur s'appel Tenta et le nom de la cellule A38 par exemple. 
Pourriez vous m'aider svp
Merci

Sub Copie()
    Workbooks.Open Filename:="R:\Fichier\Tableaux de Bord\BOOK version 2009\11.Prêt perso\SORTIE_GLOBALE.xls"
    Dim NomEtChemin$
        NomEtChemin = "R:\Fichier\Tableaux de Bord\BOOK version 2009\11.Prêt perso\Fichiers intermédiaires\Tenta&(A38).xls"
            Sheets("FICHIER_SORTIE_PP").Select
            Selection.Copy
        Application.DisplayAlerts = False
        With ActiveWorkbook
        .SaveAs NomEtChemin
        End With
End Sub

cs_Le Pivert · Accepted Answer

Bonjour,
Essayez cela:

Sub Copie()
Dim NomEtChemin$
Workbooks.Open Filename:="Chemin du fichier.xls"
NomEtChemin = "Chemin du fichier" & "" & "Tenta" & "-" & [A38] & ".xls"
With ActiveWorkbook
.SaveAs Filename:=NomEtChemin
End With
End Sub



@+ Le Pivert

c148270 · Answer

Bonjour

NomEtChemin = "R:\Fichier\Tableaux de Bord\BOOK version 2009\11.Prêt perso\Fichiers intermédiaires\Tenta" & range("A38") & ".xls"

Par contre je ne vois pas bien où va la copie. Il me semble qu'il manque un coller.

Le générateur de macro facilite grandement la tâche.

Bonne journée

RichRich59 · Answer

Super merci

Renommer un classeur

3 réponses

Votre réponse