Collage valeur et enregistrement
Bonjour,
Je souhaiterai enregistrer en créant un nouveau fichier uniquement l'onglet "recap client" avec le nom du client (cellule C3 de "recap client") et en faisant un collage spécial pour garder les valeurs.
J'ai déja essayé avec une macro trouver sur le forum mais je n'arrive pas à l'adapter à mon tableur:
Dim sh As Worksheet
For Each sh In Sheets
With sh.Cells.SpecialCells(xlCellTypeFormulas, 23)
x = .Areas.Count
For i = 1 To x
.Areas(i).Value = .Areas(i).Value
Next i
End With
Next sh
Dim chemin As String, fichier As String
'chemin = ThisWorkbook.Path
chemin = "C:\Documents and Settings\Laurent\Mes documents\Projet\Gestion\Clients"
fichier = chemin & "\" & Range("C3") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
Quelqu'un pourrai-t-il m'aider?
D'avance merci à tous
Icetea
https://www.excel-pratique.com/~files/doc/lcasIPlanning_emplyes2.xls
Bonjour
Peux-tu tester le Fichier ?
Par contre, il faudrait peut-être ajouter une date pour le nom du fichier car chaque mois tu écraseras le fichier précédent.
Amicalement
Nad
Merci de ta réponse rapide Nad,
Je viens de tester le fichier, ça fonctionne correctement, cependant j'ai toujours les formules dans le fichier créé, y a t-il possibilité de n'avoir que les valeurs.
Encore merci
Icetea
Nad,
Je viens de remarquer que les dates sont modifiées quand on enregistre le fichier??
D'ou cela peut-il venir?
Icetea
Je n'avais pas fait attention aux dates ; je regarde.
Pour ne plus avoir les formules, dans la macro, après .copie tu ajoutes .PasteSpecial Paste:=xlPasteValues
Ce qui donne :
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues
End WithNad
Bon, je ne vois pas pourquoi les dates changent.
Dan, Claude ou un autre spécialiste, vous pouvez regarder SVP ?
Amicalement
Nad
Ouf ! J'ai bataillé un moment avec Dan au téléphone pour comprendre ce changement de date !
Tu as coché "Calendrier depuis 1904" dans OUTILS OPTIONS
Il faut que tu le décoches et que tu ressaisisses tes dates.
Amicalement
Nad
Un grand merci à vous 2, ça marche super.
Vraiment excel-lent ce forum
Je n'hésiterai pas à revenir, je pense dans pas longtemps.
Encore merci
Icetea