Discussion :

[DIDIDIDA]

bonjour à tous;
j'ai un petit probleme!!
j'ai fait un bouton qui enregistre une feuille qui contient des résultats ontenue en utilisant des formules, le problems quand j'enregistre le srésultats obtenue ,et ferme et alors quand j' ouvre une autre fois elle fait automatiquement la mise à jours (le lien avec les nouvelle données) moi je ne veux pas de çc, au fait je veux enregitrer la feuille de données avec juste les chiffres affichés mais sans formules, est celà est possible? merci par avance

Code :

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

1
2
3
4
[Feuil9].Activate
ActiveSheet.Copy
'Affiche la boîte de dialogue
Application.Dialogs(xlDialogSaveAs).Show

[Le Pierre]

bonjour

Oui c'est possible en réalisant un collage spécial --> valeur
mais pour conserver les formats il faut auparavant réaliser un collage normal.

voici un exemple réalisé avec l'enregistreur de macro qui colle la feuil1 (par exemple) sur la feuil2 :

Code :

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

1
2
3
4
5
6
7
8
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    ActiveSheet.Paste
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

à plus

[DIDIDIDA]

pour etre plus claire je veux copier ma feuille avec ces valeurs et pas les formules!!!est ce dejà cela est possible ? merci

[Gorfael]

Salut DIDIDIDA

Code :

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

1
2
3
4
5
[Feuil9].Copy
[Feuil9].cells.Copy
ActiveSheet.Cells.PasteSpecial (xlPasteValues)
'Affiche la boîte de dialogue
Application.Dialogs(xlDialogSaveAs).Show

La première copie me crée la feuille avec les format des cellule
la 2me écrase le contenu des cellules avec la valeur de chaque cellule

Par principe, je n'utilise jamais le nom informatique de la feuille, je préfère utiliser Sheets("non d'onglet") que je maîtrise plutôt que celui qui est attribué par Excel.
Dans le même ordre d'idée, je renomme la nouvelle feuille dès que possible. Cette méthode évite quelques désagréables surprises
A+

[ouskel'n'or]

Ton pb, copier une feuille (dans un autre classeur ?) sans mise à jours
Tu as plusieurs solutions.
1 - Tu veux conserver les formules dans ta feuille
2 - Tu ne veux pas conserver les formules

Solutions :
1 - Tu désactives le calcul de la feuille collée
2 - Tu pratiques en deux temps :
tps A - Copie de la feuille
tps B - Copie des seules valeurs par collage spécial

Tu dis la solution que tu retiens et précise si la copie et l'original sont dans le même classeur.
Après, tu pourras enregister "sous"

[DIDIDIDA]

merci pierre , je vien de voir ta réponse. deja au moins je sais que c"est realisable, maintenant il faut que je cherche la syntaxe qu'il faut!!

tout d'abord merci à vous tous,
Gorfael: j'ai essayé ta syntaxe mais ça marche pas ça m'affiche un pbm d'execution!!!à ce niveau:

Code :

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

ActiveSheet.Cells.PasteSpecial (xlPasteValues)

OUSKL'N'OR: je veux copier la feuille mais sans formule en il faut préciser ça dans le code , parceque l'utilisateur apres ce n'est pas moi§!!!!

[ouskel'n'or]

Code :

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

1
2
3
    Sheets("Feuil2").Copy After:=Sheets(Sheets.count) 'copie et place la copie après la derniere feuille
    Sheets("Feuil2").Cells.Copy
    ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues

Tu adaptes le nom de la feuille copiée

Tu peux nommer ta nouvelle feuille
Activesheet.name = "coucou je suis la copie"

[DIDIDIDA]

ouskl'n'or, avec ta syntaxe ça m'affice la meme erreur qu'avec la syntaxe de gorfael: " la methode PastSpecial de la classe range a echoé" et en plus moi je ne veux pas préciser si possible ou il va mettre la feuille à copier. c'est en utilisant la boite de dialogue....j'ai aussi une question si vous me le permettez et manuelement ça ce fait comment? merci

j'ai oublier de préciser que ma feuille était securisée, maintenat j'ai enlevé la securité, alors en utilisant ce code il m'affiche ça: "cette opération requiert que les cellules fusionnées sont de taille identiques"

Code :

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

1
2
3
4
5
6
 
[Feuil11].Copy
[Feuil11].Cells.Copy
ActiveSheet.Cells.PasteSpecial (xlPasteValues)
'Affiche la boîte de dialogue
Application.Dialogs(xlDialogSaveAs).Show

est ce là parceque j'ai des cellules fusionnées???

[Le Pierre]

bonjour
Je reviens sur mon code précédent, puisque tu veux effacer les formules de la feuille en cours voici le nouveau code :

Code :

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

1
2
3
4
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

et à la main tu sélectionnes tout ta feuille --> Copier
ensuite Edition --> Collage spécial... --> Valeurs
à plus

[DIDIDIDA]

Le Pierre : ton code fonctionne mais il m'enregitre apres tout le classeur et pas seulement la feuille et si je fait ça :

Code :

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

ActiveSheet.Copy

pour dire que juste la feuille, ça marche pas:

Code :

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

1
2
3
4
5
6
7
8
[Feuil11].Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      ActiveSheet.Copy
'Affiche la boîte de dialogue
Application.Dialogs(xlDialogSaveAs).Show

[DIDIDIDA]

c'est tres bon ça marche avec le code précedent je suis ters contente encore merci c'est symapat