Jacky et Michel m'ont donn=E9 chacun une solution pour=20
enregistrer en VBA un fichier en y accolant la valeur=20
d'une cellule de ce m=EAme fichier. Merci =E0 eux. Leur=20
solutions fonctionnent sauf que la valeur dans la cellule=20
est une date sous forme d=E9cembre-03 que je voudrais=20
conserver.=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
Bonjour Frank,
avec l'exemple de Michel, ce sera :
Sub SaveBook Dim wbkName As String With ThisWorkbook wbkName = Left(.FullName, InStr(1, .FullName, ".xls") - 1) .SaveAs wbkName & Format(ActiveSheet.Range("B7"), "mmmm-yy") & ".xls" .Close False End With End Sub
isabelle
Bonjour
Jacky et Michel m'ont donné chacun une solution pour enregistrer en VBA un fichier en y accolant la valeur d'une cellule de ce même fichier. Merci à eux. Leur solutions fonctionnent sauf que la valeur dans la cellule est une date sous forme décembre-03 que je voudrais conserver.
Merci
Bonjour Frank,
avec l'exemple de Michel, ce sera :
Sub SaveBook
Dim wbkName As String
With ThisWorkbook
wbkName = Left(.FullName, InStr(1, .FullName, ".xls") - 1)
.SaveAs wbkName & Format(ActiveSheet.Range("B7"), "mmmm-yy") &
".xls"
.Close False
End With
End Sub
isabelle
Bonjour
Jacky et Michel m'ont donné chacun une solution pour
enregistrer en VBA un fichier en y accolant la valeur
d'une cellule de ce même fichier. Merci à eux. Leur
solutions fonctionnent sauf que la valeur dans la cellule
est une date sous forme décembre-03 que je voudrais
conserver.
Sub SaveBook Dim wbkName As String With ThisWorkbook wbkName = Left(.FullName, InStr(1, .FullName, ".xls") - 1) .SaveAs wbkName & Format(ActiveSheet.Range("B7"), "mmmm-yy") & ".xls" .Close False End With End Sub
isabelle
Bonjour
Jacky et Michel m'ont donné chacun une solution pour enregistrer en VBA un fichier en y accolant la valeur d'une cellule de ce même fichier. Merci à eux. Leur solutions fonctionnent sauf que la valeur dans la cellule est une date sous forme décembre-03 que je voudrais conserver.
