enregistrement d'un fichier

[denisbouchard]

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

 

[RENAUDER]

Re : enregistrement d'un fichier

Bonjour,

Cela pourrait être du genre

Sub Sauve()
    Chemin = "C:\Excel"
    NomFichier = Sheets(1).Cells(1, 1).Value
    ActiveWorkbook.SaveAs Chemin & "\" & NomFichier & ".xls"
End Sub

 

[sousou]

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

 

[denisbouchard]

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