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 :

sauvegarde automatisee ne fonctionne pas.


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Août 2008
    Messages
    141
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 141
    Par défaut sauvegarde automatisee ne fonctionne pas.
    bonjour ,
    j'ai un fichier a reenregistrer tous les jours et j'essai donc que la cration du fichier soit automatique , j'ai essaye le code suivant sans succes


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
     
    Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & today() & ".xls"
     
    End Sub

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,

    Ne serait-ce pas plutôt :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & now & ".xls"
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & Format(Now, "dd/mm/yyyy") & ".xls"
    si vous ne voulez pas l'heure.

  3. #3
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Tu peux essayer ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
     
    ThisWorkbook.SaveAs Filename:="C:\WINDOWS\Profiles\abcde\Desktop\" & Worksheets("SUMMARY").Range("F8") & Format(Date, "yyyymmdd") & ".xls"
     
    End Sub
    Petit conseil, lorsque tu enregistres un fichier en y ajoutant la date, il vaut mieux écrire la date comme ceci (année mois jour) 20081006 ce qui permettra de garder un classement logique de tes fichiers

  4. #4
    Membre confirmé
    Inscrit en
    Août 2008
    Messages
    141
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 141
    Par défaut thanks
    it works

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [vb]sauvegarder en bmp ne fonctionne pas
    Par cd090580 dans le forum Windows Forms
    Réponses: 2
    Dernier message: 24/03/2007, 10h19
  2. sauvegarde planifiée mais elle ne fonctionne pas
    Par iam dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 18/03/2007, 15h00
  3. Sauvegarde ne fonctionne pas
    Par zouetchou dans le forum Administration
    Réponses: 6
    Dernier message: 27/11/2005, 15h13
  4. Un Hint sur un PopupMenu ne fonctionne pas !!??
    Par momox dans le forum C++Builder
    Réponses: 6
    Dernier message: 26/05/2003, 16h48
  5. ca ne fonctionne pas (generateur auto-incrémentant)
    Par tripper.dim dans le forum SQL
    Réponses: 7
    Dernier message: 26/11/2002, 00h10

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