Discussion :

[amnorian]

Bonjour,

dans access j'utilise la fonction toute bête

Code :

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

DoCmd.RunCommand acCmdExport

pour exporter mes données provenant d'une requète sous un format excel.
L'avantage de cette commande est que l'on peut définir le nom et le format d'export(donc pas forcément excel).

Ce qui arrive à ma question : comment agir sur le classeur excel et plus principalement sur la feuille excel, considérant que dans les tutoriels d'interaction avec excel il y a toujours la définition du nom et du répertoire.
En effet je veux mettre une sorte de copyright sur la première feuille excel (donc toucher au range de la première feuille que je crée) qui se crée en automatique en plus du fichier d'export.

j'espère avoir été clair je clarifierais si besoin

merci

[Godzestla]

Bonjour,

merci de penser à la avant de poser une question qui est souvent abordée.

En ce qui te concerne, le sujet est traité ici

[amnorian]

Malheureusement non parceque dans l'exemple que tu me donne, il est bien fait mention :
"J'initialise mes variables"

Code :

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

1
2
Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Chemin\Feuille.xls")

Or je ne veux pas initialiser mes variables, puisque je veux que l'utilisateur me donne la variable, un peu comme dans excel

Code :

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

1
2
Nom_variable = Application.GetOpenFilename
Nouveau_Classeur = Application.Workbooks.Open(Nom_variable)

que je n'ai pas trouvé dans le vba d'accès (je parle du Application.GetOpenFilename)

et comme je l'ai dis :"L'avantage de cette commande est que l'on peut définir le nom et le format d'export(donc pas forcément excel)."

je suis sur que la solution est toute simple, mais n'étant pas à l'aise avec access j'ai beau cherché, je ne vois pas.

merci

[Godzestla]

Et bien....

je crois que tu n'as pas fort envie de chercher, sinon tu te rendrais très vite compte que au lieu de faire ceci

Code :

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

1
2
3
 
Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Chemin\Feuille.xls")

tu pourrais faire ceci

Code :

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

1
2
3
Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(Nom_variable)

[amnorian]

Merci Godzestla de ton aide

je me suis visiblement mal exprimé désole

je cherche à exporter des informations d'un formulaire dans excel

en utilisant les macros d'access (et pas le vba directement)
il me fait un export basique

et donc quand je vais regarder le code il me donne ceci

Code :

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

DoCmd.RunCommand acCmdExport

j'ai trouvé avec la faq comment obtenir le nom de la variable (http://access.developpez.com/faq/?pa...#AffBoitDialog) mais la commande spécifié ne me permet pas de faire ce que je veux
Je tente donc d'utiliser l'export simple comme expliqué

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, Me, , True

mais ca ne marche pas non plus


En tout cas merci je continu de chercher

[amnorian]

j'avance et j'ai réussi à faire ce que je veux mais pour la requète et pas pour le formulaire. Mon formulaire fais des filtres et n'agence pas les colonnes de la même façon.
Je ne comprends pas que je n'y arrive pas en utilisant le nom du formulaire

ci joint mon code

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
Private Sub Commande50_Click()
Lien = OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 1, "Fichier excel", "xls")'macro qui provient de la FAQ de developpez.com
DoCmd.TransferSpreadsheet acExport, _
                    acSpreadsheetTypeExcel9, _
                    "Justif_solde", _
                    Lien, _
                    True
 
 
'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(Lien)
 
    'Ajouter une feuille de calcul nommée Toto
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "Copy"
 
    'Manipuler une cellule
    xlSheet.Cells(1, 1) = "Réalisé par "
 
 
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub