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
Il y a certainement plus simple mais là, je bute.
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
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()
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
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