Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

enregistrement d'un fichier

  • Initiateur de la discussion Initiateur de la discussion denisbouchard
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

denisbouchard

Guest
Bonjour à tout le forum,
Est-il possible de faire une macro qui enregistre automatiquement un fichier XL avec le nom qui se trouve dans une case?
Je m'explique:
j'ai un fichier qui sert à la traçabilitée des piéces fabriquées. La première personne qui intervient dans la fabrication, insert un numéro dans une case. Je voudrais que lorsqu'elle clicke sur un bouton enregistrement, il se face un enregistrement avec comme nom de fichier le numéro qu'elle a mis dans la case. car elle créait des dizaines de fiches par jour et faire un enregistrement à la main est fastidieux et source d'erreur.
Merci pour vos réponses.😎
denis
 
Re : enregistrement d'un fichier

Bonjour,

Cela pourrait être du genre
Code:
Sub Sauve()
    Chemin = "C:\Excel"
    NomFichier = Sheets(1).Cells(1, 1).Value
    ActiveWorkbook.SaveAs Chemin & "\" & NomFichier & ".xls"
End Sub
 
Re : enregistrement d'un fichier

Bonujour à tous
Une version comme une autre

Sub CommandButton1_Click()
chemin = ThisWorkbook.Path & "\"
fich = CommandButton1.Parent.Range("a1") & ".xls"
rep = MsgBox("Voulez-vous enregistrer ce fichier sous " & fich, vbYesNo, "Enregistrement")
If rep <> 7 Then
ThisWorkbook.SaveAs chemin & ThisWorkbook.Name
End If
End Sub
 
Re : enregistrement d'un fichier

Bonjour RENAUDER et sousou,
Le programme de RENAUDER marche avec une petite modification:
ActiveWorkbook.SaveAs Filename:= Chemin & "\" & NomFichier & ".xls"
quand à celui de sousou, je ne l'ai pas encore tester, mais je vais le faire.
Merci de vos réponses.
denis
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…