Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Impossible d'ouvrir fichier Excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion laurentsimon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

laurentsimon

Guest
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.
 
Trier par date Trier par votes
Re : Impossible d'ouvrir fichier Excel

Bonjour,
Peut-être comme ça
Code: 
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
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir fichier Excel


Je vais essayer. Merci.

En fait si mon chemin pointe sur C:, ça marche mais pas sur les autres lettres...?!
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir fichier Excel


ça marche nikel !

Merci. 🙂
 
Vote positif 0 Vote négatif
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?
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir fichier Excel


Oui, le chemin est connu.
 
Vote positif 0 Vote négatif
Re : Impossible d'ouvrir fichier Excel

Re,
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
687
Phil69970
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
708
fanch55
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
541
cdric78
C
M
  • Question Question
XL 2010 Impossible d'exécuter la macro. Importe Excel vers Word.
Réponses
6
Affichages
553
wDog66
W
Méthodes pour ouvrir et afficher un lien, un fichier, ou un dossier
Réponses
0
Affichages
800
Lu76Fer
T
  • Question Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
506
sylvanu
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
907
Lu76Fer
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
862
Chaton77
K
  • Question Question
Microsoft 365 Défiltrer une colonne avec VBA
Réponses
2
Affichages
614
Phil69970
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
655
JJ69
J
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
818
arnoldbrice19
A
C
  • Question Question
Microsoft 365 Impression PDF d'un Word via une macro Excel
Réponses
11
Affichages
2 K
job75
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
1 K
Aldonanou
A
G
  • Question Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
2 K
Guillaumeg3
G
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
815
RyuAutodidacte
T
  • Question Question
Microsoft 365 Images ne s'affiche pas dans fichier Excel
Réponses
5
Affichages
1 K
job75
S
  • Question Question
Microsoft 365 fichier Excel utilisé sur tablette Android
Réponses
3
Affichages
1 K
Compte Supprimé 979
C
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…