Archiver et Vider

Bonjour

à l'aide d'un bouton macro je souhaite :

sauvegarder (archiver) mon classeur excel dans un dossier existant (nom du dossier : Archives).

puis que ma même macro vide la plage (A14:N6013)

merci

alban

Bonjour,

Le fichier doit être sauvé sous quel nom et dans quel répertoire ?

Exemple pour vider les données et sur base de ce que tu donnes comme infos :

Range("A14:N6013").clearcontents

A te relire

"Le fichier doit être sauvé sous quel nom et dans quel répertoire ?"

sous quel nom : "P13 informatisé"

quel répertoire : Q:\Archives\

Re,

essaie comme ceci :

Sub Archiver()
'Macro par Dan
Dim chemin As String, nomfichier As String, extension As String
Application.ScreenUpdating = False
extension = ".xls"
chemin = "Q:\archives"
nomfichier = "P13_informatise" & extension
With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
ThisWorkbook.ActiveSheet.Range("A14:N6013").ClearContents
End Sub

Attention qu'il serait bon que tu mettes un indide au nom de fichier pour éviter d'écraser le précédent.

Evite aussi les accents et espaces dans un nom de fichier. Jamais bon en informatique cela.

Amicalement