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

sly63 · 29 Août 2008

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 · 29 Août 2008

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 · 2 Septembre 2008

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

Thk u very much, it's perfect

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

sly63

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

sly63

XLDnaute Nouveau

Discussions similaires