Création d'un nouvel onglet

[ArnaudBernardeau]

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]

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]

Re : Création d'un nouvel onglet

Re,

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

'-----
      w.DrawingObjects.Delete 'supprime tous les objets
      w.Cells.Delete

par :

'-----
      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+

 

[job75]

Re : Création d'un nouvel onglet

Re,

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

'-----
      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.

 

[ArnaudBernardeau]

Re : Création d'un nouvel onglet

Bonjour job75,

Merci pour tes précisions, utilisant plutôt la version 2007 je n'ai pas été souvent confronté à ce problème mais ça m'évitera sûrement des soucis plus tard.
Merci encore.

Bonne journée.