Discussion :

[Renardo]

Bonjour a tous
Je voudrais que mes onglets de feuilles excel prenne la valeur d'une Date defini par un champ de ma requete (Aucune date de la requete est identique)
J'ai essayer plusieur code aucun ne fonctione

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim FichierExcel As Excel.Workbook
Set db = CurrentDb
 
Set rst = db.OpenRecordset("Select Distinct Serial,Date1,PR,RU,NA,IND From ExcelSerie")
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
 
 Do Until rst.EOF
 
 
Set xlSheet = xlBook.Worksheets.Add
 
   xlSheet.Name = (rst("date1"))=Format("dd-mm-yy")

et a chaque fois j'ai l'erreur qu'il doit y avoir des /ou[]exct..
Merci d'avance pour votre aide

[zEndymion]

Bonjour, personnellement je met mes date au format "yyyymmdd" soit 20070206

[Renardo]

On peut mettre des tirer dans des onglets
Je pense qu'il doit manquer quelque chose a ma ligne de code

[SfJ5Rpw8]

elle est un peu de "travers" ta ligne essai un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 xlSheet.Name = Format(rst("date1"),"dd-mm-yy")

[Renardo]

Merci pour ton aide,en effet elle etait un peu de travers sa marche beaucoup mieu comme cela