Export excel définition du nom du fichier aves un module

Bonjour,

Actuellement, lorsque j'effectue un export via une requète vers Excel le nom de mon fichier est figé

Code:

---

strXLFile = "d:\bases extincteurs\Access 2007\essaiexport.xls"

---

Maintenant je voudrais pouvoir le nommer comme je veux via un petit formulaire.

Je bloque sur deux points :

J'ai posé la condition AcDialog, comment dois je faire pour redémarrer mon code
Et L'utilisation du champ NomExcel de mon formulaire fichier excel pour ma variable NameExcel et strXfile.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim strXLFile As String, NameExcel As String   'Ouvre le formulaire de saisie du nom du fichier en windowmode attente de saisie DoCmd.OpenForm ("fichier excel"), WindowMode:=acDialog NameExcel = [fichier excel]!NomExcel 'Si aucune nom de fichier, je sors message d'alerte If Nz(Me.NomExcel, "") = "" Then   DoCmd.OpenForm ("message nom fichier obligatoire") Exit Sub ' Sortie de la routine 'Sinon, en fonction de la case cochée, j'ouvre un formulaire Else End If 'Ouvre l'application Excel Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True   ' Nom complet du fichier excel strXLFile = "d:\bases extincteurs\Access 2007\" & NameExcel ".xls"

---

Merci d'avance de votre aide

Marcopololo

J'ai progressé.

Tout d'abord la fonction ACdialog n'a semble t-il pas besoin d’être relancée.

J'ai corrigé la ligne suivante dans la syntaxe de la variable strXFile et cela fonctionne.

Code:

---

strXLFile = "d:\bases extincteurs\Access 2007\" & NameExcel & ".xls"

---

Par contre je n'arrive pas à définir ma variable NameExcel, je l'ai actuellement remplacée par

Code:

---

NameExcel = "test"

---

pour tester.

Elle provient d'un champ de formulaire mais j'ai beau essayé et j'ai toujours une valeur nulle, malgré un essai de l'enregistrer dans une table.

Ais je le droit de nommer ma variable de type string de cette manière ?
Elle provient d'un champ de mon formulaire.

Code:

---

NameExcel = Me.NomExcel

---

A priori cela ne fonctionne pas.

Merci de votre aide

Marcopololo

Alors je crois avoir trouvé la cause de mon problème, c'est que je fais appel à un champ de formulaire qui n'est pas le même que celui qui l'utilise.

Ce qui veut dire qu'il faut mettre en oeuvre une variable globale.

J'ai trouvé quelques éléments mais je bloque sur les emplacements à mettre ces éléments :

Formulaire F1 avec un champ nommé ch1

Formulaire F2 dans lequel je veux utiliser ch1 de F1 comme variable (var1) et l'utiliser pour définir le nom de mon fichier. var1=ch1

Si quelqu'un pouvait m'indiquer ou je dois inscrire mes variables globales et quel type je dois associé à mes variables ?

Merci d'avance

Marcopololo

Je ne sais pas si je suis dans la bonne direction en espérant que quelq'un pourra me le confirmer mais j'ai créé un module de classe que j'ai appelé xportxl.

Il se compose de deux variables

Code:

---

1 2 3 4

Option Compare Database   Public xlname As String Public xldossier As String

---

Ensuite c'est la que j'ai un peu de mal. Si je comprend bien il faut que j'appelle en tête de formulaire ce module pour que le formulaire utilisant cette variable sans l'avoir créer puisse l'utiliser à son tour.

Je vais continuer à chercher mais si quelqu'un maitrise, je suis preneur

Merci d'avance

Marcopololo

Je suis quelque peu embrouillé. J'ai lu les tutos concernant les modules.
Alors si l'on pouvait m'éclaircir un peu les idées.

1) Est il préférable d'utiliser des variables privées ou public dans les modules. Si je veux utiliser elles ci pour récupérer la valeur du champ de F1 pour F2 ?
2) Dans la création du module si private, la structure de mon module est identique sauf à rajouter les propriétés GEt et LET ?
3) Ensuite je n'ai plus qu'à appeler ma variable privée dans mon formulaire, dois je la mettre dans le général derrière option explicit ?
4) Doit elle être déclarée dans mes deux formulaires ?

Voilà je crois que j'en ai fini avec mes questions. Je vais continuer, en espérant que l'on pourra m'aider et pour ma part à trouver des réponses en me creusant la cervelle.

Voilà ce que j'ai fait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Compare Database Option Explicit   Private mstrXlname As String 'Nom du fichier Excel Private mstrXlchemin As String 'Nom du chemin de sauvegarde     ' Propriété fichier Property Let Xlname(strXlname As String) mstrXlname = strXlname End Property Property Get Xlname() As String Xlname = mstrXlname End Property   ' Propriété Chemin Property Let Xlchemin(strXlchemin As String) mXlchemin = strXlchemin End Property Property Get Xlchemin() As String Xlchemin = mstrXlchemin End Property

---

Merci d'avance

Marcopololo

Bonjour

Je ne maitrise pas du tout les modules de classes.

Par contre, j'aurais tendance à utiliser une table de paramètre (Utilisations possibles d'une table de paramètres) : vous y stocker le nom que vous voulez donner à votre fichier excel, et au moment de l'export / création vous allez chercher ce nom dans cette table.

Bonne continuation

Pierre

Merci. Par contre la fonction, elle est a écrire à quel endroit ?

Marcopololo

Merci Pier Antoine, effectivement la fonction Dlookup fonctionne à merveille, je crois que j'ai cherché à faire compliqué.

Marcopololo