création d'un Nv classeur avec bouton + transfert de données

[crapounet]

Bonjour

Je voudrais transferer de façon automatique une feuille d'un classeur ou les cellules allant de C6:H32 vers un nouveau classeur qui doit être créer sous la forme "décompte+date.xls"

Ce transfert je voudrais le faire à l'aide d'un bouton qui se trouve sur l'ancien fichier.


Merci de votre aide

 

[crapounet]

Re : création d'un Nv classeur avec bouton + transfert de données

Bonjour,

Elle n'inspire personne pas question ?

 

[dixit]

Re : création d'un Nv classeur avec bouton + transfert de données

bonsoir,
c'est-à-dire que du travail a déjà été fait pour une (ou des ?) question similaire alors on fatigue, en milieu de semaine ...
voir le sujet de Gexk5 n° 75223 : utilisation de Move pour sauvegarder une feuille.

 

[crapounet]

Re : création d'un Nv classeur avec bouton + transfert de données

pour résoudre mon problème j'ai trouvé ça

Sub Save_Sheet()

Dim strNom As Variant

strNom = Application.GetSaveAsFilename(ActiveSheet.Name, "Fichier Excel (*.xls),*.xls")

If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If

End Sub


mais je ne sais pas si cela le fait bien si qlq'1 pouvais me la commanter cette macro cela serait sympa

Merci de votre aide

A+

 

[dixit]

Re : création d'un Nv classeur avec bouton + transfert de données

bonjour,
à mon avis, cette macro ne sauvegarde pas 1 feuille mais le classeur actif.
je t'ai proposé de regarder un sujet similaire à ta question pour lequel j'ai fait une macro qui est en fichier joint.
si cela ne convient pas, il faut le dire mais au moins donner un avis.
ps : en fichier joint la dernière version du classeur en question