Enregistrer un fichier automatiquement

[lanoe]

Bonjour le forum,

J’ai un début de code que je souhaite compléter.

Mes objectifs :

Copier la feuille en cours
Ouvrir un nouveau fichier
Copier coller

Pour cette partie j’ai le code :
Cells.Select
selection.Copy
Range("a1").Select
Workbooks.Add
Cells.Select
selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

Par la suite, je souhaite :
Enregistrer le nouveau fichier avec le nom spécifié dans la Cellule AA1
A l’endroit spécifié en AA2 (AA2 à un contenu du type « D:\Dossier 1\Test1\ »)
Fermer le nouveau fichier pour revenir au fichier initial.

Merci à vous,
Lanoe

 

[Etienne2323]

Re : Enregistrer un fichier automatiquement

Bonjour Lanoe,
voyez si cela vous convient.

Sub test()

Dim NomClasseur As String

Nom = Cells(1, 27).Value
Chemin = Cells(2, 27).Value
NomClasseur = ThisWorkbook.Name

Workbooks.Add
ActiveWorkbook.SaveAs Chemin & Nom

Windows(NomClasseur).Activate
Cells.Copy
Windows(Nom).Activate
Cells.PasteSpecial Paste:=xlValues, Paste:=xlFormats
Application.CutCopyMode = False
Cells(1, 1).Select

ActiveWorkbook.Save
ActiveWorkbook.Close

Cells(1, 1).Select

End Sub

En vous souhaitant de joyeuses fêtes !

Cordialement,

Étienne

 

[lanoe]

Re : Enregistrer un fichier automatiquement

Re,

Grand merci et joyeuses fêtes

lanoe