Changement de nom de fichier en fonction d une cellule
Bonjour,
Nouveau ici, je bloque sur un détail pour réaliser un fichier
Voila ce dont il est question, j aimerais trouvé le moyen de changer le nom du fichier automatiquement en fonction d' une cellule. Cette cellule renfermerait des éléments fluctuants comme la date du jour ou autres paramètres changeants
Es ce possible ? et si oui comment
Grand merci
Pascal
Bonjour
Un exemple
Nommer une feuille selon le contenu d’une cellule (ici C6)
Code de feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("C6").Value
End SubPour enregistrer ton fichier sous une date en C6
un exemùple avec un code à placer dans un module
Sub Enregistrer_sous()
Dim Path As String, Nom As String
Path = ActiveWorkbook.Path & "\"
Nom = Format([C6], "dd-mm-yyyy") & ".xls"
ThisWorkbook.SaveAs Path & Nom
End SubCordialement
Bonnjour Amadéus
Génial merci mais un petit problème cest que ce fichier est amené à être modifié régulièrement et donc avec le super et très utile module que tu as fourni cela génère autant de fichiers qu il y a de modifications...sans vouloir abuser que puis je ajoiuter dans le module pour qu en résultante il n y est qu un seul fichier à la fin, peu importe le nombre de modifications.
Big merci
Pascal
Bonjour
Ajouter une ou plusieurs lignes de commandes pour supprimer le fichier sous son nom antérieur, mais là, il te faudra attendre un spécialiste VBA.
Cordialement
Bonjour,
Avec ce code dans un module :
Sub Enregistrer_sous()
Thisworkbook.save(True)
End SubEn supposant bie entendu que ton fichier porte un nom au départ.
Avec ce code, le nom ne changera plus et sera sauvé directement lors de la fermeture.
Amicalement
Dan