Discussion :

[Drattom13]

Bonjour,

Suite à la mise a jour du pack office 2000 a 2007 je rencontre des problèmes sur l ouverture des fichiers xls avec VBA chemin non trouvé erreur 1004

identique à cette discussion : http://www.developpez.net/forums/d14...r-introuvable/



Les fichiers son sur le serveur et la lettre du lecteur est bonne , un autre poste de travail est avec Office 2003 et celui-ci ne pose pas de problème
comment faire pour supprimé cette erreur sur la version 2007 ?

Merci

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
Sub initialise1()
  Chemin = "O:\Devis 11\"
 
Sub Lecture_devis()
ligne = ActiveCell.Row
nomdevis = CStr(Cells(ligne, 1).Value)
 
'Mot de Passe
pass = "-----"
 
verif = InputBox("Entrer le mot de passe")
 
If verif = pass Then
MsgBox ("Mot de passe correct")
Controle.Hide
 
Application.ScreenUpdating = False
Workbooks.Open (Chemin & nomdevis)
 
Else
   MsgBox ("Mot de passe incorrect")
End If
 
    Fermeture
End Sub

[Invité]

Bonjour,
puis-je de suggérer de préciser l'extension qui en Excel 2000 Comme Office 2003 est par défaut Xls et sur 2007 Xlsx.

j'imagine que le fichier "O:\Devis 11\21158.xlsx" n'existe effectivement pas alors que le fichier "O:\Devis 11\21158.xls" peut-être!

[Drattom13]

merci rdurupt pour ta réponse rapide

Concernant l'extension entre excel 2003 et 2007 oui c'elle-ci change mais ne semble pas être la cause
Puis que en copiant le dossier sur mon poste de travail et en changeant la lettre du lecteur de la macro plus de probleme.

[Invité]

Bonjour,

parfois le fichier s'ouvre quand même, mais le temps de réaction est trop long via un serveur , et l'erreur apprêt!

le fichier s'ouvre malgré l'erreur?

[Drattom13]

alors pour mieux expliquer:


PC 1 : Windows XP Pro , avec Excel 2007 lecture fichier réseau = Message d erreur

PC 2 : Windows XP Pro , avec Excel 2003 lecture fichier réseau = fonctionne parfaitement

PC 2 : Windows 8.1 , avec Excel 2007 lecture fichier réseau = Message d'erreur ; en local = fonctionne parfaitement



si ça viendrait de l extension que faudrait t il que je face ?

[Invité]

Code :

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

Workbooks.Open (Chemin & nomdevis & ".xls")

[Drattom13]

Un grand merci , je vais pouvoir partir en congé garce a toi encore mille merci