Erreur dans code VBA
Résolu
simkmil Messages postés 505 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'ai un petit fichier écrit en VBA il y a un certain temps. Au départ, il fonctionnait impeccablement, mais voulant à nouveau l'utiliser, il me marque une erreur.
J'ai beau chercher, je ne sais pas où se trouve cette erreur
voici l'adresse de mon fichier, si l'un d'entre vous pouvait m'aider à résoudre cette erreur, j'en serais très heureux.
Il s'agit d'un fichier que j'avais fait pour un ami, et hier il me signale qu'il n'arrive plus à sauvegarder.
https://www.cjoint.com/c/MAntRMj4BRn
merci beaucoup
6 réponses
-
Je viesn de vérifier, en effet, j'ai le dossier GECOBAT dans le disque G mais je n'avais pas de sous dossieer FACTURES.
Je l'ai créé et magnifique, ça fonctionne.
Merci pour ton aide.
Maintenant, je m'aperçois que j'ai une feuille "Historique des ventes" et rien ne s'y inscrit, cette feuille devrait permettre de comptabiliser les factures payées et les non-payées. Puis j'ai une feuille Journal des ventes, qui est une reproduction d'une feuille de livre comptable et là, tout s'y inscrit correctement.
Je vais vérifier le code se rapportant aux inscriptions dans cette feuille "Historique"
Merci et bonne soirée.
-
Bonjour,
il fonctionnait impeccablement,
Surprenant, car:
"Quelle que soit sa version, Windows ne vous laisse pas nommer des noms de fichiers n'importe comment. Généralement, la limitation la plus connue concerne une liste de caractères spéciaux interdits : <, >, :, “, /, \, |, ?, *. Il est également interdit de terminer un nom de fichier par un espace, ou un point"
-
Bonsoir, merci de votre réponse, mais je ne vois aucune des restrictions dans mon nom de fichier.
j'ai écris : G:\GECOBAT\FACTURES\
donc, pas de caractère interdit, ni d'espace.
à moins que le \ en fin soit en trop ??
si je dois enlever les deux \ que mettre à la place ?
Merci de votre aide.
-
-
Tu ne nous montres pas le nom du fichier.
As-tu écrit ce code?
As-tu vu la ligne qui contient ceci?
NomFichier = Range("B12").Value & " " & Range("E10").Value & " " & Range("F10").Value & ".xlsm"Que contient B12? Moi j'y vois des caractères qui sont interdits dans un nom de fichier.
-
-
-
Bonjour,
Il suffit de remplacer :
NomFichier = Range("B12").Value & " " & Range("E10").Value & " " & Range("F10").Value & ".xlsm"
par :
NomFichier = Replace(Range("B12").Value, "/", "-") & " " & Range("E10").Value & " " & Range("F10").Value & ".xlsm"Bon dimanche.
-
-
Re,
Le probleme vient de la date du nom de fichier a sauvegarder avec des "/" en separateur
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
l'erreur indiquée dans le popup est :
erreur 1004
Microsoft ne peut accéder au fichier "G:\GECOBAT\FACTURES\16-01-23 KOUSEN Daniel.xlsm"
je clique sur déboguage et c'est la ligne suivant qui est en jaune
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
merci de ton aide.
-
Bien sur que NON !! je n'avais pas ce dossier, seulement le dossier Gecobat !
erreur réparée et tout fonctionne.
Encore merci
