Besoin d'aide VBA
Bonsoir, dans le cadre de mon stage en entreprise je dois automatiser divers opérations pour traiter une base de données. Le fichier d'origine est un classeur excel.
Je demande votre aide car je bloque sur une macro: j'ai une feuille excel appelée "CPC" ou j'enregistre le total des ventes et charges et qu'elle calcule automatiquement le résultat d'une journée précise (ce travail je dois l'effectuer quotidiennement) . J'ai besoin d'une macro qui copie chacune de ses feuilles dans un seul et même classeur "archivage". donc a la fin le nouveau classeur "archivage" doit contenir 31 feuille déja calculée dans la feuille "CPC".
Pouvez vous me donnez un code pour une macro qui réaliserai ceci?
merci d'avance
Je demande votre aide car je bloque sur une macro: j'ai une feuille excel appelée "CPC" ou j'enregistre le total des ventes et charges et qu'elle calcule automatiquement le résultat d'une journée précise (ce travail je dois l'effectuer quotidiennement) . J'ai besoin d'une macro qui copie chacune de ses feuilles dans un seul et même classeur "archivage". donc a la fin le nouveau classeur "archivage" doit contenir 31 feuille déja calculée dans la feuille "CPC".
Pouvez vous me donnez un code pour une macro qui réaliserai ceci?
merci d'avance
Configuration: Windows XP Firefox 3.0.7
7 réponses
-
Contributeurbonjour
ça ferait qqchose comme ça :Sub Sauvegardefeuille() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\sauvegarde.xls" ThisWorkbook.ActiveSheet.Copy Before:=Workbooks("sauvegarde.xls").Sheets(1) Workbooks("valeurs.xlsx").Save Workbooks("valeurs.xlsx").Close Application.ScreenUpdating = True MsgBox "sauvegarde éffectuée" End Sub
-
Contributeurbonjour,
"j'ai une feuille excel appelée "CPC" [...] J'ai besoin d'une macro qui copie chacune de ses feuilles dans un seul et même classeur "archivage" => j'ai pas compris, y'a un feiulle ou plusieurs ?
"donc a la fin le nouveau classeur "archivage" doit contenir 31 feuille déja calculée dans la feuille "CPC"" => euh....encore moins clair, t'as 31 feuilles dans 1 feuille ????
peux-tu ré-expliquer stp ? -
voila je vais plus éclaircir, je veux copier le contenu d'une feuille de base appelé "CPC" dans un autre classeur"archivage"
bon disons j'ai deux classeurs le premier la ou je fais le calcul, et je veux copier ce calcul dans le 2ème classeur ou je mets l'archivage de mes calculs.
A chaque fois je réalise mon calcul je veux le copier et le sauvegarder dans un autre classeur.
Donc dans le classeur "archivage" faut qu'il apparait 31 feuilles à la fin du moi, chaque feuille représente un jours d'un mois précis.
et merci encore une fois -
merci infiniment ça marche très bien, mais quand j'exécute la macro il me fait une erreur d'exécution "9"
L'indice n'appartient pas à la sélection. est ce que tu sais de quoi s'agit il ? -
Contributeuroups, dsl j'ai oublié d'adapter le nom de fichier ds tout le code, "valeurs.xlsx" est le fichier que j'ai utilisé pour tester, remplace avec le nom de ton fichier de sauvegarde...
-
Contributeurok :
Sub Sauvegardefeuille() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\sauvegarde.xls" ThisWorkbook.ActiveSheet.Copy Before:=Workbooks("sauvegarde.xls").Sheets(1) Workbooks("sauvegarde.xls").Save Workbooks("sauvegarde.xls").Close Application.ScreenUpdating = True MsgBox "sauvegarde éffectuée" End Sub
passages en gras à adapter avec le nom/emplacement de ton fichier sauvegarde.....-
-
Contributeur@90-mossRe,
tu voudrais que la feuille sauvegardée soit nommée avec la date du jour, c'est ça ?
dans ce cas :Sub Sauvegardefeuille() Application.ScreenUpdating = False d = Format(Date, "dd-mm-yyyy") Workbooks.Open Filename:="D:\valeurs.xlsx" For Each ws In Workbooks("valeurs.xlsx").Sheets If ws.Name = d Then MsgBox "Une feuille " & d & " existe déjà dans le classeur " & Workbooks("valeurs.xlsx").Name & vbCrLf & "Abandon de la sauvegarde" Workbooks("valeurs.xlsx").Saved = True Workbooks("valeurs.xlsx").Close Exit Sub End If Next ws ThisWorkbook.ActiveSheet.Copy Before:=Workbooks("valeurs.xlsx").Sheets(1) Workbooks("valeurs.xlsx").Sheets(1).Name = Format(Date, "dd-mm-yyyy") Workbooks("valeurs.xlsx").Save Workbooks("valeurs.xlsx").Close Application.ScreenUpdating = True MsgBox "sauvegarde éffectuée" End Sub -
@tompolsdans le dernier code t'as présenté que le classeur "valeurs.xls" sans mettre le classeur de sauvegarde !!
-
Contributeur@90-mossoui, autant pour moi, jsuis un peu fatigué (en meme temps ça veut dire que je test le code avant de te le donner ;) ), mais maintenant tu connais le truc, tu remplaces avec ton classeur :
Sub Sauvegardefeuille() Application.ScreenUpdating = False d = Format(Date, "dd-mm-yyyy") Workbooks.Open Filename:="D:\sauvegarde.xls" For Each ws In Workbooks("sauvegarde.xls").Sheets If ws.Name = d Then MsgBox "Une feuille " & d & " existe déjà dans le classeur " & Workbooks("sauvegarde.xls").Name & vbCrLf & "Abandon de la sauvegarde" Workbooks("sauvegarde.xls").Saved = True Workbooks("sauvegarde.xls").Close Exit Sub End If Next ws ThisWorkbook.ActiveSheet.Copy Before:=Workbooks("sauvegarde.xls").Sheets(1) Workbooks("sauvegarde.xls").Sheets(1).Name = Format(Date, "dd-mm-yyyy") Workbooks("sauvegarde.xls").Save Workbooks("sauvegarde.xls").Close Application.ScreenUpdating = True MsgBox "sauvegarde éffectuée" End Sub
-
-
je sais pas comment te remercier !! ça marche vraiment très bien merci
