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 :
ça donne ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2Workbooks.Open Filename:="S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Résultat économique\LeFichier" ActiveWindow.Close
mais on me dit :
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 Subest introuvable
Code : Sélectionner tout - Visualiser dans une fenêtre à part "S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Résultat économique\LeFichier"
en faisant F8 mon code bloc au niveau de :
car "LeFichier"
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"
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
Partager