Création d'un bouton d'archivage

Résolu/Fermé

Hervé299 Messages postés 2 Date d'inscription mercredi 21 novembre 2012 Statut Membre Dernière intervention 21 novembre 2012 - 21 nov. 2012 à 10:05
Hervé299 Messages postés 2 Date d'inscription mercredi 21 novembre 2012 Statut Membre Dernière intervention 21 novembre 2012 - 21 nov. 2012 à 10:32

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:

Création d'un bouton d'archivage
Creation compte gmail - Guide
Création organigramme - Guide
Media creation tool - Télécharger - Systèmes d'exploitation
Création compte google - Guide
Logiciel création karaoké gratuit - Télécharger - DJ & Karaoké

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 nov. 2012 à 10:11

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

Réponse 2 / 2

Hervé299 Messages postés 2 Date d'inscription mercredi 21 novembre 2012 Statut Membre Dernière intervention 21 novembre 2012
21 nov. 2012 à 10:32

Merci pour l'info aussi rapide, ça fonctionne

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Bouton ON OFF, O ou I ?

Quel est la touche shift sur le clavier

Discussions similaires

Newsletters