ouverture de fichier à la vollée en excel vba

Version imprimable

Bonsoir à tous !
Je dois ouvrir une série de fichiers portant le même nom mais dans des répertoires différents. Je lance donc une procédure avec la méthode filesearch depuis le répertoire parent avec comme nom de filename ma variable. Bon jusque là pas de problème. Seulement lorsqu'il ouvre les fichiers il m'incrémente le nom de mon fichier dès l'ouverture !!! Ce qui fait que lors de l'enregistrement je me retrouve avec un nom de fichier différent de l'original !!!!! :twisted:
J'ai pourtant appliquer une méthode newsearch mais bon doit manquer quelquechose......
Voici une partie de mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub recherche_fiche2() i = 0 nom_reference = "580" nomuap = "xxx" nom_ilot = "rrr" nommachine = "allonges a7" chaine_rep = "c:\Fabrication\Indicateurs 2005\" & nomuap & "\" & nom_ilot & "\" With Application.FileSearch .NewSearch .LookIn = chaine_rep .SearchSubFolders = True .Filename = nommachine .FileType = msoFileTypeAllFiles If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers à modifier"

14/12/2005, 08h50
SfJ5Rpw8

manque le code de l'ouverture du fichier...!

Oui merci bbil
Ravi de te croiser à nouveau
Alors voilà la suite du code :
Code:

1 2 3 4 5 6 7 8 Worksheets(1).activate Range("a1").select For i = 1 to .foundfiles.count cells(i,0).value = .foundfiles(i) chemin=cells(i,1).value Workbooks.opne filename:=foundfiles(i) activeworkbook.close next i
Ce qui se passe c'est que ca marche bien lorsque les noms de fichiers sont alphabétiques, par contre dès que le nom des fichiers se termine par un chiffre il incrémente tout seul le nom des fichiers à l'ouverture un peu comme lorsqu'excel ouvre le fameux classeur auquel il ajoute un numéro d'index (1 pour le premier, 2 pour le second, etc...)
Voilà je pense qu'il faudrait modifier un paramétrage d'excel mais je ne connais pas exactement lequel.
Je regarde dans ce sens en attendant de lire ton éventuelle proposition.

Merci

14/12/2005, 14h38
SfJ5Rpw8

et lorsque tu ouvre "manuellement" ces fichiers leur nom s'incrémente
14/12/2005, 14h43
kernel57

Non ca ne s'incrémente pas. D'ailleurs comme les fichiers portent le meme nom c'est impossible de les ouvrir en même temps à part en les renommant et c'est apparemment ce que la macro fait sans que je lui demande !!!!!
14/12/2005, 16h05
SfJ5Rpw8

a OK... c'est de la que vien le probléme , tu ne peu pas ouvrir 2 fichiers de même Nom (même s'il ne sont pas sur le même répertoire ..) ... as-tu besoin de les ouvrir simultanément ?
14/12/2005, 16h11
kernel57

non pas en meme temps
l'un à la suite de l'autre pour faire le meme traitement pour différents fichiers situés dans des répertoires différents mais portant le même nom.
Cela marche si le nom du fichier se termine par une lettre mais excel incrémente tout seul le nom du fichier à l'ouverture (et c'est ca le plus étonnant !!!) s'il se termine par un chiffre (en l'occurrence ligne allonges A7) cela donne :
première occurrence (janvier):
ligne allonges a7 avant ouverture
lignes allonges a71 aprés
deuxième occurrence (février)
lignes allonges a7 avant ouverture
lignes allonges a72 après
etc...
14/12/2005, 16h59
SfJ5Rpw8

j'arrive pas reproduire le probléme... tu dis pas tous nous dire... peu-être quelque-chose dans le traitement que tu applique au fichier... :?:

Bonsoir,
A partir d'un classeur, tu peux importer les fichier qui t'intéressent d' un répertoire, les modifier et ensuite en importer d'un autre répertoire et agir de la même façon.
Pour sélectionner les fichiers, appuyer sur Ctrl et sélectionner avec la souris.

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Option Explicit
Sub OuvreClasseur()
Dim strFiles
Dim xlFiles
Dim blnOuvert As Boolean
Dim strMessage As String
Dim wbk As Workbook
Dim i As Integer
Dim j As Integer
 
'Affiche la boîte de dialogue Ouvrir
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichiers Excel (*.xls),*.xls", _
Title:="Sélectionnez les fichiers à ouvrir", _
MultiSelect:=True)
 
'Teste si des fichiers ont été sélectionnés
If TypeName(strFiles) = "Variant()" Then
ReDim xlFiles(UBound(strFiles))
For i = 1 To UBound(strFiles)
 
'Contrôle l'exention du fichiers
If Right(strFiles(i), 3) = "xls" Then
 
'Teste si le fichier est déjà ouvert
blnOuvert = False
For Each wbk In Workbooks
    If wbk.Path & "\" & wbk.Name = strFiles(i) Then
            blnOuvert = True
        End If
    Next wbk
 
'Stocke le nom de fichiers dans un tableau
If Not blnOuvert Then
    j = j + 1
    xlFiles(j) = strFiles(i)
    strMessage = strMessage & strFiles(i) & vbCr
    End If
End If
Next i
 
'Ouvre tous les fichiers Excel après confirmation
If j > 1 Then
    strMessage = "Confirmez-vous l'ouverture des fichiers :" _
    & vbCr & strMessage
If MsgBox(strMessage, vbYesNo + vbQuestion) = vbYes Then
    For i = 1 To j
    Workbooks.Open FileName:=xlFiles(i)
    Next i
    End If
End If
Else
MsgBox "Aucun fichier sélectionné"
End If
End Sub

jpleroisse

14/12/2005, 20h30
SfJ5Rpw8

Citation:

Envoyé par leroissejp

Bonsoir,
A partir d'un classeur, tu peux importer les fichier qui t'intéressent d' un répertoire, les modifier et ensuite en importer d'un autre répertoire et agir de la même façon.
Pour sélectionner les fichiers, appuyer sur Ctrl et sélectionner avec la souris.
...
jpleroisse

et c'est ou que tu gére le probléme d'index ? 8O
14/12/2005, 22h12
leroissejp

Bosoir,
bbil, je n'ai aucun problème avec cette façon d'ouvrir, de modifier et de fermer les classeurs.Les classeurs sont simplement sauvegarder avec les modifications.Il n'y a aucune indexation.

jpleroisse