macro copier coller et fermeture fichier source

[sebdethebes]

bonjour le forum,

je reviens vers vous car après recherche sur le forum je n'ai pas trouvé solution a mon probleme...

j'ai un fichier X que je modifie
ma macro copie,colle et sauvegarde ce classeur dans un autre classeur.

ce que je n'arrive pas c'est a intégrer dans la macro la fermeture automatique du fichier source (fichier à ne pas modifier)


Sub Image14_QuandClic() '
Dim FeuilleSource As Excel.Worksheet
ActiveSheet.Copy
ActiveWorkbook.SaveAs (ActiveSheet.Range("D6").Value)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
ActiveWorkbook.Save
End Sub

D'avance merci de votre aide
Sebdethebes

 

[pierrejean]

Re : macro copier coller et fermeture fichier source

Bonjour sebdethebes

A tester

Sub Image14_QuandClic() '
Dim FeuilleSource As Excel.Worksheet
ActiveSheet.Copy
ActiveWorkbook.SaveAs (ActiveSheet.Range("D6").Value)
[COLOR=blue]Set Wk=ActiveWorkbook[/COLOR]
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
ActiveWorkbook.Save
[COLOR=blue]Wk.close
[/COLOR]End Sub

 

[sebdethebes]

Re : macro copier coller et fermeture fichier source

Bonjour Pierrejean,

tout d'abord merci de ta réponse rapide!🙂

...ça ne marche pas...
en fait ça ferme le fichier ou les données on été collé.(j'avais déjà reussi à faire ça mais c'est pas ce que je veux!!)
ce que je voudrais est fermer le fichier source sans le sauvergarder.
et laisser ouvert le nouveau fichier...

sebdethebes

 

[pierrejean]

Re : macro copier coller et fermeture fichier source

Re

OK

et comme ceci

Sub Image14_QuandClic() '
[COLOR=blue]Set Wk = ActiveWorkbook
[/COLOR]Dim FeuilleSource As Excel.Worksheet
ActiveSheet.Copy
ActiveWorkbook.SaveAs (ActiveSheet.Range("D6").Value)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
ActiveWorkbook.Save
[COLOR=blue]Wk.Close
[/COLOR]End Sub

 

[sebdethebes]

Re : macro copier coller et fermeture fichier source

Super !!
j'ai juste rajouter Wk.save avant Wk.close pour ne pas a avoir de message de sauvegarde.
ça marche impec!

Merci bcp de ton aide Pierrejean!🙂
rapide, et efficace!

A bientôt
Sebdethebes