Sauvegarde automatique tous les classeurs ouverts

[stephblit]

Bsr,

Voila, j'ai une cinquantaine de classeurs ouverts qui ne sont pas enregistrés

Je souhaite créer une macro
qui me permette d'enregistrer automatiquement ces 50 classeurs dans le dossier (C:\Users\Alex\Desktop\Nouveau dossier) en leur donnant à le nom du 1er onglet (à vrai dire chaque classeur ne comporte qu'un seul onglet !)

Pouvez-vous m'aider ?

par avance MERCI

 

[Cousinhub]

Re : Sauvegarde automatique tous les classeurs ouverts

Bonsoir,
dans ton chemin, tu mets "Nouveau dossier"
Faut-il le créer? si oui, par quel nom?
Existe-t-il?

 

[Dan]

Re : Sauvegarde automatique tous les classeurs ouverts

Bonsoir,

Evite d'utiliser DESKTOP (qui est ton bureau ici) pour sauver des fichiers.

Prends plutôt C:\Users\Alex\Nouveau ou C:\sauvegarde.

Tu laisseras de la place à ton profil utilisateur.

Amicalement

Dan

 

[stephblit]

Re : Sauvegarde automatique tous les classeurs ouverts

bsr,
et merci bcp pour votre aide

Concernant le ''nouveau dossier'', il est déjà crée !
C'est en fait juste le nom du dossier où doive se retrouver tous mes classeurs excel sauvegardés

en esperant avoir été clair...

 

[Dan]

Re : Sauvegarde automatique tous les classeurs ouverts

re,

Il te faut être sûr de ton nom de dossier car une fois fait plus question de le changer sinon ta macro ne fonctionnera plus.

A te relire

Dan

 

[Roland_M]

Re : Sauvegarde automatique tous les classeurs ouverts

bonsoir

Public Sub SaveTousClasseursOpen()
Application.DisplayAlerts = False
For C = 1 To Workbooks.Count
  N$ = Workbooks(C).Name
  NomDuClasseurSVG$ = "C:\Users\Alex\Desktop\Nouveau dossier\" & Sheets(1).Name
  Workbooks(N$).SaveAs Filename:=NomDuClasseurSVG$
Next
Application.DisplayAlerts = True
End Sub

Roland

 

[skoobi]

Re : Sauvegarde automatique tous les classeurs ouverts

Bonsoir le fil,

J'ai juste un remarque à faire.
La macro tu la mettra dans le 51e classeur?
Si c'est le cas ce code enregistre tous les classeurs et les ferme sauf le classeur contenant la macro:

Sub sauve()
Dim classeur As Workbook
For Each classeur In Workbooks
    If classeur.Name <> ThisWorkbook.Name Then
        classeur.SaveAs "C:\Users\Alex\Desktop\Nouveau dossier\" & classeur.Sheets(1).Name & ".xls"
        classeur.Close
    End If
Next
End Sub

 

[stephblit]

Re : Sauvegarde automatique tous les classeurs ouverts

merci bcp Rolland !

où dois je integrer ce code ?

qd je l exectue voila ce que ca donne : j ai un message d erreur :

erreur d execution 1004
impossible d enregistrer ce classeur sous le meme nom qu un autre classeur ou macro complementaire ouvert . Choisissez un nom different , ou fermer l autre classeur ou macro complementaire avant l enregistrement

 

[stephblit]

Re : Sauvegarde automatique tous les classeurs ouverts

j ai aussi une erreur 400 avec une grosse croix rouge avec ton code skoobi !

 

[Roland_M]

Re : Sauvegarde automatique tous les classeurs ouverts

re
voir exemple et remarques de Skoobi,
c'est exacte il faut tester ci ce n'est pas le classeur qui excute le code ThisWorkbook

soit le test suivant If classeur.Name <> ThisWorkbook.Name Then
sans oublier de rajouter(j'ai fait trop vite) le (.xls)

et dans le dernier classeur !

Roland

 

[skoobi]

Re : Sauvegarde automatique tous les classeurs ouverts

j ai aussi une erreur 400 avec une grosse croix rouge avec ton code skoobi !

Quel est le descriptif de l'erreur?

 

[Dan]

Re : Sauvegarde automatique tous les classeurs ouverts

re,

En début de macro de Roland :

1. Mettre Option explicit --> avant Public Sub SaveTousClasseursOpen()
2. Déclare la variable Dim C as byte

Et n'oublie pas ma remarque au sujet du profil utilisateur. Cela t'évitera peut être des pb un jour.

Dan

 

[Cousinhub]

Re : Sauvegarde automatique tous les classeurs ouverts

Re-,
et si je peux me permettre :

Option Compare Text
Sub essai()
chemin = ActiveWorkbook.Path & "\"
For Each wb In Workbooks
    If Not wb.Name Like "perso*" Then
        Application.DisplayAlerts = False
        With wb
            .SaveAs chemin & .Sheets(1).Name & ".xls"
        End With
        Application.DisplayAlerts = True
    End If
Next wb
End Sub

Il suffit d'un perso.xls pour mettre l'embrouille (j'ai cherché un mot qui allait bien....)

 

[stephblit]

Re : Sauvegarde automatique tous les classeurs ouverts

Ok merci Dan pr le conseil !
j ai pris note et vais changer mon dossier de place !

concernant le code, j ai finalement reussi a le faire fonctionner!

merci le forum !!!


MAIS...(il y'en a tjrs un...)

je souhaite à présent intégrer dans mon code une fonction qui AVANT d'enregistrer le classeur dans mon dossier SUPPRIME toutes les images contenus dans le classeur...
Quelqu un peux t il ajuster le code de SKOOBI ?

MERCI ENCORE

 

[Dan]

Re : Sauvegarde automatique tous les classeurs ouverts

re

Bhbh, tes variables doivent être déclarées là...
Dim wb as string, chemin as string

A bientôt

Dan