T thiroux XLDnaute Nouveau 27 Octobre 2005 #1 je souhaiterais a l'aide d'une macro enregistrer mon fichier sous le nom d'une cellule exemple: La cellule A1 contient un texte 'XY' je clic sur un bouton auquel j'ai affecter une macro et le fichier s'enregistre sous 'XY' Merci d'avance
je souhaiterais a l'aide d'une macro enregistrer mon fichier sous le nom d'une cellule exemple: La cellule A1 contient un texte 'XY' je clic sur un bouton auquel j'ai affecter une macro et le fichier s'enregistre sous 'XY' Merci d'avance
myDearFriend! XLDnaute Barbatruc 27 Octobre 2005 #2 Bonjour thiroux, Tu peux essayer : Sub Sauvegarde() With Sheets('Feuil1').Range('A1') If .Value <> '' Then ThisWorkbook.SaveAs ThisWorkbook.Path & '\' & .Value & '.xls' Else MsgBox 'Nom inexistant' End If End With End Sub Cliquez pour agrandir... Cordialement, Vote positif 0 Vote négatif
Bonjour thiroux, Tu peux essayer : Sub Sauvegarde() With Sheets('Feuil1').Range('A1') If .Value <> '' Then ThisWorkbook.SaveAs ThisWorkbook.Path & '\' & .Value & '.xls' Else MsgBox 'Nom inexistant' End If End With End Sub Cliquez pour agrandir... Cordialement,
T thiroux XLDnaute Nouveau 27 Octobre 2005 #3 merci bcp ca fonctionne a merveille a tres bientot Vote positif 0 Vote négatif