ouverture fichierRésolu

Question

J'ai un soucis qui doit etre au niveau de l'ouverture d'un fichier car je n'arrive pas &#224; r&#233;cup&#233;rer les valeurs de mes 4 variables si qq1 peut me proposer une solution je l'en remerci d'avance.

Voici mon code:

Option Explicit
Dim NDF, r&#233;ponse, LookIn, Filename, FileType, SearchSubFolders As String


Private Sub CommandButton1_Click()
Dim Var1, Var2, Var3, Var4 As Double
Dim I, G As Integer
Call Chercherlot(r&#233;ponse, LookIn, Filename, FileType, SearchSubFolders)
Workbooks.Open "P:\Qualite$ sur'Bldtlsfra01'\Cq\CQ\ACRY-Mesures\fiche contr&#244;le mati&#232;res\2005\r&#233;ponse"
'pr&#233;l&#232;vement des valeurs dans la feuille excel
Var1 = Range("E8")
Var2 = Range("E9")
Var3 = Range("E11")
Var4 = Range("E12")
'fermer le dossier
Workbooks("classeur2.xls").Sheets("Feuil2").Activate  'ouvrir la feuille avec le tableau
I = I + 1
G = 10 + I
'reporter les donn&#233;es dans le tableau
Workbooks("classeur2.xls").Sheets("feuil2").Range("A(G)") = Var1
Workbooks("classeur2.xls").Sheets("feuil2").Range("B(G)") = Var2
Workbooks("classeur2.xls").Sheets("feuil2").Range("C(G)") = Var3
Workbooks("classeur2.xls").Sheets("feuil2").Range("D(G)") = Var4
'initialiser les variablesVar1 Var2 Var3 = Var4 = 0
End Sub


'chemin pour chercher le fichier
Public Function Chercherlot(r&#233;ponse, LookIn, Filename, FileType, SearchSubFolders As String) As Boolean
With Application.FileSearch
LookIn = "P:\Qualite$ sur'Bldtlsfra01'\Cq\CQ\ACRY-Mesures\fiche contr&#244;le mati&#232;res\2005\r&#233;ponse"
Filename = r&#233;ponse
FileType = msoFileTypeAllFiles
SearchSubFolders = True
If .Execute Then
Chercherlot = True
Else
Chercherlot = False
End If
End With
End Function

fohaf · Accepted Answer

D&#233;clare tes variables en Public et ne les red&#233;clare pas dans chaque form (&#231;a c'est pour r&#233;cup&#233;rer tes variables d'une form &#224; l'autre)

aieeeuuuuu · Answer

salut

quel est le probl&#232;me ? 
tu as une erreur ?
qu'est ce que tu veux faire exactement ?

Molenn · Answer

Si je comprends bien, c'est vrai que tu n'es pas très précis, je dirai que ton premier problème vient que tu ne mets pas de propriétés. rajoute .value, ça ira mieux :

Var1 = Range("E8").VALUE
Var2 = Range("E9").VALUE
Var3 = Range("E11").VALUE
Var4 = Range("E12").VALUE

'reporter les données dans le tableau
Workbooks("classeur2.xls").Sheets("feuil2").Range("A(G)").VALUE = Var1
Workbooks("classeur2.xls").Sheets("feuil2").Range("B(G)").VALUE = Var2
Workbooks("classeur2.xls").Sheets("feuil2").Range("C(G)").VALUE = Var3
Workbooks("classeur2.xls").Sheets("feuil2").Range("D(G)").VALUE = Var4

Molenn

bierataise · Answer

D&#233;sol&#233; mais c'est vrai que lorsqu'on est sur son sujet on a tendance &#224; minimiser les explications donc je m'explique plus clairement.
Ce que je veux faire c'est r&#233;cuperer 4 valeurs(var1,2,3 et 4) dans un fichier excel mais le soucis est que j'ai plusieurs fichiers sur lesquels je vais pr&#233;lever &#224; chaque fois ces 4 valeurs et le nombre de fichiers est d&#233;terminer par l'op&#233;rateur.
Je vais essayer value mais je crois qu'il me reste un gros bl&#232;me &#224; savoir que je ne r&#233;cup&#232;re pas les variables que je demande dans mes autres userforms par exemple je demande un num&#233;ro de fichier afin de d&#233;terminer le chemin (grace &#224; la variable r&#233;ponse) pour ouvrir ce fichier qui me donne acc&#232;s aux 4 valeurs.
Si qq1 a des suggestions je suis tout oui.

Ouverture fichier

4 réponses

Discussions similaires