Erreur dans code VBA

Résolu
simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention   -  
simkmil Messages postés 481 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

A voir également:

6 réponses

Réponse 1 / 6
simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention   35
 

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.
1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

Peux-tu alors marquer la discussion comme résolue?

0
Réponse 2 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 

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"
0
Réponse 3 / 6
simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention   35
 

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.
0
golirima7 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 

Hello sir the same problem I'm also facing...Please anybody help...

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

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.

0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 

Bonjour,

B12: date du jour :14/01/23. Donc les "/" ne peuvent pas etre utilises

0
SimKmil > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 

Bonsoir,

en effet, j'ai écris cette ligne de code.

Dans ma feuille récapitulatif, la cellule B12 est bien recopiée sous forme de date

ça coince au niveau de la ligne 

ActiveWorkbook.SaveCopyAs NomDossier & NomFichier

merci de votre aide

0
hypothetix Messages postés 224 Date d'inscription   Statut Membre Dernière intervention   66 > simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention  
 

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.

2
Réponse 4 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 

Re,

Le probleme vient de la date du nom de fichier a sauvegarder avec des "/" en separateur
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention   35
 

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.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

Et, bien sût, tu as un dossier nommé G:\GECOBAT\FACTURES sur ton ordi?

0
Réponse 6 / 6
simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention   35
 

Bien sur que NON !! je n'avais pas ce dossier, seulement le dossier Gecobat !

erreur réparée et tout fonctionne.

Encore merci
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Problème de décodeur TV Bouygues Telecom
Massi119 -
Turone37 -

188 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses