sauvegarder uniquement les valeurs
Le
Claude HERRMANN
Bonjour,
Encore moi avec toujours un peu le même problème.
La macro ci-après fonctionne bien.Le fichier ainsi créé est une copie sans
indication de mode, mais qui s'ouvre avec excel.
Le fichier "sauvegarde" contient des equations. Je les retrouve dans le
fichier sauvegardé. Je ne voudrais que les valeurs.
Quelle est la syntaxe pour dire "sauvegarder uniquement les valeurs du
fichier NomClasseur".
Autre possibilité:
Ouvrir le fichier que l'on vient de sauvegarder sous NomClasseur.
Et rompre les liens.
Mais je préfère la première solution.
Merçi encore,
Claude
________
Sub Sauvegarder()
'
' Sauvegarder Macro
' Macro enregistrée le 01/07/2004 par HERRMANN
'
'
Windows("sauvegarde.xls").Activate
NomClasseur = Application.InputBox("entrez un nom pour le fichier de
sauvegarde")
ActiveWorkbook.SaveCopyAs Filename:=NomClasseur
Windows("Copie de fichier client_a.xls").Activate
End Sub
______
Encore moi avec toujours un peu le même problème.
La macro ci-après fonctionne bien.Le fichier ainsi créé est une copie sans
indication de mode, mais qui s'ouvre avec excel.
Le fichier "sauvegarde" contient des equations. Je les retrouve dans le
fichier sauvegardé. Je ne voudrais que les valeurs.
Quelle est la syntaxe pour dire "sauvegarder uniquement les valeurs du
fichier NomClasseur".
Autre possibilité:
Ouvrir le fichier que l'on vient de sauvegarder sous NomClasseur.
Et rompre les liens.
Mais je préfère la première solution.
Merçi encore,
Claude
________
Sub Sauvegarder()
'
' Sauvegarder Macro
' Macro enregistrée le 01/07/2004 par HERRMANN
'
'
Windows("sauvegarde.xls").Activate
NomClasseur = Application.InputBox("entrez un nom pour le fichier de
sauvegarde")
ActiveWorkbook.SaveCopyAs Filename:=NomClasseur
Windows("Copie de fichier client_a.xls").Activate
End Sub
______
Poser une question
Un truc du style...
Sub Sauvegarder()
Dim i As Integer
On Error Resume Next
With Application
.ActiveWorkbook.SaveAs (.InputBox("entrez un nom pour le " _
& "fichier de sauvegarde "))
End With
If Err.Number <> 0 Then
MsgBox Error(Err)
Exit Sub
End If
For i = 1 To Worksheets.Count
Sheets(i).Cells.SpecialCells(xlCellTypeFormulas, 23) _
= Sheets(i).Cells.SpecialCells(xlCellTypeFormulas, 23)
Next i
Windows("Copie de fichier client_a.xls").Activate
End Sub
ChrisV
"Claude HERRMANN" news:40ebcfc3$0$315$