Création d'un bouton d'archivage

Résolu
Hervé299 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Hervé299 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 2 / 2
Hervé299 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour l'info aussi rapide, ça fonctionne
0

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses
Quel est la touche shift sur le clavier
paoade -
PRIPRI -

8 réponses
Bouton ON OFF, O ou I ?
Stargirlfr -
kaparzo23 -

12 réponses