Création d'un bouton d'archivage Résolu

Question

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
Configuration: Windows 7 / Internet Explorer 9.0

f894009 · Answer

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

Hervé299 · Answer

Merci pour l'info aussi rapide, ça fonctionne

Création d'un bouton d'archivage

2 réponses

Discussions similaires

Newsletters