[VBA-E] Snapshot d'un workook Excel

Version imprimable

13/02/2007, 12h14
Manuk

[VBA-E] [RESOLU] Snapshot d'un workbook Excel

Bonjour à tous,

J'aimerais donc faire un snapshot d'un workbook excel.

Je m'explique :
J'ai un fichier Excel de statistiques extrait d'une base de données grace aux pivot tables.

Etant donné que la base de donées évolue constament, je voudrais faire un snapshot tout les X temps pour garder une trace des statistiques de la semaine x par exemple.

J'ai essayé d'enregistrer une macro en sélectionnant toutes les feuilles et en l'enregistrant dans un nouveau fichier ... pas de problème ça fonctionne ... MAIS il me copie aussi ce qu'il y derrière les feuilles, c'est à dire les requetes vers les pivot tables ... ce que je ne veux pas sinon il actualise la copie du nouveau fichier quand je l'ouvre.

En gros je voudrais faire un copier/coller des données d'un fichier pour en garder une trace.

J'ai un peu parcouru les web et ce forum pour trouver une solution... sans succès.
Je n'ai aucune base en VB et je ne sais pas par ou commencer ma recherche.
Si vous pouviez m'éclairer ce serait cool.

Merci d'avance.
13/02/2007, 12h18
Invité

Bonjour

Comment effectue ta copie ?

1 - Si tu copie ta feuille c'est normal, il copie tout ce qui va avec
2 - Sinon la meilleur solutions est de faire une copie de ce qu'il y'a dans ta feuille, en fait il faut :

Activer ta feuilles
Sélectionner les cellules
Ouvrir la nouvelle feuille
Copier les cellules

Fais le avec l'enregistreur de macro pour avoir la syntaxe

Starec
13/02/2007, 12h24
tazamorte

Personnellement pour ton probleme vu que tu parles de snapshot cela me fait pensé a un cliché donc est ce que tu veux garder juste une image a un instant T ou est ce que tu veux sauvegarder à un instant T car si c pour une image alors tu pourrais envisager de faire un export au format gif de ton tableau a un instant T
13/02/2007, 13h31
random

ben c'est assez inutile
si j'ai des tables avec des stats historiques à l'aide de msquery je fais une requête sur ces tables et j'ajoute des critères de paramètres
where datestat>=[datedébut] and datestat.je renvoie alors mes données soux excel et je lie mes paramètres [datedébut] et [datefin] avec deux cellules excel

si je veux ensuite consulter les données historiques il me suffit de modifier ces cellules

Si j'ai bien compris ce que tu cherches à faire, c'est gardé une image à l'instant T de ton fichier...C'est à dire de ne conserver que les valeurs sans les formules

Essaie donc çà
Code:

1 2 3 4 5 6 7 8 9 10 'Selection de ta zone à sauvegardé Cells.Select Selection.Copy 'Lieu où tu veux la copier Sheets("Feuil2").Select Cells.Select 'Méthode qui permet de faire un collage spéciale en ne prenant que les valeurs Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

14/02/2007, 08h11
Manuk

Merci pour vos réponses...

Oui c'est bien un "cliché" des données à un instant T que je veux effectuer.

Helios77 : Merci pour ce bout de code, en enregistrant une macro, je remarque que cela est similaire à ton code (un Paste Spécial avec Values et Formats pour aussi garder la mise en page)

Random : la raison d'être est que les pivot tables utilisées font des requêtes sur un datawarehouse assez conséquent et si je rajoute une condition supplémentaire (les dates) cela va alourdir la requête et augmenter le temp de réponse. C'est pour cela que je veux transformer mon xls de temps à autre en un "bête" fichier xls.

Je collerai mon code dès que j'arrive à un résultat probant.
14/02/2007, 09h48
helios77

pense à mettre résolu si c'est résolu

Désolé pour ma réponse tardive ...
Voilà j'ai trouvé la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub WeeklyCopy2()
 
   Application.DisplayAlerts = False
 
   Dim f As String
   f = "xxx.xls"
   Dim nf As String
   nf = "yyy SUMMARY_" & Month(Date) & "_" & Day(Date) & "_" & Year(Date) & ".xls"
 
    ThisWorkbook.Sheets("Results BE-NL").Select
    Cells.Select
    Selection.Copy
 
    Set wb = Workbooks.Add
    wb.Sheets("Sheet1").Name = "Results BE-NL"
    wb.Sheets("Results BE-NL").Select
 
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 
ActiveWorkbook.SaveAs Filename:= _
        nf, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
 
wb.Close
 
End Sub

Au départ, je devais copier le workbook entier ... mais c'est la même procédure répétée pour plusieurs sheets.