[VBA]export fichier Nommé avec date

TheLio · 24 Juillet 2008

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 · 24 Juillet 2008

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

Compte Supprimé 979 · 24 Juillet 2008

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

TheLio · 24 Juillet 2008

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

[VBA]export fichier Nommé avec date

TheLio

XLDnaute Accro

PascalXLD

XLDnaute Barbatruc

Compte Supprimé 979

Guest

TheLio

XLDnaute Accro

Discussions similaires