Problème d'ouverture de fichier

[noir_desir]

quand j'essaye d'ouvrir un fichier excel avec la commande :

Workbooks.OpenText Filename:="H:\HNEW\PRODUCTION\ETUDES\V1141_28_Trizay - Coutretôt - Saint-Serge _ ZON\V1141_28_Suivi affaire.xls"

Il me dit qu'il y a une erreur

fichier inaccessible :

verifié que le fichier existe : il existe
vérifié que le dossier dans lequel se trouve le fichier n'est pas en lecture seule : pas en lecture seule
vérifié que le nom du fichier ne comporte pas les caractéres suivant :
V1141_28_Suivi_affaire.xls < > ? [ ] : ni * : le nom du fichier est au dessus


(je précise qu'il me fait l'erreur que pour 2 fichier sur 320)

 

[noir_desir]

Re : Problème d'ouverture de fichier

Oups 🙄 erreur de frappe

Quand au code euh je donne la partie intéressante :

Ici c'est ouverture du fichier

 nompath = ActiveCell.Value
     lect = Left$(nompath, 1)
     ChDrive lect + ":"
     ChDir nompath
     Open "c:\dirall.bat" For Output As #1 ' Ouvre le fichier en écriture.
     Print #1, lect + ":"
     Print #1, "cd " + nompath
'écriture du fichier dir.doc ou se trouvera les informations filtrées
Print #1, "Del c:\dirdoc.txt"
Print #1, "Dir " + typext + " /s>c:\dirdoc.txt"
Print #1, "cls"
Close #1
ChDrive "c:"
Shell "c:\dirall.bat"

chemin est le chemin en string du fichier

Sub verif(chemin, compteur, fichier)

Dim tampon As String


'ne fait rien s'il y a pas de fichier

 If fichier <> "" Then
   
    Feuil3.Range("A" & compteur1) = chemin
    
'ouverture du fichier

    Workbooks.OpenText Filename:=chemin
    Workbooks(fichier).Activate

 

[Pierrot93]

Re : Problème d'ouverture de fichier

Re

trop fort pour moi ton code, comprends pas tout, je n'en suis pas encore là...

@+

 

[noir_desir]

Re : Problème d'ouverture de fichier

j'ai vu ce code mis par hervé sur ce forum

Dim toto

Set toto = CreateObject('Scripting.FileSystemObject')

If toto.FileExists('c:\\\\\\\\yyyy\\\\\\\\xxxx.xls') Then
MsgBox 'fichier existant.'
Else
MsgBox 'fichier non existant.'
End If

mais j'ai des erreurs un peu.
Ce genre de code focntionne dans excel 2003

 

[Jam]

Re : Problème d'ouverture de fichier

Salut à tous,

J'ai pas tout bien saisi ce que tu cherches à faire mais j'ai une petite idée à soumettre:
- Vu que tu n'as apparemment pas de problème de nom de fichier ou de chemin je pencherai pour un problème de synchro entre la lecture du fichier et son utilisation. La commande DOS n'est pas forcément "en ligne" avec le reste de ton programme qui enchaine certainement la boucle alors que l'opération n'est pas terminée, d'où le problème de "non existence" du fichier et/ou répertoire.

Essai d'inclure l'instruction DoEvents dans ton code afin d'être certain que ton opération DOS est bien terminée.

J'ai aussi trouvé cette petite soluce chez F. Sigonneau:

'l'exemple utilise une commande DOS pour créer un fichier texte
'qui liste tous les fichiers du disque D (à adapter)
'La fonction WaitEndApp oblige à attendre la fin de la création
'de la liste pour l'afficher

Sub ListeFichiers()
'd'après JièL, mpfe
'pour le commutateur /c qui ferme la fenêtre msdos --> D. Josserand, mpfe

    WaitEndApp "command.com /c dir d:\*.*/s/b >d:\list.doc"
    Shell "winword d:\list.doc", vbNormalFocus
End Sub

Sub WaitEndApp(Fichier)
'fs
    Application.WindowState = xlMinimized
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Fichier, 1, True
    Application.WindowState = xlMaximized
    MsgBox "Terminé !"
End Sub

Bon courage,

 

[noir_desir]

Re : Problème d'ouverture de fichier

Je ne suis pas sur que ce soit cela le problème puisque le fichier est complet
J'ai juste le problème sur deux chemins (j'ai aussi fais un teste avec le debuggeur en attendant que les fichier sois vraiment rempli).

J'ai implanté le code, je te dis si cela change quelque chose :d

Résultat niette toujours la même erreur, mais le programme fonctionnera assurement mieux.

 

[noir_desir]

Re : Problème d'ouverture de fichier

Si quelqu'un a trouvé une solution pour ce type de soucis 😀
aidez moi 😱

 

[kiki29]

Re : Problème d'ouverture de fichier

Pour la portion de code d'Hervé remplacer les ' par " cela ira dejà mieux