Discussion :

[lereuland]

Bonjour à tous,

Merci de prendre le temps de venir lire mon sujet, j'espère savoir expliquer le plus clairement possible mon problème. Je débute en macro et j'essaie de décoder ce qu'il se passe même si je ne suis pas encore trop à l'aise pour innover :p

J'ai un fichier xlsm forcément, avec des formules de recherche v, index,... Bref. Une macro Archiver présentée ci dessous, se charge "d'enregistrer sous" le document présent sous une forme xls. Il ne sauvegarde que l'onglet actif, et c'est bien normal. J'aimerai savoir s'il est, en théorie, possible de lui faire enregistrer la feuille avec l'affichage "actif/présent" des formules, et non pas la formule en elle même, ou le résultat sous forme d'erreur
=> Eh oui, s'il n'enregistre que le premier onglet, à l'ouverture du fichier xls il ne retrouve pas les sources demandées par les formules et affiche donc de belles erreurs de partout.

Je pense qu'il doit exister, tout comme pour la copie/colle une forme de collage "valeurs" ou texte, qui s'appliquerait sur une macro Pensez vous que c'est jouable? Si oui, je ne parviens pas à trouver comment exprimer correctement ma recherche :/ Je penserai bien à créer la macro méthode à l'arrache, en l'enregistrant manuellement => le copié/collé brut. Mais voila, c est trop brut et les lignes à copier coller peuvent différer en nombre.

Merci à vous pour votre aide !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Archiver()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "C:\Users\lereuland\Desktop\"
nomfichier = ActiveSheet.Range("C9") & " " & Format(Date, "dd-mm") & extension
With ActiveWorkbook
    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

[joe.levrai]

Bonjour,

il faut boucler sur les cellules de la feuille
pour chaque cellule : sa valeur = sa valeur

ça va remplacer les formules par les valeurs

Code :

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

1
2
3
4
Dim Cell as Range
For Each Cell in ActiveSheet.UsedRange.Cells
    Cell.Value = Cell.Value
Next Cell

[lereuland]

4 lignes et c'était réglé...

C'est super astucieux !

J'ai parfois honte de mes questions, mais merci beaucoup pour cette efficace rapidité !

Au plaisir de vous relire !

[joe.levrai]

Pourquoi avoir honte de demander de l'aide ?

il sert à ça ce forum.

t'avais besoin d'une méthode, on te la donne.

et j'espère surtout qu'elle t'as permis d'apprendre et de pouvoir réutiliser ça

on peut optimiser mon code (merci rdurupt !)

Code :

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

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

[lereuland]

on peut optimiser mon code (merci rdurupt !)

Code :

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

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

Oui tout ce que j apprends en faisant mon tableau Excel tout ce que j ai eu à chercher j ai fait en sorte de le réutiliser du coup la encore ça M aide mais il y a tellement de choses à savoir C est énorme du coup ça change quoi en fait value plutôt que cells? L'autre appellation peut générer des erreurs?

[joe.levrai]

Les deux codes font exactement la même chose, mais pas de la même manière

si l'un marche, l'autre marchera forcément ... et inversement !
en revanche, là où je parcours chaque cellule de la plage de données de ta feuille active pour fixer la valeur des formules, rdurupt effectue la fixation directement sur la collection de cellules de cette plage.

son code est d'autant plus rapide à l'exécution, que ta plage de données est grande