Sauvegarde d'une Feuil en un fichier

Bonjour,

Essaie quelque chose comme :
Tu peux remplacer "ActiveSheet" du début de la procédure
par Worksheets("NomDelaFeuille") si tu préfères

'------------------------------------------------
Sub test()
Dim Chemin As String

Application.ScreenUpdating = False
With ActiveSheet
'afin d'enregistrer le nouveau fichier
'dans le même répertoire que l'original
Chemin = .Parent.Path
.Copy
End With

If Chemin = "" Then
'le chemin que tu désires enregistrer le fichier
Chemin = "c:usersTon profilDocuments"
End If

With ActiveWorkbook
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With

.SaveAs Filename:=Chemin & "" & ActiveSheet.Range("G4") & _
" " & Format(Date, "DD-MM-YYYY") & ".xlsx", _
FileFormat:Q
'Si tu veux fermer le nouveau fichier
.Close False
End With
Application.ScreenUpdating = True
End Sub
'------------------------------------------------

Trop nickel Mich, comme dab, j'ai réussi à adapter et ca fonctionne nickel
!!!

Encore Merci (une fois de plus !)

Manu

"MichD" a écrit dans le message de groupe de discussion :
m2tr2v$st8$1@speranza.aioe.org...

Bonjour,

Essaie quelque chose comme :
Tu peux remplacer "ActiveSheet" du début de la procédure
par Worksheets("NomDelaFeuille") si tu préfères

'------------------------------------------------
Sub test()
Dim Chemin As String

Application.ScreenUpdating = False
With ActiveSheet
'afin d'enregistrer le nouveau fichier
'dans le même répertoire que l'original
Chemin = .Parent.Path
.Copy
End With

If Chemin = "" Then
'le chemin que tu désires enregistrer le fichier
Chemin = "c:usersTon profilDocuments"
End If

With ActiveWorkbook
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With

.SaveAs Filename:=Chemin & "" & ActiveSheet.Range("G4") & _
" " & Format(Date, "DD-MM-YYYY") & ".xlsx", _
FileFormat:Q
'Si tu veux fermer le nouveau fichier
.Close False
End With
Application.ScreenUpdating = True
End Sub
'------------------------------------------------


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com

Je ne comprends pas l'affectation .usedrange.value = .usedrange.value.

With ActiveWorkbook
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With

NB : s'il y a un TCD sur la feuille cela bogue.

MERCI à tous les contributeurs pour cette "formation permanente"

With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With

**** Ce petit bout de code remplace les formules qu'il y a dans toute la
feuille
par la valeur que retournent ces formules.

Effectivement, si la feuille contient un TDC sur la même feuille où
sont les
données sources du TDC, cela cause un problème. Si le TDC est sur
une feuille
indépendante des données, cela devrait aller. Attention, parce la
source des
données du TDC est encore liée à la feuille de données du classeur
source.

Merci MichD pour cette information,
je m'en doutais un peu mais c'est la syntaxe qui m'étonne.

With ActiveWorkbook
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With

Comment chaque ".UsedRange.Value" sait que ça correspond à "ActiveWorkB ook" ou à "ActiveSheet" ?

Officiellement, il manque un point "." avant ActiveSheet

With ActiveWorkbook
With .ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With
End With

Lorsque tu écris dans une procédure :

worksheets("Feuil1").copy

La feuille "Feuil1" est copiée par défaut dans un nouveau classeur n'ayant
qu'une feuille, celle que l'on vient de copier. De plus, c'est de nouveau
classeur qui devient le classeur "ACTIF". Par conséquent, ActiveSheet réfère
à la seule feuille du nouveau classeur puisqu'il n'y a qu'une.

Fais un test avec cette petite macro :
'----------------------------------------
Sub test()
With ThisWorkbook
With .ActiveSheet
.Copy
End With
End With
MsgBox ActiveSheet.Parent.Name
End Sub
'----------------------------------------

La macro copie la feuille active du classeur dans lequel la macro est écrite
et retourne le nom du nouveau classeur où la feuille a été copiée.