Discussion :

[YannC]

Bonjour,

J'ai crée un formualire avec des liste déroulantes alimentées par des requête.
J'y est mis un bouton.

Dans le code vb, j'ai mis le code suivant:

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
 
Private Sub Bouton_Form_Consulter_Click()
 
'Déclaration des variables propres au projet
 
Dim strNumprojetConsult
Dim strNomBateauConsult
Dim strTypeTubeConsult
Dim strCategorieBateauConsult
Dim strTypeBateauConsult
Dim strEtatProjetConsult
 
'Décalartion des variables propre à l'application
 
Dim strEmplacementServeur
Dim strEmplacementCopier
Dim strEmplacementColler
Dim strTemporaryDirectory
 
strNumprojetConsult = Forms!Formulaire_Consulter_un_projet!NumProjetConsulte
strNomBateauConsult = Forms!Formulaire_Consulter_un_projet!NomBateauConsulte
strTypeTubeConsult = Forms!Formulaire_Consulter_un_projet!TypeTubeConsulte
strEtatProjetConsult = Forms!Formulaire_Consulter_un_projet!Liste_Form_Consult_EtatProjet
strTypeBateauConsult = Forms!Formulaire_Consulter_un_projet!TypeBateauConsulte
strCategorieBateauConsult = Forms!Formulaire_Consulter_un_projet!CategorieBateauConsulte
 
strEmplacementServeur = "\\Srv-lorima\technique\Test appli"
strTemporaryDirectory = strEmplacementServeur & "\DossierTemp\"
strEmplacementCopier = strEmplacementServeur & "\" & strEtatProjetConsult & "\" & strTypeBateauConsult & "\" & strCategorieBateauConsult & "\" & strNumprojetConsult & "-" & strNomBateauConsult & "-" & strTypeTubeConsult
strEmplacementColler = strEmplacementServeur & strTemporaryDirectory
 
 
 
Dim fso As Object
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyfolder strEmplacementCopier, strEmplacementColler
 
End Sub

Le pb est qu'il m'affiche un message d'erreur:

Erreur 2450
Gestion de projet ne trouve pas le formulaire "Formulaire_Consulter_un_projet" auquel il fait référence.

or le formulaire est bien ouvert lors de l'execution du code, et il n'y à pas de faute de saise.

D'où peut venir le pb?

Merci

[Mr.Mof]

Bonjour,

Le problème peux venir de la syntaxe. Personnellement en utilisant la même syntaxe que toi, j'ai la même erreur même si le formulaire est ouvert. Essaye d'utiliser une syntaxe comme ceci pour récupérer tes 6 variables str...:

Code :

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

Formulaire_Consulter_un_projet.NumProjetConsulte

Cordialement.

[YannC]

Bonjour,

Tout d'abord, merci pour l'info.
Malheureusement cela ne fonctionne pas. Je me demande si le problème ne viens pas de la création du formulaire?

[YannC]

J'ai résolu le problème!

Nouveau formulaire, copier /coller du code et c'est bon.