Création d'un nouvel onglet

ArnaudBernardeau

XLDnaute Junior
Bonjour,

Je cherche à réaliser quelque chose qui est au dessus de mes compétences donc je me tourne vers vous dans l'espoir que quelqu'un puisse m'aider.

J'ai un fichier de reporting de données qui se met à jour tous les jours (je le joints en PJ). J'aimerai conserver une photo de ce fichier tous les mois afin de pouvoir me constituer un historique de mes données.

Pour cela, je souhaiterai faire deux choses que je n'arrive pas à réliser pour le moment.

1) Créer un nouvel onglet de manière automatique tous les 28 du mois avec le fichier "figé", ça serait donc une version image ou seulement les valeurs, afin que les formules ne s'appliquent plus... Chaque onglet serait nommé selon le mois de l'enregistrement.

2) Avoir une cellule avec un fichier déroulant comprenant les mois enregistrés, d'où on peut accéder aux onglets créés. Ce point là est un peu gadget il est vrai, mais j'aimerai pouvoir masquer les onglets lors de la diffusion du fichier pour des raisons de limite d'accessibilité. Si le nouvel onglet créé pouvait être masqué automatiquement dès son apparition, ça serait encore mieux mais je ne sais pas si c'est réalisable...

J'espère avoir été assez clair, je vous remercie d'avance pour votre aide.

Cordialement.
 

ArnaudBernardeau

XLDnaute Junior
Re : Création d'un nouvel onglet

Re,

Je voulais que ce soit plus visuel et plus direct en fait mais c'est vrai que c'est tout aussi simple.

Je n'ai pas d'explication par rapport au message, peut être que ça vient des différentes modifs que j'ai faites par rapport au fichier initial...

Merci en tout cas pour la rapidité de la réponse.

@+
 

job75

XLDnaute Barbatruc
Re : Création d'un nouvel onglet

Re,

Sur Excel 2003 je suis arrivé à éviter le message à la fermeture en complétant :

Code:
'-----
      w.DrawingObjects.Delete 'supprime tous les objets
      w.Cells.Delete
par :

Code:
'-----
      If w.ChartObjects.Count Then _
        w.ChartObjects(1).Chart.SetSourceData Source:=Sh.[A1] 'redéfinition
      w.DrawingObjects.Delete 'supprime tous les objets
      w.Cells.Delete
Mais j'avoue ne toujours pas comprendre le pourquoi du comment de ce message...

Fichier (4).

A+
 

Pièces jointes

  • Exemple(4).xls
    158.5 KB · Affichages: 20
  • Exemple(4).xls
    158.5 KB · Affichages: 27
  • Exemple(4).xls
    158.5 KB · Affichages: 26
Dernière édition:

job75

XLDnaute Barbatruc
Re : Création d'un nouvel onglet

Re,

Toujours sur Excel 2003, on peut aussi éviter le message avec :

Code:
'-----
      w.DrawingObjects.Delete 'supprime tous les objets
      w.Cells.Clear
Les lignes et colonnes ne sont pas remises à leurs dimensions standard.

Fichier (5).

Bonne soirée.
 

Pièces jointes

  • Exemple(5).xls
    159 KB · Affichages: 21
  • Exemple(5).xls
    159 KB · Affichages: 28
  • Exemple(5).xls
    159 KB · Affichages: 37

Discussions similaires