Ouvrir et fermer automatiquement tous mes fichiers Excel

Bonjour,

Je ne m'y connais pas en vba (Pas encore!) et j'ai un code trouvé un code sur le net. Mais selement ne marche donc si quelq'un m'aider ce serait super.

Public Sub OpenClose2_auto()

Dim wbSource, wbFichierUsager As Workbook
Dim strFileName, strPath, strSpec As String
Dim strFileList() As String
Dim i, FoundFiles As Integer   'Déclarer les variables de base
Set wbFichierUsager = ThisWorkbook

'On commence par identifier le chemin où les fichiers se trouvent
strPath = "D:\ST_du_2016-03-18_STAT\Test OpenClose\"
'Évidemment, ce chemin sera différent dans chaque cas

strSpec = strPath & "*.xlsx"   'Il faut spécifier l’extension des fichiers convoités

'On extrait le contenu du répertoire

strFileName = Dir(strSpec)

'Avons-nous des fichiers?

If strFileName <> " " Then

FoundFiles = 1

ReDim Preserve strFileList(1 To FoundFiles)

strFileList(FoundFiles) = strPath & strFileName

Else   'Le repertoire est vide, donc on annule tout!

MsgBox "Aucun fichier trouvé"

Exit Sub

End If

'Trouver tous les autres noms de fichiers

Do

strFileName = Dir(strSpec)

If strFileName = " " Then Exit Do

FoundFiles = FoundFiles + 1

ReDim Preserve strFileList(1 To FoundFiles)

strFileList(FoundFiles) = strPath & strFileName

Loop

'On fait les traitements requis pour chaque fichier

For i = 1 To FoundFiles

Workbooks.Open strFileName:=strFileList(i)

Set wbSource = ActiveWorkbook

'Ici, on retrouve le code VBA afin de faire les traitements de ce fichier. Ensuite, on le ferme, sans le sauvegarder

wbSource.Close SaveChanges:=False

Next i

End Sub

D'avance merci.

Cordialement.

Bonsoir Samoterell

Pour fermer l'ensemble des classeurs ouverts mise à part le classeur actif.... Une piste

 
Sub FermerTousClasseurs()
Dim Classeur As Workbook
For Each Classeur In Workbooks
    If Classeur.Name <> ThisWorkbook.Name Then
        Classeur.Close SaveChanges:=True
    End If
Next Classeur
End Sub

Par contre ouvrir des classeurs spécifiques c'est une peu compliqué et fastidieux et je n'ai jamais vu de code pour cette manipulation par contre ouvrir tous les classeurs d'un dossier spécifique :

    Sub ouvrirfichiers()
    Dim Fichier As String, Chemin As String
    Dim Wb As Workbook

    Chemin = "E:\XAVIER\TVA\" 'Chemin du dossier
    Fichier = Dir(Chemin & "*.xlsm") 'type de fichier ici .xlsm
    Do While Fichier <> ""
    Set Wb = Workbooks.Open(Chemin & Fichier)
    Set Wb = Nothing
    Fichier = Dir
    Loop
End Sub

Bonsoir,

Excuse-moi mais j'ai beaucoup de mal à trouver sérieux ce genre d'amusements...

Un classeur se ferme en seul clic !

Pour l'ouvrir en même temps qu'Excel tu utilises l'un des dossiers qu'Excel met à ta disposition pour cela !

Sinon, possibilité de raccourci,

ou pour un classeur souvent ouvert tu l'auras toujours dans les récents, directement accessibles dans le menu démarrer.

Ecrire des macros pour cela, prend nécessairement beaucoup plus de temps... ce en quoi c'est juste un entrainement pour essayer de produire du code qui fonctionne... mais il ne manque pas d'autres trucs plus amusants pour s'entrainer.

Cordialement.

Bonjour Mferrand,

Non c'est pas du tout un "amusement".

Je dois trouver un moyen pour ouvrir et fermer automatiquement une 20aine de fichiers .xls générés quotidiennement dont le contenu est récupéré par un autre classeur pour des calculs. Rien qu'avec ça, l'ecriture d'une petite macro est justifiée puisqu'il y a necessairement gain de temps au bout. Peut etre qu'il existe d'autres moyens encore plus simples mais je ne les connais pas. Du coup, j'abitre entre une ouverture & fermerture manuelle de plus de 20 fichiers générés automatiquement et quotidiennement ET l'exécution de la même tâche par macro.

Sans parler du fait que dès fois un utilisateur peut oublier de fermer tous ses fichiers au quel cas le fichier non fermé est inexploitable par les autres utlisateurs.

Cordialement.


Bonjour Emilio,

Merci beaucoup.

C'est exactement ce que je cherchais!!

Il fait le job!

Bonne journée.

Bonjour Samoterell,

Ton sujet semple clos, s'il est vraiment peux-tu l'indiquer s'il te plait ?

MERCI BEAUCOUP

Yes Romain!

Un petit oubli.

Merci !!

Rechercher des sujets similaires à "ouvrir fermer automatiquement tous mes fichiers"