Créer un fichier visuellement identique sans formules

KotoriSama · 26 Novembre 2007

[Résolu]Créer un fichier visuellement identique sans formules

Bonjour à vous,

J'aurai besoin d'un coup de pouce pour pouvoir transmettre à quelqu'un un fichier xls, mais je ne souhaites pas qu'elle ait accès aux formules et autres étapes intermédiaires de calcul.

L'idée serait d'obtenir via une astuce dont vous avez le secret, soit en VBA (je suis noob en vba ), un copier-collage spécial valeur + format de tout les onglets dans un nouveau fichier xls qui reprendrait les mêmes onglets. je peux supprimer à la main les onglets que je ne veux pas transmettre.

ou encore, à partir d'une copie de mon fichier original, automatiser le copier-collage spécial valeur+format de tous les onglets.....

En vous remerciant par avance

Tibo · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Bonjour,

La protection d'un fichier permet de masquer les formules

Sélectionner les cellules à protéger (celles avec des formules)
Bouton droit - Format de cellule - Protection
Cocher masquer

Pour toutes les autres cellules (celles où la saisie est autorisée), faire la même démarche pour décocher Verrouillée

Ensuite, Outils - Protection - Protéger la feuille

Essaye et dis nous

Bon app

@+

Banzai64 · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Bonjour

Une petite étude

benlecanard · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Pourquoi ne pas transformer le fichier ou l'onglet en .pdf?
Tout simple!

KotoriSama · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Merci à vous tous d'avoir pris le temps de me répondre

@benlecanard : je penses que mes destinataires ne savent pas ouvrir un pdf bon, peut être, mais en fait, il faut qu'ils puissent modifier éventuellement certains commentaires d'où l'obligation de rester en xls, sinon un ti coup de PDFCreator et le tour était joué ^^

@Tibo : la protection que tu me préconises n'est pas suffisante, car il suffirait d'ouvrir le fichier avec OpenOffice pour faire sauter les protections. ça aurait été impeccable si j'avais juste peur qu'ils me les abiment, mais là je ne veux pas qu'ils puissent les réutiliser en fait....

@Banzaï64 : ça a l'air d'être exactement ce qu'il me faut, big up

Merci à vous tous,

j'essaye d'intégrer la macro de Banzaï64 et je donne des nouvelles

KotoriSama · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

En utilisant la macro de Banzaï64, ça me recopie bien mes onglets, mes formats, mes données, par contre il faut refaire toute la mise en page (saut de pages...), et je ne l'avais pas précisé, dsl ...

Aussi vais-je essayer de partir de ce que vous avez gentiment fait pour :
1 copier tout mes onglets dans un nouveau classeur
2 remplacer les formules par les valeurs en me servant du code de Banzaï64

Par contre je risque de vous resolliciter ultérieurement, mon niveau de VBA étant proche du néant.

Merci encore

KotoriSama · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Re tlm, alors, j'ai essayé en ajoutant du code à celui Banzaï64 :

Sub Creation_Classeur()
Dim Wb01 As Workbook
Dim Wb02 As Workbook
Dim NbFeuilles01 As Integer
Dim NbFeuilles02 As Integer

Dim I As Integer

Set Wb01 = ThisWorkbook
Set Wb02 = Workbooks.Add
NbFeuilles01 = Wb01.Sheets.Count
NbFeuilles02 = Wb02.Sheets.Count
If NbFeuilles02 < NbFeuilles01 Then
Wb02.Sheets.Add Count:=NbFeuilles01 - NbFeuilles02
End If
For I = 1 To Wb01.Sheets.Count
Wb01.Sheets(I).Cells.Copy
Wb02.Sheets(I).Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Wb02.Sheets(I).Range("A1").PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Wb02.Sheets(I).Name = Wb01.Sheets(I).Name
Wb02.Sheets(I).PageSetup.FitToPagesWide = Wb01.Sheets(I).PageSetup.FitToPagesWide
Wb02.Sheets(I).PageSetup.PrintArea = Wb01.Sheets(I).PageSetup.PrintArea
Wb02.Sheets(I).PageSetup.FitToPagesTall = Wb01.Sheets(I).PageSetup.FitToPagesTall

Next I
End Sub

Et en fait ça ne fonctionne pas pour ce qui est d'ajuster le nombre de pages pour l'impression....

Si vous pouvez me décoincer ^^

En vous remerciant d'avance

Banzai64 · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Bonsoir

A ce niveau je passe la main

désolé

Je suis ce fil cela m'interesse de le savoir

Je pense qu'il faut 'jouer' avec VPageBreaks et HPageBreaks

KotoriSama · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Merci à toi dans tout les cas Banzai64

Alors je récapitule :

L'idée : j'ai un fichier avec pleins d'onglets, qui contiennent des formules, des résultats intermédiaires, des commentaires, et des formats divers et variés.
Je souhaiterai obtenir, à partir de ce fichier, un nouveau fichier qui reprend toute la mise en page (zone d'impression et "ajustement des pages"), format des cellules, lignes et colonnes, et uniquement les résultats des données calculées (genre copier/collage spécial valeur+format), et nom d'onglets.

La piste vue avec Banzai : cf macro ci-dessus (en italique mes ajouts qui la font planter)

Vous remerciant par avance

Obs : je suis sous office 2002 sp3

Banzai64 · 26 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Bonsoir

Peut-être une solution

KotoriSama · 27 Novembre 2007

Re : Créer un fichier visuellement identique sans formules

Bonjour à vous,

Ca marche impec ^^

Un grand merci à vous tous et big up à toi Banzaï64

Bonne journée

Créer un fichier visuellement identique sans formules

KotoriSama

XLDnaute Nouveau

Tibo

XLDnaute Barbatruc

Banzai64

XLDnaute Accro

Pièces jointes

benlecanard

XLDnaute Junior

KotoriSama

XLDnaute Nouveau

KotoriSama

XLDnaute Nouveau

KotoriSama

XLDnaute Nouveau

Banzai64

XLDnaute Accro

KotoriSama

XLDnaute Nouveau

Banzai64

XLDnaute Accro

Pièces jointes

KotoriSama

XLDnaute Nouveau

Discussions similaires