Discussion :

[VELO1222]

bonjour le forum,
je souhaite ouvrir tous les fichiers excel se trouvant dans un dossier et y coller des données mais voila s'ouvre le premier fichier c'est tous et de plus elle se bloque a cet endroit
voici la macro

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
Sub chemin_Entrepot()
Sheets("TONY").Select
Dim W As String
W = Dir(Sheets("TONY").Range("A516") & "*.xlm")
Do Until W = ""
Workbooks.Open Filename:=Sheets("TONY").Range("A516") & W
R = ("TARIFAIRE v5.xlm")
Application.Windows(R).Activate
Sheets("COEFFICIENTS").Select
Range("D65").Select
Selection.Copy
Windows(2).Activate
Sheets("TONY").Select
Range("B517").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(2).Activate
Application.Windows(R).Activate
Application.Windows(2).Activate
 ActiveWorkbook.Close savechanges:=False
Application.Windows(R).Activate
  W = Dir
  Loop
Application.ScreenUpdating = True

End Sub

merci d'avance de votre aide

[Maxence HUBICHE]

Tu n'aurais pas tendance à oublier un peu les \ de temps en temps ???

Par exemple ici :

Code :

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

Dir(Sheets("TONY").Range("A516") & "*.xlm")

que penses-tu de mettre

Code :

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

Dir(Sheets("TONY").Range("A516") & "\*.xlm")

à moins que le \ soit déjà dans la Range "A516"


Ensuite, tu devrais travailler avec des objets, plutôt que des string ! Ce serait plus confortable !
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oCible as workbook
Dim oSource as WorkBook
 
set oSource = WorkBooks("TARIFAIRE v5.xlm")
'...
'...
Set oCible = Workbooks.Open( Filename:=Sheets("TONY").Range("A516") & W)
'...
'Et, au lieu d'un copier-coller, uneécriture directe dans la cellule...
oCible.WorkSheets("TONY").Range("B517").Value = oSource.WorkSheets("COEFFICIENTS").Range("D65").Value
'...
'...
oCible.Close

bon amusement

[VELO1222]

bonjour Maxence,
j' ai essayé ta proposition avec des objets mais je bloque sur cette ligne en sachant que la celulle A516 de la feuille TONY contient le chemin suivant celui du dossier:
C:\Documents and Settings\frnto2m\Bureau\TARIFICATION\Entrepots\
et voici ou bloque la macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub chemin_Entrepot_TEST()
Dim oCible As Workbook
Dim oSource As Workbook
 
Set oSource = Workbooks("TARIFAIRE v5.xlm")
'...
'...
Set oCible = Workbooks.Open(Filename:=Sheets("TONY").Range("A516") & W)'...
'Et, au lieu d'un copier-coller, uneécriture directe dans la cellule...
oCible.Worksheets("TONY").Range("B517").Value = oSource.Worksheets("COEFFICIENTS").Range("D65").Value
'...
'...
oCible.Close
End Sub

[Maxence HUBICHE]

et quel est le message d'erreur ?

[VELO1222]

En faite a la base je souhaite ouvrir tous les fichiers se trouvant dans ce dossier ils sont nommés differement mais identique a la base

[Maxence HUBICHE]

voici ou bloque la macro

et quel est le message d'erreur ?

[VELO1222]

bonjour Maxence,
la ligne bleue ou beug la macro est du a l'adresse de la cellule qui renseigne le chemin du dossier et non le nom du fichier a ouvrir car mon souhait etant d'ouvrir en boucle et mettre a jour tous les fichiers dans ce dossier
cdt
tony

[Maxence HUBICHE]

Je suis désolé, mais je ne vois pas en quoi cela pose problème !

Tu as fait :

Code :

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

1
2
3
4
5
6
7
8
9
Dim W as string
W=Dir(TaCellule & "*.xlm")
 
Do Until W=""
    'Ici la ligne pour ouvrir le fichier que tu as surligné en bleu
 
 
    W=Dir()
Loop

Donc, tu boucles bien sur tous les fichiers du dossier !
Où est le problème ?
Si tu ne donnes pas plus d'indices, je ne vais pas pouvoir t'aider...

[AlainTech]

Pour ne pas mourir idiot, c'est quoi un fichier xlm?

[Maxence HUBICHE]

C'est un truc qui a existé dans le passé et que certains persistent à appeler ainsi.
C'est comme cela qu'on nommait les classeur de macros dans la version 4 d'Excel.

[VELO1222]

bonjour alain,
Pour repondre a ta question voici dans le fichier ci joint les extension excel
cdt
Tony

[VELO1222]

maxence bonjour,
Pourriez-vous m'aider a terminer la macro qui bloque sur la ligne bleue
Je ne comprends pas
Et est il possible de suprimer la demande "voulez vous enregistrer les modifications apportées à ......", sachant qu'il y a 12 fichiers dans le dossier
Cdt
Tony

[Maxence HUBICHE]

Oui, en faisant un un petit F1 sur Close, tu aurais trouvé la solution...

Code :

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

1
2
 
oCible.close False

[VELO1222]

ca ne marche pas je bloque pour faire la boucle c'est a dire sur cette ligne bleue et j'ai un message d'erreur d'exécution '1004' La methode 'sheets' de l'objet'_Global a échoué

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
Sub chemin_Entrepot_TEST()
Dim oCible As Workbook
Dim W As String
W = Dir(Sheets("TONY").Range("A516") & "*.xlm")
 
Do Until W = ""
Set oCible = Workbooks.Open(Filename:=Sheets("TONY").Range("A516") & W)

Dim oSource As Workbook
 
Set oSource = Workbooks("TARIFAIRE v5.xlm")
'...
'...

'...
'Et, au lieu d'un copier-coller, uneécriture directe dans la cellule...
oCible.Worksheets("TONY").Range("B517").Value = oSource.Worksheets("TONY").Range("A517").Value
oCible.Worksheets("TONY").Range("B533").Value = oSource.Worksheets("TONY").Range("A511").Value
'...
'...
'oCible.Save
oCible.Close False


 W = Dir()
Loop

End Sub

merci de ton aide