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

  • Initiateur de la discussion Initiateur de la discussion crapounet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

crapounet

XLDnaute Junior
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
 

Pièces jointes

Dernière édition:
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.
 
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+
 
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
645
Réponses
7
Affichages
798
Retour