Application macro a plusieurs fichier Excel

Bonjour à tous,

J'aurai voulu savoir si il était possible d'appliquer une macro sur des fichiers excel fermés.

Je m'explique:

j'ai des fichiers excel qui contiennent dans la première cellule (A1) le numéro de version du document (Version 1.2.3).

Maintenant que je vais faire une nouvelle version bien plus performante (refonte totale avec sécurité anti modification des ancienne version) j'aurai voulu que dès que j'ouvre la nouvelle version il scanne les autres fichiers et si il trouve le numéro de version (inférieur a dernier) il verrouille la modification. Pour ce faire j'aimerai éviter de faire un batch mais si j'ai pas le choix c'est pas grave.

J'ai appliqué une macro qui génère un fichier excel dans un dossier, la nouvelle version s'appelle "moulinettev1.9.xlsm" et version précédente "moulinettev1.8_old.xlsm" a chaque démarrage du fichier il fait la vérification si le nom de la moulinette existe avec old si c'est le cas il verrouille le fichier pour la modification.

Merci à tous

Bonjour,

Oui c'est possible.

Code :

Set wbk = Workbooks.Open("C:\cheminDufichier.xlsx") 'ouverture du fichier
wbk.Sheets(1).Range("A1").Select 'Example de manupilation du fichier
wbk.Close 'On ferme le fichier à la fin

vince1512 a écrit :

Bonjour,

Oui c'est possible.

Code :

Set wbk = Workbooks.Open("C:\cheminDufichier.xlsx") 'ouverture du fichier
wbk.Sheets(1).Range("A1").Select 'Example de manupilation du fichier
wbk.Close 'On ferme le fichier à la fin

Bonjour vince1512 cette méthode fonctionne quand on sait ou sont les fichiers excel et quand on connait leurs noms aussi.

Mais quand on ne sait rien est-ce qu'on peut lui dire de vérifier si il y a dans la première cellule le mot "version" et que si il le trouve on verrouille?

Je répondais simplement à ça question.

J'aurai voulu savoir si il était possible d'appliquer une macro sur des fichiers excel fermés.

Cependant j'ai cru comprendre qu'il connaissait le dossier cible.

J'ai appliqué une macro qui génère un fichier excel dans un dossier

D'ailleurs il est possible de comparer la valeur de la cellule "version" avec la fonction StrComp.

Cordialement

vince1512 a écrit :

Je répondais simplement à ça question.

J'aurai voulu savoir si il était possible d'appliquer une macro sur des fichiers excel fermés.

Cependant j'ai cru comprendre qu'il connaissait le dossier cible.

J'ai appliqué une macro qui génère un fichier excel dans un dossier

D'ailleurs il est possible de comparer la valeur de la cellule "version" avec la fonction StrComp.

Cordialement

Re-bonjour, voila ce que je fais pour tester. Ca fonctionne mais que si je mets le nom d'un fichier en particulier.

J'aimerai faire la même chose en mettant a la place d'un fichier en particulier mettre tous les fichiers .xlsm de l'ordinateur.

Sub Macro6()
'
' Macro6 Macro
'

'
    Workbooks.Open Filename:= _
        "C:\Users\ncaisson\Desktop\testmoul\Moulinette v1.9.4.xlsm"
        If Worksheets("Détail de la vente").Range("A1").Value <> "Version 1.9.4" Then

            Worksheets("Détail de la vente").Unprotect "SMG@moulinette18"
            Worksheets("Détail de la vente").Range("A1:K102").Locked = True
            Worksheets("Détail de la vente").Protect "SMG@moulinette18"

            Worksheets("Detail").Unprotect "SMG@moulinette18"
            Worksheets("Detail").Range("A1:K51").Locked = True
            Worksheets("Detail").Protect "SMG@moulinette18"

            Worksheets("TPS HORS LABO+TPS COULEUR").Unprotect "SMG@moulinette18"
            Worksheets("TPS HORS LABO+TPS COULEUR").Range("A1:J66").Locked = True
            Worksheets("TPS HORS LABO+TPS COULEUR").Protect "SMG@moulinette18"

            Worksheets("TPS LABO").Unprotect "SMG@moulinette18"
            Worksheets("TPS LABO").Range("A1:E24").Locked = True
            Worksheets("TPS LABO").Protect "SMG@moulinette18"

            Worksheets("TPS GENERAL").Unprotect "SMG@moulinette18"
            Worksheets("TPS GENERAL").Range("A1:F18").Locked = True
            Worksheets("TPS GENERAL").Protect "SMG@moulinette18"

            ActiveWorkbook.Save
        End If
        ActiveWindow.Close
End Sub

et bien sure tout ca sans que l'utilisateur ne le voit bien entendu...