Discussion :

[flag007]

Bonjour,

J'ai un programme qui me donne 150 fichiers excel séparés avec tous des noms différents.

Je souhaite appliquer une macro sur l'ensemble des fichiers sans avoir à les ouvrir.


J'ai trouvé cette macro qui fonctionne mais je dois quand même ouvrir mes fichiers un par un;
Je voudrais modifier l'appel du fichier et faire une loop pour qu'il passe tous les fichiers du répertoire.

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
19
Sub Tousfichiers() 
Const type_fichier As String = "tous fichiers, *.*" 
Dim FichierChoisi As String 
 
'Choisir un fichier 
FichierChoisi = Application.GetOpenFilename("Fichiers Excel, *.xlsx") 
If FichierChoisi = "" Then Exit Sub 
 
'ouvrir le fichier 
Workbooks.Open (FichierChoisi) 
 
'traitement 
 
Call Verrouillage 
 
'puis à la fin fermer et enregistrer le fichier 
ActiveWorkbook.Close savechanges:=True 
 
End Sub

Macro qui sera ensuite exécutée:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Verrouillage() 
Sheets("OUTIL").Select 
Range("A1:F2").Select 
selection.Locked = True 
Range("G1:J2").Select 
selection.Locked = False 
selection.FormulaHidden = False 
ActiveSheet.Protect Password:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True 
Range("A1").Select 
End Sub

Un gros merci à l'avance pour votre aide!
Flag

[Menhir]

Je souhaite appliquer une macro sur l'ensemble des fichiers sans avoir à les ouvrir.

C'est impossible.
Il n'est pas possible de lire (et encore moins de modifier) un fichier sans l'ouvrir d'une façon ou d'une autre.

Je voudrais modifier l'appel du fichier et faire une loop pour qu'il passe tous les fichiers du répertoire.

Faire une boucle While avec une fonction Dir().
https://msdn.microsoft.com/fr-fr/VBA...wend-statement
https://msdn.microsoft.com/fr-fr/VBA...s/dir-function

[Igloobel]

Bonjour,

Je suis d'accord avec Menhir dans le fait que pour faire des modifs dans tes fichiers il faudra bien les ouvrir

Cependant si je lis entre les lignes Ce que tu veux c'est : ne pas les ouvrir manuellement

donc moi j'utiliserais la fonction Dir dont voici un exemple

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
Sub test_dir()
 
    Repons = "D:\TEMPO\*.xls"
    Fichier = Dir(Repons)
    Tot_Fic = 0
    Mess = ""
    Do While Fichier <> ""
        Mess = Mess & Repons & Fichier & vbCrLf
 
        Fichier = Dir
        Tot_Fic = Tot_Fic + 1
    Loop
    Mess = Mess & vbCrLf & "Nombre de fichier = " & Tot_Fic
    MsgBox Mess
 
End Sub

le *.xls ramène les fichiers : .xls, .xlsx, .xlsm ...

tu l'adapte à ton code et voilà

Enfin si j'ai bien compris

tu dis

A+

[Menhir]

Je suis d'accord avec Menhir dans le fait que pour faire des modifs dans tes fichiers il faudra bien les ouvrir
Cependant si je lis entre les lignes Ce que tu veux c'est : ne pas les ouvrir manuellement

Il envisage même peut-être de ne pas les ouvrir "façon Excel" mais avec des outils de base de données avec une connexion ADODB.
http://silkyroad.developpez.com/VBA/ClasseursFermes/

Mais il me semble qu'il serait peu judicieux de proposer une méthode si complexe à une personne qui semble débuter en codage VBA.

[Pierre Fauconnier]

Salut.

[...]

le *.xls ramène les fichiers : .xls, .xlsx, .xlsm ...
[...]

Pour ramener les xls ET les autres, il faut utiliser *.xls*

[Igloobel]

Je suis d'accord sur le principe sauf que sur mon Excel 2010 ça fonctionne parfaitement :

*.xls me ramène tout les xls et les xls quelquechose

je connais bien le DOS et donc normalement j'ai besoin de rajouter un * après

Seulement VBA doit être plus permissif (voir même des fois trop )

dis moi pierre que donne ma petite macro tel quel chez toi ?

A+

[Pierre Fauconnier]

Sans le second *, je n'ai que les xls

[Igloobel]

Bon

j'ai relancé par acquis de conscience et cela marche toujours

pour plus de sécurité et que cela fonctionne sur tous les postes il vaut mieux respecter les règles du DOS

en ajoutant l' * donc

ce petit bout de macro liste tous les fichiers et il n'y a plus qu'à insérer l'ouverture la gestion et la fermeture dans la boucle

enfin si c'est ce qu'il veut

houhou flag007 tu nous dis si cela te va ou pas

[Pierre Fauconnier]

C'est étonnant car je doute que la fonction DIR ait été modifiée entre ta 2010 et ma 2016...

[Menhir]

La fonction Dir() s'appuie sans doute sur l'OS et Windows est plus ou moins "permissif" dans sa fonction recherche en fonction des versions.
Avez-vous les mêmes OS ?

[Pierre Fauconnier]

Moi: win 8.1. J'ai testé également en commande dos et le résultat est identique.

Sur ce lien (16/10/2017), MS précise pourtant ceci:

dir *.txt lists all files in the current directory with extensions that begin with .txt, such as .txt, .txt1, .txt_old.

qui donnerait raison à igloobel.

Dès lors, je confirme mon choix de la prudence avec *.xls*...

[Igloobel]

Je me ralie aussi à la même prudence

je suis sous Windows 7 et Excel 2010

et voici quand je vais sur commande : (c'est pas une image truquée)

[Pierre Fauconnier]

J[...](c'est pas une image truquée)[...]

J'me doute

Ca corrobore ce que j'ai lu sur le sujet et qui correspond à ton résultat et pas au mien... Mystère et boule de gomme, comme on dit