Discussion :

[aliboubou]

Bonjour,
Voici d'abord mon code déjà pompé ailleurs...:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
FichierXL = "C:\Enregistrement du " + debut + " au " + fin + ".xls"
    'Création de l'objet Excel (main mise sur !)
    Set xlApp = CreateObject("Excel.Application")
    'Création de l'objet [Fichier Excel]
    Set xlBook = xlApp.Workbooks.Open("C:\MonFichier")
    'Set xlBook = xlApp.Workbooks.Add
    'Création de l'objet [Feuille] du classeur Excel.
    Set xlWks = xlBook.Worksheets(1)
    'Création de la plage permise dans la feuille Excel.
    Set xlRange = xlWks.Range("A1:A65535")
 
    Set enr = bdd.OpenRecordset("ResultatRequete")
 
    If (enr.BOF = False) Then
        enr.MoveFirst
    End If
 
    Cmpt = DCount("*", "ResultatRequete")
 
    Boucle = 0
    Do Until enr.EOF
    Boucle = Boucle + 1
        xlRange.Cells(1, Boucle + 1).Value = enr![Date] + enr![Heure]
        xlRange.Cells(2, Boucle + 1).Value = enr![AttentePiece]
        xlRange.Cells(3, Boucle + 1).Value = enr![FinFab]
        xlRange.Cells(4, Boucle + 1).Value = enr![Table1]
        xlRange.Cells(5, Boucle + 1).Value = enr![Table2]
        xlRange.Cells(6, Boucle + 1).Value = enr![Table3]
        xlRange.Cells(7, Boucle + 1).Value = enr![Meule100]
        xlRange.Cells(8, Boucle + 1).Value = enr![Meule150]
        xlRange.Cells(9, Boucle + 1).Value = enr![Bras]
        xlRange.Cells(10, Boucle + 1).Value = enr![EnService]
        enr.MoveNext
        Loop
 
    'enr.MoveFirst
 
    xlApp.Visible = True
    xlWks.Activate
    xlRange.Cells(1, 1).Select
    xlApp.DisplayAlerts = False
    xlBook.SaveAs FichierXL
    xlApp.Quit
    xlApp.DisplayAlerts = True
 
    Set xlRange = Nothing
    Set xlWks = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

Je veux ouvrir un fichier excel existant avec une mise en page conditionnelle, le remplir avec les champs de ma table issue d'une requete et le sauvegarder sous un autre nom.
J'ai un problème lors de la commande saveas: Erreur d'execution 1004

Merci de voir ce que vous pouvez faire pour moi

[Lou Pitchoun]

Salut,

A première vue, le problème se trouve peut être dans les variables début et fin.
Si ce sont des dates au format dd/mm/yyyy : le caractère / est interdit dans les noms de fichiers.
A vérifier.
Si c'est le cas : utilise la fonction Replace pour remplacer / par - .