Création d'un bouton d'archivage
Résolu
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
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
-
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 -
Merci pour l'info aussi rapide, ça fonctionne
