appel fichier externe

[filou60]

Bonjour à tous,
Je fais des calculs de consommation électrique dans un fichier
jusqu'à peu cela fonctionnait très bien en excel 2010 sur Windows 7, j'ai changer de machine et me voila sur Windows 10 et Excel 2013 (même pb en Excel 365)
j'ai 2 fichiers dans le même répertoire dont un qui se nomme ''SUIVI_HEBDO_ORION.xls et dans l'onglet HOME je fais:
bouton ''Purge du tampon''
bouton ''Chargement des valeurs''
et la j'ai un planton ''erreur d'exécution 1004''
Je pense que la copie des valeurs du second fichier ne se fait pas car il n'est pas trouvé ou impossible à ouvrir
J'espère avoir été clair mais n'étant pas un expert excel et ayant repris cette activitée…...
Je joins les 2 fichiers
Je vous remercie d'avance

 

[Compte Supprimé 979]

Bonjour Filou60

1) Commence par changer

    Chemin = Workbooks(ActiveWorkbook.Name).Path

par

    Chemin = ThisWorkbook.Path

2) Je pense que ton problème est là

.SourceDataFile = "K:\IBM\Site\IBM ELECTRICITE\STEPHANE\semaine.xls"

A remplacer par

.SourceDataFile = Chemin & "\semaine.xls"

A+

 

[filou60]

Bonjour,
Merci de m'avoir répondu
j'ai effectué les modifications mais j'ai toujours le même PB
lorsque je suis en mode debug ,je plante arrivé à .Refresh BackgroundQuery:=False

.SourceDataFile = Chemin & "\semaine.xls"
.Refresh BackgroundQuery:=False
Merci encore

 

[Compte Supprimé 979]

Salut,

Je pense alors, que c'est ta requête qu'il faut reconstruire avec l'enregistreur VBA 😉

 

[filou60]

merci pour tes réponses , ce que je ne comprend pas c'est que cela fonctionne parfaitement en excel 2010 avec Windows 7 et maintenant ca plante en excel 2013 et Windows 10

 

[Compte Supprimé 979]

Re,

Normal, nouvelles versions = nouveaux protocoles de communication 😉😕

 

[filou60]

Bonjour,
Merci à toi, je n'y suis pas arrivé je vais me débrouiller autrement