Discussion :

[User]

Bizarre

Donc si tu fais par exemple dans la fenêtre d'exécution :

Code :

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

? xlDialogSaveAs

Tu obtiens bien 5 ?

[tee_grandbois]

ben non, en liaison tardive, je remplace la constante par sa valeur

Code :

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

oApp.Dialogs(5).Show "NomDuFichier.xlsx"

ou en la déclarant:

Code :

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

1
2
3
Private Const xlDialogSaveAs = 5
...
oApp.Dialogs(xlDialogSaveAs).Show "NomDuFichier.xlsx"

[User]

Ah ok, désolé c'était un quiproquo

[hyperion13]

Salut tout le monde
Je confirme que j'ai tenu compte du Post#12 et #13 et de XBuiltInDialog
@+

[tee_grandbois]

bonjour hyperion13,
je pense qu'il faudrait surtout que chartreuse nous fasse part de ses derniers retours ...

[chartreuse]

Bonjour,
désolé pour le retour tardif
J'ai remet de code complet donné par User qui fonctionne très bien

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
Private Sub Commande76_Click()
Dim ors As Recordset
Dim oApp As Object
Dim oWkb As Object
Dim oWSht As Object
Dim i As Long
 
' création instance excel
Set oApp = CreateObject("Excel.application")
' Création du nouveau classeur
Set oWkb = oApp.Workbooks.Add
 
Set oWSht = oWkb.Worksheets(1) ' ici le nom de la feuille ou juste son index
 
' récupération des données issues du formulaire
Set ors = Me.Recordset.OpenRecordset
 
If Not ors.EOF Then
    ' copie des entêtes de colonnes
    For i = 0 To ors.Fields.Count - 1
        oWSht.Range("A1").Offset(0, i) = ors(i).Name
    Next
    ' copie des données
    oWSht.Range("A2").CopyFromRecordset ors
    ' Sauvegarde du fichier Excel avec ouverture boite de dialogue "Enregistrer sous"
    oApp.Visible = True
    oApp.Dialogs(5).Show "NomDuFichier.xlsx"
    oWkb.Close True
End If
 
oApp.Quit
Set ors = Nothing
Set oApp = Nothing
End Sub

Merci à vous 3

[User]

J'ai remet de code complet donné par User qui fonctionne très bien

Merci mais, le code à l'origine est de tee_grandbois : "Il faut rendre à César ..."