XL 2010 Problème export donnée d'un fichier via vba

[Linda42]

Bonjour,

Je rencontre un problème lors de l'export d'une partie de mon fichier via un bouton de contrôle VBA.

Je dois saisir chaque jours le nombre de tournées dans le tableau B4:BA98, ce qui fait un récapitulatif mensuel à la fin du mois. Je dois par contre envoyer ce tableau à ma cliente tous les jours, et pour cela j'ai associé une vba me permettant d'exporter uniquement le tableau (A1:BA94) sur un nouveau classeur et enregistrer automatiquement dans un dossier précis. Le reste des informations doivent lui être transmis qu'une fois par mois, au moment de la facturation.

L'export fonctionne bien ainsi que la sauvegarde mais le soucis c'est la modification de la couleur, en effet lorsque je clique pour l'export, les éléments en violet deviennent orange. Egalement, ma MFC lié au jours férié disparait aussi (peut être parce que la source des jours fériés en question est sur une feuille différente, et qu'elle ne fait pas l'objet de l'export??).

Le fichier original comporte autant de feuille que de mois de l'année ainsi que des feuilles de consolidation et TCD.

Vous aurez compris mon pb, comment exporter mes données sans modifications des valeurs, formats voir même formules.

Merci pour votre aide

Cdt

 

[Phil69970]

Linda, le forum

Voici une piste peut être ici :

https://www.excel-downloads.com/threads/lister-les-mfc-dune-feuille.20032230/page-2#post-20355537

@Phil69970

 

[Linda42]

Bonjour Phil,

Il semblerait que cela ne concerne pas le changement de couleur qui passe du violet au Orange.

En revanche cela explique le fait que la couleur de jours fériés disparaisse car soumis à une MFC.

Cdt

 

[job75]

Bonjour Linda42, Phil69970,

Je pense que DisplayFormat existe sur Excel 2010 alors voyez ce code dans Module4 :

  With wshDst
    rngSrc.Copy .Range("A1")                    ' cellule de destination à adapter
    .Cells.FormatConditions.Delete 'supprime les MFC copiées
    Dim c As Range
    For Each c In rngSrc
        .Range(c.Address).Interior.Color = c.DisplayFormat.Interior.Color 'copie la couleur affichée
        .Range(c.Address).Interior.Pattern = c.DisplayFormat.Interior.Pattern 'copie le motif affiché
    Next

A+

 

[Linda42]

Bonjour Job75

Super, cela fonctionne. Merci beaucoup. Pourrait-on inclure l'effacement du bouton de contrôle dans le fichier exporté.
J'ai tenté avec
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
mais cela entraine un blocage

En tout super, et merci beaucoup
Cdt

 

[job75]

J'ai tenté avec
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete

Utilisez :

ActiveSheet.DrawingObjects.Delete

 

[Linda42]

Utilisez :

ActiveSheet.DrawingObjects.Delete

UN GRAND MERCI