Récupérer une date sous excel
The cube
-
JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention -
JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention -
Bonjour, je suis débutant en VB et j'ai un petit soucis, je voudrais pouvoir enregistrer mon classeur sous format .xls, tout en l'enregistrant sous la date du jour.
C'est à dire JJ/MM/YYYY.xls
Pour cela j'ai écris le programme qui suit mais il le save de la facon MM/YYYY:
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & Evaluate("=TEXT(TODAY(),""MMYYYY"")") & ".xls"
COMMENT FAIRE??????
Merci
C'est à dire JJ/MM/YYYY.xls
Pour cela j'ai écris le programme qui suit mais il le save de la facon MM/YYYY:
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & Evaluate("=TEXT(TODAY(),""MMYYYY"")") & ".xls"
COMMENT FAIRE??????
Merci
A voir également:
- Récupérer une date sous excel
- Liste déroulante excel - Guide
- Recuperer message whatsapp supprimé - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Comment recuperer une video sur youtube - Guide
3 réponses
Perso j'ai pris la solution de mettre la date du jour dans une varaible et ensuite de mettre la variable dans le nom de mon fichier ça marche très bien.
Attention le caractère / est interdits dans les noms de fichier
Dim D as String D= Day(Now) & "_" & Month(Now) & "_" Year(Now) ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
Attention le caractère / est interdits dans les noms de fichier
Je te remercie biloue, ca marche trés bien.
Mais tu vois je voudrais lancer cette macro automatiquement, c'est à dire que moi j'ai pensé que si je mettais une valeur logique (=1) dans une cellule, elle le ferai automatiquement.Mais non
Moi j'ai écris ce prog, mais malheureusement,il fo ke je fasse à chaque fois outils, macro, macro puis exécuter.
COMMENT FAIRE????
Sub EnregRapport()
Dim D As String
D = Day(Now) & Month(Now) & Year(Now)
If Range("C2").Value >= 1 Then
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
End If
End Sub
______________________________________________________
A mon avis il faut écrire, si C2 passe de 0 à 1(front montant) alors faire
Merci
Mais tu vois je voudrais lancer cette macro automatiquement, c'est à dire que moi j'ai pensé que si je mettais une valeur logique (=1) dans une cellule, elle le ferai automatiquement.Mais non
Moi j'ai écris ce prog, mais malheureusement,il fo ke je fasse à chaque fois outils, macro, macro puis exécuter.
COMMENT FAIRE????
Sub EnregRapport()
Dim D As String
D = Day(Now) & Month(Now) & Year(Now)
If Range("C2").Value >= 1 Then
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
End If
End Sub
______________________________________________________
A mon avis il faut écrire, si C2 passe de 0 à 1(front montant) alors faire
Merci
Je pense qu'il faut que tu utilise l'évènement de ta cellule sur ta feuille excel.
place le code suivant sur le code vba de la feuille concernée
Voilà
place le code suivant sur le code vba de la feuille concernée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = "x" and target.row = "y" Then ' remplacer "x" par le numéro de la colonne et "y" numéro de la colonne
If Range("C2").Value >= 1 Then
MsgBox "Coucou" ' à remplacer par l'appel à la macro
End if
End If
End Sub
Voilà
comment je fais pour placer le code que tu ma donné sur le code vba de la feuille concernée.Dans l'éditeur de VBA tu vas dans l'arborescence de ton projet et tu choisi Feuille 1? C ca non?
Et quand tu dis :
If Target.Column = "x" And Target.Row = "y" Then ' remplacer "x" par le numéro de la colonne et "y" numéro de la colonne
X c'est le numéro de la ligne et Y est le numéro de ma colonne.
Et quand tu dis :
MsgBox "coucou" ' à remplacer par l'appel à la macro
L'appel à la macro c'est le nom de la macro?
excuse moi je suis débutant.
Merci beaucoup
Et quand tu dis :
If Target.Column = "x" And Target.Row = "y" Then ' remplacer "x" par le numéro de la colonne et "y" numéro de la colonne
X c'est le numéro de la ligne et Y est le numéro de ma colonne.
Et quand tu dis :
MsgBox "coucou" ' à remplacer par l'appel à la macro
L'appel à la macro c'est le nom de la macro?
excuse moi je suis débutant.
Merci beaucoup
Mais tu vois je voudrais lancer cette macro automatiquement, c'est à dire que moi j'ai pensé que si je mettais une valeur logique (=1) dans une cellule, elle le ferai automatiquement.Mais non
Moi j'ai écris ce prog, mais malheureusement,il fo ke je fasse à chaque fois outils, macro, macro puis exécuter.
COMMENT FAIRE????
Sub EnregRapport()
Dim D As String
D = Day(Now) & Month(Now) & Year(Now)
If Range("C2").Value >= 1 Then
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
End If
End Sub
______________________________________________________
A mon avis il faut écrire, si C2 passe de 0 à 1(front montant) alors faire
Merci