IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Incrementer nom fichier enregistrement sous


Sujet :

Macros et VBA Excel

  1. #21
    Nouveau Candidat au Club
    Inscrit en
    Mai 2004
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mai 2004
    Messages : 12
    Points : 1
    Points
    1
    Par défaut Essai effectué,
    patbou,

    Le code pour l'enregistrement semble suffire comme tu le disais mais l'erreur 1004 reste.

    S'est sacrément difficile cette affaire.

    Enfin je te remercie déjà pour ton aide (sa,s oublier les autres intervenants)

  2. #22
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Tu n'oublierais pas quelque chose, ici
    ActiveWorkbook.SaveAs Filename:= _
    "D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_RESTO-AMIRAL_" & Format(Date, "dd_mm_yy"), FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
    Manquerait pas ".xls" quelque part ?
    Si ce n'est pas ça, fais ça en deux temps
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    NomFich =  "D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_RESTO-AMIRAL_" & _
        Format(Date, "dd_mm_yy") & ".xls"
    ActiveWorkbook.SaveAs Filename:=NomFich
    A+

  3. #23
    Nouveau Candidat au Club
    Inscrit en
    Mai 2004
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mai 2004
    Messages : 12
    Points : 1
    Points
    1
    Par défaut Retouche du code
    Citation Envoyé par ouskel'n'or Voir le message
    Tu n'oublierais pas quelque chose, ici
    Manquerait pas ".xls" quelque part ?
    Si ce n'est pas ça, fais ça en deux temps
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    NomFich =  "D:\MES DOCUMENTS CHRISTOPHE\MA_COMPTA\CAISSE_RESTO-AMIRAL_" & _
        Format(Date, "dd_mm_yy") & ".xls"
    ActiveWorkbook.SaveAs Filename:=NomFich
    A+
    Bonsoir ouskel'n'or. (je sais pas mais le sud est sous mes pieds )

    Je viens de rajouter l'extention ".xls" mais s'est parreil sans, le fichier est enregistré avec l'extention, reste se problème de erreur 1004
    Je peux pas rendre mon boulot comme ça moi

    Merci à toi ouskel'n'or

  4. #24
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Points : 2 416
    Points
    2 416
    Par défaut
    Mais il y a un mais, je reçois le message d'erreur suivant :
    Erreur d'exécution '1004':
    la méthode 'SaveAs' de l'objet '_Worbook' à échoué
    Quand tu sauve un fichier sous un autre nom c'est ce nouveau nom qui est actif, d'ou l'erreur 1004 'l'objet est introuvable' , soit tu active le nouveau nom, soit tu réouvre l'ancien classeur qui lui existe toujour mais sur le DD.
    A+

  5. #25
    Nouveau Candidat au Club
    Inscrit en
    Mai 2004
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Mai 2004
    Messages : 12
    Points : 1
    Points
    1
    Par défaut Reouvrir l'ancien fichier...
    Citation Envoyé par LeForestier Voir le message
    Quand tu sauve un fichier sous un autre nom c'est ce nouveau nom qui est actif, d'ou l'erreur 1004 'l'objet est introuvable' , soit tu active le nouveau nom, soit tu réouvre l'ancien classeur qui lui existe toujour mais sur le DD.
    A+
    Voila une bonne idée, mais comment faire ça ? personnellement je sature là

    (S'est vraiment raide cette affaire de VB)

    Merci à toi.
    Christophe

Discussions similaires

  1. Comment modifier un fichier enregistré sous disque
    Par bambi98 dans le forum QuickReport
    Réponses: 1
    Dernier message: 30/03/2012, 09h20
  2. [AC-97] Fichier : Enregistrer sous
    Par titi95 dans le forum VBA Access
    Réponses: 5
    Dernier message: 31/12/2010, 11h32
  3. fichier - enregistrer sous
    Par pascale86 dans le forum Langage
    Réponses: 1
    Dernier message: 15/03/2010, 13h23
  4. Peut-on donner automatiquement un nom à un enregistrement sous PDF ?
    Par nat44 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/07/2008, 15h51
  5. Nom de fichier dans Enregistrer sous
    Par lbar012001 dans le forum VBA Access
    Réponses: 3
    Dernier message: 02/04/2008, 17h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo