Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : Enregistrer une feuille dans un nouveau classeur
En fait, en cherchant un peu ;-) j'y suis parvenu en faisant :
Sub sauve()
Dim Chr As String 'déclare la variable
Dim Rapport As String
Rapport = Feuil2.Range("D2").Value
Chr = Format(Rapport, "dd_mm_yyyy")
Sheets("Ventes").Select
Sheets("Ventes").Copy
ChDrive "D"
ChDir "D:\Projet salle\Logiciel 2\Rapports" 'Change le répertoire
ActiveWorkbook.SaveAs Filename:=(Chr)
End Sub
Re : Enregistrer une feuille dans un nouveau classeur
Salut a tout les deux,
Le code suivant a l'air de fonctionner :
PHP:
Sub sauve()
Dim Rapport As String
Rapport = Format(Feuil2.Range("D2").Value, "dd_mm_yyyy")
Sheets("Feuil2").Copy
ChDir "D:\Projet salle\Logiciel 2\Rapports\" 'Indique le repertoire
ActiveWorkbook.SaveAs Filename:=(Rapport)
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.