Discussion :

[nixonne]

Bonjour,

Suite à une "mauvaise utilisation" d'un utilisateur qui a passé le mode de calcul "d'automatique" en "sur ordre" dans un fichier, ceci c'est propagé dans différents fichiers (que je ne connais pas) voir ici pour plus d'info sur la propagation.

J'ai trouver comment le corriger sur 1 fichier en faisant une macro et en mettant Application.Calculation = xlAutomatic dans thisworkbook_open.

J'aimerai savoir si il existe un moyen de déployer cette macro sur tout mes fichiers excel?

Merci d'avance

Nixonne

[DeaD78]

Salut,

Même si tu ne connais pas les différents fichiers, je suppose qu'ils sont plus ou moins tous dans un même répertoire.

Je te propose donc d'utiliser la méthode FileSearch et d'ouvrir tous les fichiers *.xls qui deviendront alors ton ActiveWorkbook. Il ne te restera plus qu'à balancer ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlAutomatic

et à fermer ton fichier avant de passer au suivant. Avec un Application.ScreenUpdating = False et un Application.DisplayAlerts = False, ça devrait aller.

Au pire, tu peux le faire même sur des fichiers qui sont déjà en automatique et qui n'ont pas été modifiés, ça ne changera rien pour eux. Ainsi, tu pourrais le faire dès la racine vu, qu'en général, on laisse tout en automatique.

Qu'en penses-tu ?

[nixonne]

Salut,

Le problème est que nous utilisons beaucoup les fichiers excel et qu'en ouvrir plusieurs centaines pour les vérifier sera long. c'est pour ca que j'aimerai l'automatiser

Merci d'avance

Nixonne

[aalex_38]

Peut être en utilisant une macro complémenataire, ou a l'ouverture de perso.xls par exemple.

[nixonne]

Salut,

Je veux bien des infos sur les macro complémentaire car je ne connais pas. Par contre pour perso.xls le problème et qu'il me demande si je veux enregistrer quand je ferme alors que je n'y ait pas touché

Nixonne

[Krovax]

La solution de dead consite justement a l'automatisé.

Tu trouve un fichier avec FileSearch
tu l'ouvre
tu lui balance Application.Calculation = xlAutomatic
tu ferme en sauvegardant
puis tu passe au suivant

Ca sera un peu long pour tous les ouvrir et les sauvegarder mais c'est tout. L'autre solution de aalex_38 permet de le faire (si j'ai bien suivie) automatiquement a la prochaine ouverture d'un fichier, mais ca risque d'être un peut moins évident a réaliser

[nixonne]

Cette automatisation vous la faite comment? car là je ne voit pas.

Merci d'avance

Nixonne

[aalex_38]

un mien sur perso.xls ici

1
2
3
4

[Krovax]

Si tu sais dans quel dossier sont les fichier excel je te laisse regarder l'aide sur filesearch ( et tu devrais trouver quelque post a se sujet la fonction recherche est ton amie, tu devrais aussi pouvoir en trouver dans la rubrique contribution du forum excel)

une fois que tu en as un fichier tu l'ouvre (l'enregistreur de macro te donnera la commande)

executer la ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlAutomatic

devrais suffire (la je ne suis pas sure de moi je n'ai jamais testé)

tu ferme en sauvegardant les changement (encore l'enregistreur pour avoir le code)

et tu passe au fichier suivant

Commence le code et l'on se fera un plaisir de t'aider

L'avantage de cette méthode c'est que tu le fait une fois pour toute, l'inconvénient c'est que ca va être un peu long a faire. Le fichier perso ne fera pas perdre de temps mais tu devra l'avoir sur ton ordinateur tant que tu n'as pas ouvert au moins une fois chaque fichier. (sauf si j'ai raté un épisode)


quelque contribution pour rechercher les différents fichiers excel (ca devrait pouvoir t'inspirer)

Lister les fichiers d'un répertoire et ses sous-répertoires - une méthode + rapide ?


Rassembler tous les classeurs d'un répertoire, ds un classeur ou ds une feuille

[DeaD78]

Re,

Avec un clavier, une souris et un écran ? Non ?

Bon, ben alors comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub recherche()
    Application.ScreenUpdating = False
    With Application.FileSearch
        .NewSearch
        .RefreshScopes
        .LookIn = "C:\" 'Tous les fichiers de C: sont passés en revue
        .Filename = "*.xls" 'Tous les fichiers .xls
        .SearchSubFolders = True 'Et les sous-répertoires !
        .Execute
        For Ctr = 1 To .FoundFiles.Count
            Workbooks.Open (.FoundFiles(Ctr))
            Application.Calculation = xlAutomatic
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Change juste le répertoire et c'est bon !

A plus tard

[nixonne]

Merci beaucoup pour le code, il marche très bien sous 2003 mais pas sous 2002. .FoundFiles.Count me trouve toujours 0 alors que j'ai bien des .xls dans le dossier.

Savez vous pourquoi?

Merci d'avance

Nixonne