Discussion :

[dianbobo]

Bonjour tout le monde
je copie les données dans un classeur et je veux qu'il soit ouvert ,alors je voudrai bien l'ouvrir mais de façon automatique
et j'ai ajouté dans mon code :

Code :

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

1
2
Workbooks.Open Filename:="S:\PGB\DER\_Commun\MBO\RESULTAT ECO  suivi quotidien\Résultat économique\LeFichier"
ActiveWindow.Close

ça donne ceci :

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
Sub recherche_resultat_eco()
Dim i As Long
Dim k As Long
Dim Chemin As String, LaFeuille As String, LeFichier As String
Dim motif  As String
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks("Classeurvarparahist")
Set ws = wb.Worksheets("Feuil1")
    LaFeuille = "Historik"
 
    k = ws.Cells(Rows.Count, 4).End(xlUp).Row + 1
    motif = "######## - Résultat Economique*"
    Chemin = "S:\PGB\DER\_Commun\MBO\RESULTAT ECO  suivi quotidien\Résultat économique\"
    LeFichier = NomPlusJeuneFichierByName(Chemin, motif)
 Workbooks.Open Filename:="S:\PGB\DER\_Commun\MBO\  _
RESULTAT ECO  suivi quotidien\Résultat économique\LeFichier"
    For i = 1 To 28
        ws.Cells(k, i).Formula = Workbooks(LeFichier).Worksheets(LaFeuille).Cells(k, i).Value
    Next
    ActiveWindow.Close
    MsgBox NomPlusJeuneFichierByName(Chemin, motif)
End Sub

mais on me dit :

Code :

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

"S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Résultat économique\LeFichier"

est introuvable
en faisant F8 mon code bloc au niveau de :

Code :

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

1
2
Workbooks.Open Filename:="S:\PGB\DER\_Commun\MBO\  _
RESULTAT ECO  suivi quotidien\Résultat économique\LeFichier"

car "LeFichier"
n'est pas remplacé par son nom a savoir
LeFichier=NomPlusJeuneFichierByName(Chemin, motif)="20100727 - Résultat Economique"

comment faire pour ouvrir LeFichier avant ma boucle for...... et le fermer apres ma boucle for

merci de votre aide

[methylene]

C'est normal ta variable le Fichier est dans une string !

Code :

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

1
2
Workbooks.Open Filename:= Chemin & LeFichier
ActiveWindow.Close

Ceci devrait fonctionner :-)

[dianbobo]

ça marche
merci beaucoup de votre aide

[dianbobo]

ça marche mais comment je fais pour mettre que le probleme est resolu ?

[methylene]

Rien de plus simple,

Dans ton programme sous visual studio tape ceci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Resolu()
 
Dim Balise1 As New Balise
 
Topics.Balise1.Image = My.Resources.Resolu
Topics.Balise1.IsSolved = True
 
End Sub

Blague à part, juste en-dessous de ce message, cliques sur la balise .

Bonne continuation !