XL 2016 lancement de macro sans ouvrir le fichier

[ROI1482]

Bonjour,
J'ai enregistré une macro nommé HAUTEUR dans le fichier personnal.xlsb.
J'ai 800 fichiers dont le nom est P***.xlsx dans le répertoire P:\100\stock\P****.xls
Actuellement j'ouvre un fichier, exécute la macro enregistre puis ouvre le suivant etc.... et je ne suis pas arrivé au 800 éme
Serait-il possible d'exécuter la macro sans avoie à ouvrir individuellement les fichiers.

 

[sylvanu]

Bonjour Roi,
Tout dépend de la macro.
Mais vous pouvez automatiser. si les 800 fichiers sont au même endroit vous pouvez facilement faire une boucle, et parcourir chaque fichier.
Donnez nous au moins la macro utilisée pour en savoir plus.

 

[ROI1482]

Bonjour Roi,
Tout dépend de la macro.
Mais vous pouvez automatiser. si les 800 fichiers sont au même endroit vous pouvez facilement faire une boucle, et parcourir chaque fichier.
Donnez nous au moins la macro utilisée pour en savoir plus.

 

[ROI1482]

Ci-joint macro juste pour une mise en forme

 

[cathodique]

Bonjour,
J'ai enregistré une macro nommé HAUTEUR dans le fichier personnal.xlsb.
J'ai 800 fichiers dont le nom est P***.xlsx dans le répertoire P:\100\stock\P****.xls
Actuellement j'ouvre un fichier, exécute la macro enregistre puis ouvre le suivant etc.... et je ne suis pas arrivé au 800 éme
Serait-il possible d'exécuter la macro sans avoie à ouvrir individuellement les fichiers.

Bonjour,

Pas testé.

Option Explicit

Sub Essai()
    Dim Chemin As String
    Dim Fichier As String
    Dim wb As Workbook

    Chemin = "P:\100\stock\"

    Fichier = Dir(Chemin & "P*.xlsx")
    Do While Fichier <> ""
        Set wb = Workbooks.Open(Chemin & Fichier)
        Application.Run "personnal.xlsb!Hauteur"
        wb.Close SaveChanges:=True
        Fichier = Dir
    Loop
MsgBox "Traitement terminé!", vbInformation + vbOKOnly, "SUCCES"
End Sub

edit: @sylvanu, @ROI1482 , pas vu. Bonjour

 

[ROI1482]

Bonjour,

Pas testé.

Option Explicit

Sub Essai()
    Dim Chemin As String
    Dim Fichier As String
    Dim wb As Workbook

    Chemin = "P:\100\stock\"

    Fichier = Dir(Chemin & "P*.xlsx")
    Do While Fichier <> ""
        Set wb = Workbooks.Open(Chemin & Fichier)
        Application.Run "personnal.xlsb!Hauteur"
        wb.Close SaveChanges:=True
        Fichier = Dir
    Loop
MsgBox "Traitement terminé!", vbInformation + vbOKOnly, "SUCCES"
End Sub

edit: @sylvanu, @ROI1482 , pas vu. Bonjour

Un grand merci Sylvanu, un peu long, l'ai laissé tourner en tâche de fond et tout est à jour.
Bonne journée