[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

[VBA]export fichier Nommé avec date

TheLio

XLDnaute Accro

PascalXLD

XLDnaute Barbatruc

Compte Supprimé 979

Guest

TheLio

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency