chaelie2015
XLDnaute Accro
Bonjour Forum
Le code ci-dessous réalise les actions suivantes :
mon souci est lié aux actions suivantes après la création de la copie :
Merci
Le code ci-dessous réalise les actions suivantes :
- Il crée une copie du classeur actif avec un nom de fichier basé sur la valeur de la cellule M2 de la feuille "Récap".
- Il enregistre cette copie dans le répertoire actuel.
- Si un fichier existant porte le même nom, il demande à l'utilisateur s'il souhaite le remplacer.
VB:
Sub Enregistrer_Copie()
Dim nom$, fichier$
nom = "Evaluation CEO-" & Sheets("Récap").[M2] & ".xlsm"
fichier = ThisWorkbook.Path & "\" & nom
If Dir(fichier) <> "" Then If MsgBox("Le fichier EXCEL '" & nom & "' existe déjà. Voulez-vous le remplacer ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
ThisWorkbook.SaveCopyAs fichier
MsgBox "Un nouveau fichier EXCEL nommé " & vbCrLf & vbCrLf & nom & vbCrLf & vbCrLf & " a été enregistré dans le répertoire " & vbCrLf & vbCrLf & ThisWorkbook.Path & "."
End Submon souci est lié aux actions suivantes après la création de la copie :
- Afficher la copie du fichier créé.
- Fermer le fichier initial.
- Réinitialiser le fichier initial en appelant deux fonctions dans des modules "EffacerSoumissionnaires" et "EffacerMontantLots".
- Effacer trois cellules dans la feuille "BdD CEO" (D2, D4 et D5) et la cellule M2 de la feuille "Récap".
Merci