Bonjour à tous,
N'ayant pas trouvé mon bonheur sur la toile (et comme je suis pas bien à l'aise en VBA), je me tourne vers vous. Voici l'objet de ma requête :
Je souhaite, grâce à un bouton, enregistrer en format/valeur mon classeur actif (si il est possible de "ne pas sélectionner quelques feuilles" et non de "sélectionner quelques feuilles" (en effet sur les 250 onglets que comprends mon classeur, seul 2 feuilles ne doivent pas être enregistrer mais je peux faire cette manip à la main), je suis preneur).
Voici mon code pour le moment :
Public Sub Sauvegarde() 'copie sauvegarde classeur
Dim nom As String
nom = Month(Date) - 1 & "-" & Year(Date) & " - Reporting Clients RGC"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Fichier sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
Cela fonctionne très bien mais il me copie le classeur avec ses formules. J'ai pensé a rajouter un :
Activeworkbook.copy
Mais je ne trouve pas la combine pour tout mettre ensemble.
merci de votre aide.
J.
N'ayant pas trouvé mon bonheur sur la toile (et comme je suis pas bien à l'aise en VBA), je me tourne vers vous. Voici l'objet de ma requête :
Je souhaite, grâce à un bouton, enregistrer en format/valeur mon classeur actif (si il est possible de "ne pas sélectionner quelques feuilles" et non de "sélectionner quelques feuilles" (en effet sur les 250 onglets que comprends mon classeur, seul 2 feuilles ne doivent pas être enregistrer mais je peux faire cette manip à la main), je suis preneur).
Voici mon code pour le moment :
Public Sub Sauvegarde() 'copie sauvegarde classeur
Dim nom As String
nom = Month(Date) - 1 & "-" & Year(Date) & " - Reporting Clients RGC"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Fichier sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
Cela fonctionne très bien mais il me copie le classeur avec ses formules. J'ai pensé a rajouter un :
Activeworkbook.copy
Mais je ne trouve pas la combine pour tout mettre ensemble.
merci de votre aide.
J.