Erreur d'exécution 1004 sur sauvegarde Excel

Résolu
jadami Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   -  
jadami Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   -
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 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
castours
 
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 101 Date d'inscription   Statut Membre Dernière intervention  
 
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