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")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Claude,
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" a écrit dans le message de news:40ebcfc3$0$315$
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 ______
Bonjour Claude,
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" <chezclh@club-internet.fr> a écrit dans le message de
news:40ebcfc3$0$315$7a628cd7@news.club-internet.fr...
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")
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" a écrit dans le message de news:40ebcfc3$0$315$
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")
