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