Code VBA pour sauvegarder dans un autre fichier EXCEL

[phiphi27]

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]

Re : Code VBA pour sauvegarder dans un autre fichier EXCEL

Bonjour phiphi27,

Voici un code qui a l'air de fonctionner :

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+

 

[phiphi27]

Re : Code VBA pour sauvegarder dans un autre fichier EXCEL

Merci c'est ce qu'il me falait
Bonne journée

 

[mouss5174]

Re : Code VBA pour sauvegarder dans un autre fichier EXCEL

bonjour,
J'ai essayer le code mais que dois faire pour eviter une erreur lors du click sur annuler


Cdt