Erreur dans code VBA

Résolu

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

  1. 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"

    1. 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.

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

      2. Contributeur

        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.

      3. @yg_be

        Bonjour,

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

      4. @yg_be

        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

      5. @yg_be

        B12 contient la date, et il est bien repris sur la feuille récapitulatif en tant que date, sous la bonne forme.

    2. Re,

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

      1. 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.

        1. Contributeur

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

      2. 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. Contributeur

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

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

        erreur réparée et tout fonctionne.

        Encore merci