Faire cohabiter 2 macros : copie de feuille + nom de fichier cellule B1

[sly63]

Bonjour à tous,

Je souhaiterai faire cohabiter 2 macros :

- 1 qui me copie 2 feuilles ('Déclaration' et 'control') de mon classeur vers un nouveau classeur et si possible en collage spécial "Valeurs + formats" uniquement.
- une autre qui me nomme ce nouveau classeur avec le contenu de la cellule en B1 (il s'agit d'une date saisie en fait).

Voici les 2 macros qui j'utilise pour le moment :

Copie de feuilles vers nouveau classeur :

Sub Copiefeuilleversautre()
'
' EnregistrerNomCellule Macro
' Macro enregistrée le 25/08/2006 par pHg
'
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SaveAs Filename:="d:\test" & nodev & ".xls"
ActiveWorkbook.Close

End Sub

Le classeur créé prend le nom du contenu de la cellule

Sub EnregistrerNomCellule()
'
' EnregistrerNomCellule Macro
' Macro enregistrée le 25/08/2006 par pHg
'
Call ActiveWorkbook.SaveCopyAs(ActiveWorkbook.Worksheets(1).Range("B1").Text & ".xls")

End Sub

Merci d'avance pour votre être précieuse (j'suis un peu dans la mouise en fait)

 

[kjin]

Re : Faire cohabiter 2 macros : copie de feuille + nom de fichier cellule B1

Bonjour,
Si j'ai compris, il s'agit que de créer un nouveau classeur puis d'y copier les 2 feuilles "Declaration" et "Control" et de le sauvegarder avec comme nom la valeur de la cellule B1 de la feuille1 du classeur actif (Attention un nom de fichier ne peut pas contenir de "/" donc si B1 est une date...)
Le fichier est sauvegardé dans le répertoire actuel.Change la ligne bleue si nécessaire

Sub CopieFeuil()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Cel = Sheets(1).Range("B1").Value
FichDep = ActiveWorkbook.Name
Workbooks.Add
FichDest = ActiveWorkbook.Name
Windows(FichDep).Activate
Sheets(Array("Declaration", "Control")).Copy Before:=Workbooks(FichDest).Sheets(1)
ActiveWorkbook.SaveAs Workbooks(FichDep).Path & "\" & Cel & ".xls"
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

A+
kjin

 

[sly63]

Re : Faire cohabiter 2 macros : copie de feuille + nom de fichier cellule B1

Thk u very much, it's perfect