Impossible d'ouvrir fichier Excel

[laurentsimon]

Bonjour à tous !

Je souhaite au travers d'un macro Excel ouvrir un autre fichier Excel à l'aide du code suivant :

Application.ScreenUpdating = True

ChDir CheminXls

Workbooks.Open Filename:=CheminXls & "\*_FOND.xls"

CheminXls = E:\ASCII

Le code me renvoie une erreur d'exécution 1004 : fichier introuvable.

Quelqu'un peut-il m'éclairer?

Merci de votre aide.

 

[kllmoon]

Re : Impossible d'ouvrir fichier Excel

Ton fichier existe déjà, utilise l'option d'enregistrer une macro, ouvre ton document et voilà ta macro est prête.

 

[kjin]

Re : Impossible d'ouvrir fichier Excel

Bonjour,
Peut-être comme ça

Sub Ouvrir()
Dim CheminXls as String, Fich As String
Application.ScreenUpdating = False
CheminXls = "D:\ASCII\"
Fich = Dir(CheminXls & "*.xls")
Do
Fich = Dir
Loop Until Fich Like "*_FOND.xls"
Workbooks.Open CheminXls & Fich
Application.ScreenUpdating = True

End Sub

A+
kjin

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

Bonjour,
Peut-être comme ça

Sub Ouvrir()
Dim CheminXls as String, Fich As String
Application.ScreenUpdating = False
CheminXls = "D:\ASCII\"
Fich = Dir(CheminXls & "*.xls")
Do
Fich = Dir
Loop Until Fich Like "*_FOND.xls"
Workbooks.Open CheminXls & Fich
Application.ScreenUpdating = True

End Sub

A+
kjin

Je vais essayer. Merci.

En fait si mon chemin pointe sur C:, ça marche mais pas sur les autres lettres...?!

 

[kiki29]

Re : Impossible d'ouvrir fichier Excel

Salut, avant de faire un ChDir faire un ChDrive "E"

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

Salut, avant de faire un ChDir faire un ChDrive "E"

Le problème c'est que la lettre peut-être n'importe quelle lettre...

 

[kiki29]

Re : Impossible d'ouvrir fichier Excel

Dans ce cas tu extrais cette lettre de ta chaine "Z:\ZZ\....." , et tu fais un ChDrive "Z" avant le ChDir "Z:\ZZ\....."

 

[job75]

Re : Impossible d'ouvrir fichier Excel

Bonjour à tous,

Si le lecteur est toujours le lecteur par défaut, on doit pouvoir ne pas l'indiquer :

CheminXls = "\ASCII\"

A+

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

Bonjour,
Peut-être comme ça

Sub Ouvrir()
Dim CheminXls as String, Fich As String
Application.ScreenUpdating = False
CheminXls = "D:\ASCII\"
Fich = Dir(CheminXls & "*.xls")
Do
Fich = Dir
Loop Until Fich Like "*_FOND.xls"
Workbooks.Open CheminXls & Fich
Application.ScreenUpdating = True

End Sub

A+
kjin

ça marche nikel !

Merci. 🙂

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

J'ai un petit problème lorsque en suivant je souhaite ouvrir un second fichier excel en *_HEADER.xls lorsque le programme passe par Fich = Dir j'ai une erreur d'exécution '5' Argument ou appel de procédure incorrect.

Quelqu'un a une idée?

 

[kjin]

Re : Impossible d'ouvrir fichier Excel

Bonjour,
C'est simplement que le fichier n'existe pas (peut-être un pb de casse) et comme il n'y a pas de contrôle d'erreur, bug !
A la relecture du fil, j'avoue avoir du mal à suivre. Connais tu oui ou non le chemin du répertoire dans lequel il faut chercher le fichier ?!
A+
kjin

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

Bonjour,
C'est simplement que le fichier n'existe pas (peut-être un pb de casse) et comme il n'y a pas de contrôle d'erreur, bug !
A la relecture du fil, j'avoue avoir du mal à suivre. Connais tu oui ou non le chemin du répertoire dans lequel il faut chercher le fichier ?!
A+
kjin

Oui, le chemin est connu.

 

[kjin]

Re : Impossible d'ouvrir fichier Excel

Re,

Sub Ouvrir()
Set fs = Application.FileSearch
    With fs
        .LookIn = "E:\ASCII"
        '.SearchSubFolders = True 'voir si c'est utile ?
        .MatchTextExactly = False
        .Filename = "*FOND.xls"
            If .Execute() > 0 Then
                For i = 1 To .FoundFiles.Count
                    Workbooks.Open .FoundFiles(i) 'attention ouvre tous les fichiers contenant "Fond"
                Next i
            Else
                MsgBox "Fichier non Trouvé"
            End If
    End With
Set fs = Nothing

End Sub

Soit tu indiques le lecteur et tu mets la propriétés "SearchSubFolders = True" (c'est peut être long), sois tu indiques le chemin complet dans la propriété "LookIn"
Tu peux remplacer "FileName" par une variable
A+
kjin

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

En fait, mon bout de programme c'est ça :

Application.ScreenUpdating = False
Fich = Dir(CheminXls & "\*.xls")
Do
Fich = Dir
Loop Until Fich Like "*_FOND.xls"
Workbooks.Open CheminXls & "\" & Fich
Application.ScreenUpdating = True

Range("F3").Select 'ou F3 ou k3
Selection.Copy
Windows(Fichier).Activate
Sheets("RESULTATS").Select
Range("D36").Select
ActiveSheet.Paste

Workbooks.Open CheminXls & "\" & Fich
ActiveWorkbook.Close

Application.ScreenUpdating = False
Fich = Dir(CheminXls & "\*.xls")
Do
Fich = Dir 'C'est ici que j'ai une erreur. Le fichier existe c'est sur mais il ne le trouve pas. Un problème de boucle?
Loop Until Fich Like "*_HEADER.xls"
Workbooks.Open CheminXls & "\" & Fich
Application.ScreenUpdating = True

 

[laurentsimon]

Re : Impossible d'ouvrir fichier Excel

j'ai trouvé, j'ai fais ça :

Application.ScreenUpdating = False
Fich = Dir(CheminXls & "\*_FOND.xls")
Do
'Fich = Dir
Loop Until Fich Like "*_FOND.xls"
Workbooks.Open CheminXls & "\" & Fich
Application.ScreenUpdating = True

Range("F3").Select 'ou F3 ou k3
Selection.Copy
Windows(Fichier).Activate
Sheets("RESULTATS").Select
Range("D36").Select
ActiveSheet.Paste

Workbooks.Open CheminXls & "\" & Fich
ActiveWorkbook.Close

Application.ScreenUpdating = False
Fich = Dir(CheminXls & "\*_HEADER.xls")
Do
'Fich = Dir
Loop Until Fich Like "*_HEADER.xls"
Workbooks.Open CheminXls & "\" & Fich
Application.ScreenUpdating = True