Code VBA pour sauvegarder dans un autre fichier EXCEL

phiphi27

XLDnaute Junior
Bonjour
Je souhaiterai un petit code VBA pour :
Je click sur un bouton qui s’appelle ex. « Sauvegarde »
Quand je click dessus il m’ouvre une box qui me demande sous quel nom je veux sauvegarder la feuille et qu’il l’enregistre sous « Mes documents »
Je ne veux sauvegarder la feuille "Calendrier"
Je veux sauvegarder que la mise en forme et les valeurs pas les formules
Merci et bonne journée
Phiphi
 

mromain

XLDnaute Barbatruc
Re : Code VBA pour sauvegarder dans un autre fichier EXCEL

Bonjour phiphi27,

Voici un code qui a l'air de fonctionner :
VB:
Sub Test()
Dim newWbk As Workbook, feuilCal As Worksheet, pathMesDocuments As String, nomNewClasseur As String

    'définir le chemin de MesDocuments
    pathMesDocuments = "E:\aMiki\XLS\test"
    
    'définir la feuille à copier
    Set feuilCal = ThisWorkbook.Sheets("Calendrier")
    
    'créer un nouveau classeur avec une seulle feuille
    Set newWbk = Application.Workbooks.Add(xlWBATWorksheet)
    
    'copier les cellules de la feuille "Calendrier"
    feuilCal.Cells.Copy
    
    'coller les valeurs dans le nouveau classeur, puis les formats, puis les largeurs de colonnes
    newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteValues
    newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteFormats
    newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
    Application.CutCopyMode = False
    
    'récupérer le nom à donner au nouveau classeur
    nomNewClasseur = InputBox("Nom du nouveau classeur :")
    
    'sauvegarder le classeur et le fermer
    newWbk.SaveAs pathMesDocuments & "\" & nomNewClasseur & ".xls"
    newWbk.Close
    
End Sub
Pour la partie création du bouton, de nombreux exemples sont présents sur le forum. Bonne recherche ;)

a+
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
283 682
Messages
1 853 490
Membres
152 184
dernier inscrit
LegVal10
Haut Bas