Renommer classeur en fonction valeur cellule

[Francois73]

bonjour

j'ai encore besoin de vous

j'ai exporter 2 feuilles d'un fichier A vers un nouveau classeur qui s'intitulera "siege" je souhaite renommer ce classeur "siege en fonction de la valeur d'une cellule c2 de la feuille nommé "Oriclef"

j'avais réussi mais le problème et qu'il me créer un second classeur portant le nom de la cellule et je souhaite vraiment un seul classeur et dans le bon répertoire
voici mon code
Sub exportsiege()
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\courbois_f\Documents\ECRITURE EXCEL LACTO\derniere version\siege.xls"
Dim objWbk As Workbook
Dim objSht1 As Worksheet, objSht2 As Worksheet

' Selection de la feuille source du classeur actif par son nom.
' (donnée)
Set objSht1 = ThisWorkbook.Worksheets("cheptel")
' ouvrir classer de destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\siege.xls"
' Classeur destination
Set objWbk = Application.Workbooks("siege.xls")

' Feuille destination
Set objSht2 = objWbk.Worksheets("Feuil1")

' Copie de la feuille.
objSht1.Copy before:=objSht2

Set objSht1 = ThisWorkbook.Worksheets("oriclef")

' Classeur destination
Set objWbk = Application.Workbooks("siege.xls")

' Feuille destination
Set objSht2 = objWbk.Worksheets("Feuil1")

' Copie de la feuille.
objSht1.Copy before:=objSht2


End Sub

merci de votre aide

 

[Pierrot93]

Re : Renommer classeur en fonction valeur cellule

Bonjour,

pas tout compris moi... A noter :

 Selection de la feuille source du classeur actif par son nom.
' (donnée)
Set objSht1 = ThisWorkbook.Worksheets("cheptel")

ceci ne considère pas la feuille "cheptel" du classeur actif mais la feuille "cheptel" dans le classeur dans lequel est exécuté le code...

bonne journée
@+

 

[Francois73]

Re : Renommer classeur en fonction valeur cellule

en fait le classeur crée nommé "siege" ( avant la copie des feuilles) ne me posent pas de problème cela marche je me retrouve bien avec un nouveau classeur comportant les deux feuilles qui m'interessent, mais avant de le fermer je souhaite le renommer en fonction de la valeur de la cellule c2 de l'onglet "oriclef)

 

[Pierrot93]

Re : Renommer classeur en fonction valeur cellule

Re,

peut être comme ceci :

ActiveWorkbook.SaveAs "C:\Users\courbois_f\Documents\ECRITURE EXCEL LACTO\derniere version\" & Workbooks("NomClasseur.xls").Sheets("NomFeuille").range("C2").value

bon après midi
@+

 

[Francois73]

Re : Renommer classeur en fonction valeur cellule

bonjour

c'est tout bon ça marche j'ai ajouté
Kill ("C:\Users\courbois_f\Documents\ECRITURE EXCEL LACTO\derniere version\siege.xls")
pour supprimer le premier fichier créer avant copie des feuilles

merci beaucoup