sauvegarde via une macro

2 réponses

flo

19/01/2004 à 22:03

je souhaiterai savoir comment creer une macro me=20
permettant d'enregistrer un classeur ou le nom changerai=20
=E0 chaque fois et serai le contenu de la cellule A6 et le=20
contenu de la cellule D2.
Je n'y arrive pas merci d'avance

2 réponses

michdenis

19/01/2004 à 22:37

Bonjour Flo,

Voici un petit exemple :

A6 = c:excel
D2 = classeur1.xls

Selon le contenu de ces 2 cellules, tu peux être appelé à modifier la chaîne suivante :
NomDuFichier = Range("A6") & Range("D2")

Afin d'obtenir une chaîne du type suivant : "C:ExcelNomDuFichier.xls"

'-------------------------------
Sub Sauvegarde()

Dim NomDuFichier

With Worksheets("Feuil1")
NomDuFichier = Range("A6") & Range("D2")
a = Dir(NomDuFichier)
End With
If a = "" Then
ThisWorkbook.SaveAs NomDuFichier
Else
MsgBox "Un fichier portant ce nom existe déjà."
End If

End Sub
'-------------------------------

Salutations!

"flo" a écrit dans le message de news:03a801c3decf$a06906e0$
je souhaiterai savoir comment creer une macro me
permettant d'enregistrer un classeur ou le nom changerai
à chaque fois et serai le contenu de la cellule A6 et le
contenu de la cellule D2.
Je n'y arrive pas merci d'avance

Olivier

19/01/2004 à 22:43

Sub auto_close()
ActiveWorkbook.SaveAs (Range("A6") & Range("D2") & ".xls")
End Sub

"flo" a écrit dans le message de news:
03a801c3decf$a06906e0$
je souhaiterai savoir comment creer une macro me
permettant d'enregistrer un classeur ou le nom changerai
à chaque fois et serai le contenu de la cellule A6 et le
contenu de la cellule D2.
Je n'y arrive pas merci d'avance

sauvegarde via une macro

2 réponses

Veuillez sélectionner un problème