Bureautique: Excel 2016 Macro

Postez ici vos questions de niveau intermédiaire (p. ex. fonctions simples ou avec arguments, gestion des données, mise en forme conditionnelle, etc.)
Morishige
Messages : 1
Inscription : Lun Oct 22, 2018 12:04 pm

Bureautique: Excel 2016 Macro

Message par Morishige » Lun Oct 22, 2018 12:08 pm

Bonjour, Je m'appelle Morishige J'aurais besoin d'un coup de main pour créer une

macro
excel utile à mon travail.

Voilà, actuellement je travail avec excel 2016, et avec mon projet actuellement
je travail avec 5 classeurs excel identique sur tout les aspects sauf dans le nom.

Le problème, est que pour des raisons d'utilité et d'efficacité
je vais devoir augmenter le nombre des classeurs de 50 chaque semaine pour

éviter
d'avoir des classeurs trop lourds , vue je vais mettre à jour les données en y

ajoutant
des nouvelles données.

Pour l'instant la macro que j'utilise me convient , mais comme je vais faire avec

plusieurs classeurs excel (exemple:189)?! :??:

C'est pour ça que je suis tombé sur votre forum à la recherche d'aide

Voici la macro en question et le lien des mes classeurs :
https://www.cjoint.com/c/HJwkzx4yCqJ
____________________________________________________

Sub OuvrirProva1()

ActiveWorkbook.FollowHyperlink "C:\Users\Oap\Desktop\Japan\Kanagawa\A.xlsx"
Application.Run "PourCosa"
If Workbooks("A").Saved = False Then
Workbooks("A").Save
End If
Application.DisplayAlerts = False
Workbooks("A").Close

End Sub
________________________
Sub OuvrirProva2()

ActiveWorkbook.FollowHyperlink "C:\Users\Oap\Desktop\Japan\Kanagawa\B.xlsx"
Application.Run "PourCosa"
If Workbooks("B").Saved = False Then
Workbooks("B").Save
End If
Application.DisplayAlerts = False
Workbooks("B").Close

End Sub
________________________
Sub OuvrirProva3()

ActiveWorkbook.FollowHyperlink "C:\Users\Oap\Desktop\Japan\Kanagawa\C.xlsx"
Application.Run "PourCosa"
If Workbooks("C").Saved = False Then
Workbooks("C").Save
End If
Application.DisplayAlerts = False
Workbooks("C").Close

End Sub
________________________
Sub OuvrirProva4()

ActiveWorkbook.FollowHyperlink "C:\Users\Oap\Desktop\Japan\Kanagawa\D.xlsx"
Application.Run "PourCosa"
If Workbooks("D").Saved = False Then
Workbooks("D").Save
End If
Application.DisplayAlerts = False
Workbooks("D").Close

End Sub
________________________
Sub OuvrirProva5()

ActiveWorkbook.FollowHyperlink "C:\Users\Oap\Desktop\Japan\Kanagawa\E.xlsx"
Application.Run "PourCosa"
If Workbooks("E").Saved = False Then
Workbooks("E").Save
End If
Application.DisplayAlerts = False
Workbooks("E").Close

End Sub
________________________

Sub OuvirABCDE()
'
' OuvrirABCDE Macro
'

'
Application.Run "PERSONAL.XLSB!OuvrirProva1"
Application.Run "PERSONAL.XLSB!OuvrirProva2"
Application.Run "PERSONAL.XLSB!OuvrirProva3"
Application.Run "PERSONAL.XLSB!OuvrirProva4"
Application.Run "PERSONAL.XLSB!OuvrirProva5"
End Sub

S'il vous plaît aidez-moi!
PS: désolé pour l'écriture dans mon message, je ne maîtrise pas bien le français,
car je suis Italo-Japonais

Répondre