[VBA]export fichier Nommé avec date

TheLio

XLDnaute Accro
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
Code:
=Maintenant()
Il y a certainement plus simple mais là, je bute.

Code:
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

XLDnaute Barbatruc
Modérateur
Re : [VBA]export fichier Nommé avec date

Bonjour

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

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

Compte Supprimé 979

Guest
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

Code:
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 :D
 

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla