Votre question
Résolu

Comment exporter des onglets dans un autre fichiers excel, avec seulement les valeurs

Tags :
  • Microsoft Excel
  • VB
  • Programmation
Dernière réponse : dans Programmation
3 Janvier 2017 12:25:22

Bonjour,

Voici mon soucis :

J'ai actuellement un fichier Excel avec huit onglets, tous comprenant beaucoup de formules. Je doit envoyer 5 de ses 8 onglets (dans un même fichier) à un client (donc sans les formules, seulement les valeurs). Voici mon code actuel :

  1. Sub RecoverValueOnly()
  2. '
  3. ' RecoverValueOnly Macro
  4. ' ctrl + (e) nregister. Afin d'enregistrer ce template immédiatement traitable pour IDOLS
  5. 'Sub RecoverValueOnly()
  6. Dim Chemin As String
  7.  
  8. Chemin = ThisWorkbook.Path & "\"
  9. 'Changer pour "C:\Documents and Settings\te\My Documents\" (par exemple si on veut un autre chemin que le répertoire en cours)
  10. With ThisWorkbook
  11. Sheets(Array("FHTO", "EVENTS", "LOGBOOK", "LRU REMOVALS", "ENG APU REM.")).Copy '<<<< ou Sheets("LaFeuille").Copy (Si nécessaire)
  12.  
  13. End With
  14. With ActiveWorkbook
  15. For i = 1 To .Sheets.Count
  16. Sheets(i).Cells.Copy
  17. Cells.PasteSpecial Paste:=xlPasteValues
  18. Application.CutCopyMode = False
  19. Cells.Validation.Delete
  20. Next
  21. .SaveAs Chemin & "CopieFeuilleDeTravail.xls"
  22. Close True
  23. End With
  24. '
  25. End Sub



Voila, si quelqu'un pourrait m'aider, je serais ravi, je ne pense pas être loin du but car la maccro marche, elle copie bien mes cinqs onglets mais seulement le premier onglets est coller sans les formules. Les autres onglets possèdent leurs formules...

Merci et bonne année

Autres pages sur : exporter onglets fichiers excel seulement valeurs

a b L Programmation
9 Janvier 2017 12:54:52

Salut, toujours d'actualité ?
m
0
l
9 Janvier 2017 16:35:06

toujours
m
0
l
Contenus similaires
a b L Programmation
9 Janvier 2017 16:38:35

Je jette un oeil demain.
m
0
l

Meilleure solution

a b L Programmation
10 Janvier 2017 08:57:02

Salut, pas très orthodoxe comme méthode, mais astucieux ;) 

Comme ça de premier abord et après test rapide, je dirais que ton erreur est ici:

  1. Cells.PasteSpecial Paste:=xlPasteValues

Essaie de remplacer par:
  1. Sheets(i).Cells.PasteSpecial Paste:=xlPasteValues
partage