Signaler

Erreur d'exécution 1004 sur sauvegarde Excel [Résolu]

Posez votre question jadami 36Messages postés mercredi 14 mars 2007Date d'inscription 5 octobre 2017 Dernière intervention - Dernière réponse le 8 août 2017 à 01:06 par jadami
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



Utile
+1
plus moins
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....



Cette réponse vous a-t-elle aidé ?  
Donnez votre avis
Utile
+0
plus moins
bonjour
Pourquoi tu ne geres pas tout depuis access qui est un logiciel de base de données, excel tableur.
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !