Bonjour,
voici un code qui se lance à partir d'un user form et d'un cilc sur un bouton auquel tu affecte ce code:
Private Sub CommandButton1_Click()
MsgBox "le classeur va etere enregistrer", vbOK + vbInformation
Dim chemin As String
chemin= Range("Feuil1!Z1") 'Cellule ou l'utilsateur à rentrer le chemin'
ChDrive "P"'disque dur ou le fichier doit etre enregistrer'
ChDir "p:\xxxxxxx\xxxx\xxx\xxx\"'definir le chemin ou se trouve le dossier d'archivage'
ActiveWorkbook.SaveAs Filename:=(chemin)
Enregistrement.Hide'ferme le formulaire
End Sub
cordialement Eric
Excel comment additionner les cellules