[VBA]export fichier Nommé avec date

[TheLio]

Hello tous,
Un petit souci d'export avec la date pour nom de fichier qui fait référence à la cellule H6... renseignée par

=Maintenant()

Il y a certainement plus simple mais là, je bute.

Option Explicit

Dim Fichier As String
Sub Back_Up_3()
Sheets("Base de données").Select
    Range("H10:GF361").Copy
    Fichier = Range("H6")
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="K:\Hotelier - Cuisine\GestionCartesRésidents\Back_up\ & Fichier.csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close False
End Sub

J'ai du mal déclarer quelquechose ...
Et pourtant en Suisse on est réglo car nos douaniers ils ne plaisantent pas. 😉
Bises et poignées de mains, servez-vous, ça me fait plaisir
A++
Lio

 

[PascalXLD]

Re : [VBA]export fichier Nommé avec date

Bonjour

remplace

ActiveWorkbook.SaveAs Filename:="K:\Hotelier - Cuisine\GestionCartesRésidents\Back_up\ & Fichier.csv", FileFormat:=xlCSV, CreateBackup:=False

par

ActiveWorkbook.SaveAs Filename:="K:\Hotelier - Cuisine\GestionCartesRésidents\Back_up\" & Fichier & ".csv", FileFormat:=xlCSV, CreateBackup:=False

 

[Compte Supprimé 979]

Re : [VBA]export fichier Nommé avec date

Salut TheLio

Tu n'as pas placé ta variable correctement
On ne mets pas un nom de variable entre guillemets, ca ne peut pas fonctionner

Option Explicit
 
Dim Fichier As String
Sub Back_Up_3()
Sheets("Base de données").Select
    Range("H10:GF361").Copy
  ' Supprimer les slash de la date sinon = ERREUR
    Fichier = Format(Range("H6"),"jj.mm.aaaa")
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="K:\Hotelier - Cuisine\GestionCartesRésidents\Back_up\[COLOR=blue][B]" & Fichier & "[/B][/COLOR].csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close False
End Sub

Je n'ai pas testé, mais ça devrait etre bon 😉

A+

Edit : Oups, bonjour à toi au Grand modérateur 😀

 

[TheLio]

Re : [VBA]export fichier Nommé avec date

Merci pour tout
a vous deux...
Juste pour info pour les futurs lecteurs, j'ai changé le format avec dd.mm.yyyy
A bientôt.
A++
Lio