|
|
|
|
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.
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 |
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 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à
|
Résultats pour récupérer une date sous excel
Résultats pour récupérer une date sous excel
Résultats pour récupérer une date sous excel