Erreur d'exécution 1004 sur sauvegarde Excel

Résolu/Fermé
jadami Messages postés 103 Date d'inscription mercredi 14 mars 2007 Statut Membre Dernière intervention 18 septembre 2020 - 2 août 2017 à 00:59
jadami Messages postés 103 Date d'inscription mercredi 14 mars 2007 Statut Membre Dernière intervention 18 septembre 2020 - 8 août 2017 à 01:06
Bonjour,

A travers un formulaire Access, je pilote un fichier Excel, et lorsque je fais la sauvegarde j’ai en fonction du chemin cette erreur :

Erreur d’exécution ‘1004’ Fichier inaccessible

Ci après la création du Dossier sauvegarde et le chemin qui fonctionne et deux autres qui ne fonctionnent pas.

'---Initialise le dossier excel
D_Dossier = CStr("ACTIVITES") & "\" & "LISTE DES ACTIVITES" & " - (" & Me.Texte124 & ") " & CONS_SAISON_N & " " & strDate

Debug.Print D_Dossier
ACTIVITES\LISTE DES ACTIVITES - (Randonnée pédestre) 2016 - 2017 31-7-2017 11h 52m 55s

'--- Sauvegarde d'Excel
excl.SaveAs Path & "\" & "DOSSIERS\DOSSIERS EXCEL\" & D_Dossier & "" & ".xlsx"

Deux Sauvegardes qui ne fonctionnent pas
"C:\Users\Jacques\Documents\AAAA\BASE 2017-ORIGINAL1\ADHERENTS AAAA\Base 1 Partie applicative (Frontale)\DOSSIERS\DOSSIERS EXCEL\ACTIVITES\LISTE DES ACTIVITES - (Randonnée pédestre) 2016 - 2017 31-7-2017 11h 52m 55s.xlsx"

"C:\Users\Jacques\Documents\AAAA\BASE 2017-ORIGINAL1\ADHERENTS AAAA\Base 1 Partie applicative (Frontale)\DOSSIERS\DOSSIERS EXCEL\ACTIVITES\LISTE DES ACTIVITES - (Gymnastique aquatique) 2016 - 2017 31-7-2017 12h 52m 27s.xlsx"

Sauvegarde qui fonctionne
"C:\Users\Jacques\Documents\AAAA\BASE 2017-ORIGINAL1\ADHERENTS AAAA\Base 1 Partie applicative (Frontale)\DOSSIERS\DOSSIERS EXCEL\ACTIVITES\LISTE DES ACTIVITES - (Danse country) 2016 - 2017 31-7-2017 12h 45m 27s.xlsx"

Pouvez-vous m’aider pour résoudre mon problème ?

Salutations



3 réponses

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
2 août 2017 à 01:09
Bonjour,

Juste au cas où... si tu réduis de quelques caractères le nom de tes fichiers (et ou du chemin)... est-ce que ça ne fonctionnerait pas ??

Je vois que tes deux fichiers (chemin + fichier) qui ne passent pas font plus de 220 caractères...
et celui qui passe n'en compte que 214

Au passage.. pour nommer tes fichiers avec une date.. il serait plus judicieux d'utiliser le format timestamp.
C'est à dire.. au lieu d'écrire :
31-7-2017 11h 52m 55s

Mettre :

20170731115255

cela te fera gagner quelques caractères... et te permettra plus facilement de trier les documents dans l'explorateur de fichiers...



Si la taille n'est pas le problème... tu peux voir au niveau différence que les fichiers qui ne passent pas sont ceux avec des accents.... peut-être une piste à suivre....



1
bonjour
Pourquoi tu ne geres pas tout depuis access qui est un logiciel de base de données, excel tableur.
0
jadami Messages postés 103 Date d'inscription mercredi 14 mars 2007 Statut Membre Dernière intervention 18 septembre 2020
8 août 2017 à 01:06
Bonjour,

Merci pour ta réponse, c’était bien la longueur du chemin qui était en cause,
j’ai allégé la chaine et pour le nom du fichier j’ai limité sa longueur de cette façon :
(" & Left(Me.Texte124, 45) & ")
Pour le nommage des fichiers je n’ai pas su utiliser la fonction
timestamp
Je m’en suis sortie de cette façon :
'---Initialise la date
strDate = Year(Now) & "" & Month(Now) & "" & Day(Now) & "" & Hour(Now) & "" & Minute(Now) & "" & Second(Now)

et le résultat donne cela :
201783131640

Salutations
0