Discussion :

[rasulovp]

Bonjour,
J'aurais besoin de votre aide svp. Ci-dessous ma demande.
J'ai un fichier excel avec 8 onglets avec des formules. Le fichier pèse très lourd. De ce fait, je voudrais exporter pour reporting seulement 5 onglets sur 8 sans formule de calcul (juste en valeur et la mise en forme) en reprenant le nom du fichier + date et heure de l'export. Aujourd'hui je fais des copier coller en valeur et supprimer les onglets inutiles et renommer le fichier. Cependant, je voudrais automatiser cette tache via macros.
Quel serait le code VBA SVP???
Merci de votre aide

[tototiti2008]

Bonjour,

Essayes de te familiariser avec l'enregistreur de macros
https://fauconnier.developpez.com/tu...istreur-macro/

[Philippe Tulliez]

Bonjour,
Pour exporter des listes de données ne contenant que les valeurs tout en conservant la mise en forme, il existe la méthode AdvancedFilter. Cette dernière permet également de limiter le nombre de colonnes exportables et ce dans un ordre choisi.
Pour parcourir plusieurs feuilles il faudra utiliser la boucle For Each Objet In Collection ....... Next
Pour limiter le nombre de feuilles exportables, on utilisera une structure conditionnelle telle que If...... Then ....... Else ou Select Case

[MarcelG]

(Télescopage avec Philippe que je salue au passage)

Bonjour à vous, Bonjour au Forum,

Essayes de te familiariser avec l'enregistreur de macros

Oui mais à condition de prendre le recul nécessaire pour épurer de tous les méthodes Select et autres Activate.

Il te faut
- copier les feuilles sélectionnées vers un nouveau classeur
- effectuer un collage de valeurs pour toutes les cellules spéciales contenant une formule
- supprimer les noms relatifs au classeur initial
- enregistrer le classeur actif sous un nouveau nom

Ci-dessus, j'ai indiqués les liens vers les espaces documentaires adéquats.

Quelques compléments:
- Pour affecter une méthode sur un ensemble de feuilles, utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(Array("lawks1","lawks2"))

- Pour effectuer un collage de valeurs en lieu et place de formules
Si c est un objet Range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With c
  .Value = .Value
End With

[Menhir]

J'ai un fichier excel avec 8 onglets avec des formules. Le fichier pèse très lourd. De ce fait, je voudrais exporter pour reporting seulement 5 onglets sur 8 sans formule de calcul (juste en valeur et la mise en forme)

Tu Sauvegardes ton fichier complet sous son nouveau nom avec un SaveAs sur le Workbook de ton classeur.
https://docs.microsoft.com/fr-FR/off...orkbook.saveas

Tu boucles avec un For Each sur l'ensemble de la collection Worksheets de ton classeur.
https://docs.microsoft.com/fr-fr/off...next-statement

Sur l'intégralité des cellules (UsedRange) de chaque onglets, tu fais un Copy suivi d'un PasteSpecial(xlPasteValues).
https://msdn.microsoft.com/fr-fr/lib...2(v=office.15)
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Tu supprimes les onglets en trop avec un Delete sur chacun d'eux.
https://msdn.microsoft.com/fr-fr/lib...4(v=office.15)

[MarcelG]

Pour ma part, je préfère exporter les seules feuilles souhaitées.
Quant au collage spécial de valeurs, il peut s'effectuer par
.Value = .Value

De plus, il ne faut pas omettre un contrôle sur les noms afin de supprimer des liaisons éventuelles indésirables.

Chacun sa méthode.

[Menhir]

Pour ma part, je préfère exporter les seules feuilles souhaitées.

Coucou Marcel.

Je pense que si rasulovp veut remplacer les formules par des valeurs, c'est que certaines de ces formules doivent utiliser comme paramètres des valeurs des feuilles à supprimer.
Il me semble donc risqué d'exporter ces feuilles sans avoir écrasé les formules tout comme il me semble risqué d'écraser les formules avant d'exporter les feuilles.
Le plus sécuritaires est, à mon avis, de copier le fichier, d'écraser les formules puis de supprimer les feuilles indésirables.

Pour ce qui est du .Value = .Value, je ne lui fais pas trop confiance (sans doute à tord) quand il s'agit de donner en une seule ligne de code des valeurs différentes à plusieurs cellules. Je sais que ça fonctionne mais je suis plus rassuré avec un Copy + PasteSpecial(xlPasteValues).
Question de goût.

[Philippe Tulliez]

Bonjour,
L'utilisation de la méthode AdvancedFilter permet d'exporter les données en ne conservant que les valeurs des cellules ayant une formule tout en conservant le format.
Exemple de la copie des données commençant à la cellule A1 de la feuille nommée Data dans la feuille nommée Cible à partir de la cellule A1 du classeur où se trouve le code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t()
  Dim rngSource As Range ' Plage source
  Dim rngTarget As Range ' Plage ou cellule cible
  With ThisWorkbook
   Set rngSource = .Worksheets("Data").Range("A1").CurrentRegion
   Set rngTarget = .Worksheets("Cible").Range("A1")
  End With
  ' Supprime les cellules de la feuille cible
  rngTarget.Worksheet.Cells.Clear
  ' Export des données
  rngSource.AdvancedFilter xlFilterCopy, CopyToRange:=rngTarget
  ' Fin de procédure
  Set rngSource = Nothing: Set rngTarget = Nothing
End Sub

[rasulovp]

Bonjour,
merci pour vos réponses
Philippe Tulliez
J'ai quelques problèmes:
1. La mise en page n'est pas faite
2. De plus, j'ai besoin d'avoir un onglet avec le nom par exemple cible. Or, ce que je veux c'est de garder les 5 mêmes onglets avec les mêmes données, mises en forme etc et supprimer les autres onglets de base données qui pèsent beaucoup....
Je suis un peu dans l'impasse