Création d'un bouton d'archivage

Résolu/Fermé
Signaler
Messages postés
2
Date d'inscription
mercredi 21 novembre 2012
Statut
Membre
Dernière intervention
21 novembre 2012
-
Messages postés
2
Date d'inscription
mercredi 21 novembre 2012
Statut
Membre
Dernière intervention
21 novembre 2012
-
Bonjour, pouvez-vous m'aider à créer un bouton qui enregistre le document modifié sous un numéro qui est contenu dans une cellule.La cellule est la A6, j'ai mis la ligne de commande que j'ai créé ci-dessous mais il me crée un fichier nomé "cells(1,6)" je pense qu'il me manque un détail pour qu'il enregistre avec la valeur de la cellule A6.
D'avance, je remercie les gens qui pourront m'aider.


Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Filename:="c:\archive\cells(1,6)"
Cells(1, 5) = "Archivé"
If Cells(1, 5) = "Archivé" Then
CommandButton1.Visible = False
End If

2 réponses

Messages postés
16126
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 décembre 2021
1 565
Bonjour,

Private Sub CommandButton1_Click()
  '.xlsm ou xls suivant si vous voulez conserver les macro ou pas
  ActiveWorkbook.SaveAs Filename:="c:\archive\" & Cells(1, 6) & ".xlsm"
  Cells(1, 5) = "Archivé"
  If Cells(1, 5) = "Archivé" Then
    CommandButton1.Visible = False
  End If
End Sub


Bonne suite
Messages postés
2
Date d'inscription
mercredi 21 novembre 2012
Statut
Membre
Dernière intervention
21 novembre 2012

Merci pour l'info aussi rapide, ça fonctionne