Compteur Excel

Le 17/06/2008 à 16:34

Re,

Remplace la macro par celle-ci :

Sub Archiver()
'Macro par Dan pour Panda200 - 11/06/08
Dim nomfichier
Dim PO As String
Dim nom_client As String, num As String
With ThisWorkbook.ActiveSheet
    .Copy
nom_client = .Range("B6")
num = .Range("P3")
PO = .Range("I12")
chemin = "C:\Facture\" 'repertoire d'archive
nomfichier = num & "_" & nom_client & "_" & PO & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
With ActiveWorkbook
   .SaveAs Filename:=chemin & nomfichier
    .Close
End With
Sheets("Invoice").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
Sheets("Cash sale").Range("P3") = Left(num, 1) & Right(num, Len(num) - 1) + 1
End With
With ActiveSheet
.Range("B6:I6").ClearContents
.Range("I12:M12").ClearContents
.Range("A20:O31").ClearContents
End With
ThisWorkbook.Save
End Sub

Les données seront supprimées sur la feuille que tu décides de sauvegarder. Soit Invoice ou Cash sale.

Dan

Le 17/06/2008 à 17:39

une petite question

la macro RANGE efface t-il une formule de somme ?

merci

Panda

2mcs-2-voyage-3-2.zip (11.96 Ko)

Le 17/06/2008 à 17:41

re,

Range est l'instruction qui définit la cellule. Donc cela n'efface rien sauf si tu lui ajoutes un code comme DELETE.

Mais de quel Range parles-tu ?