DEMARRAGE MACRO Résolu/Fermé

Question

Bonjour, 
J'ai créé une macro qui est sensée démarrer avec un "Bouton1_Cliquer" mais il y a comme un léger "soubresaut" et le fichier se ferme sans afficher, entre autres,  aucune boîte de dialogue.
J'ai recommencé en exécutant directement la macro à partir de son nom dans la liste des macros.
J'ai une information de bug sur le titre de la macro.
Pour information, j'ai déplacé cette procédure avec d'autres du Module2 au Module1
et j'ai supprimé le Module2.
Merci pour votre aide
Cordialement
Configuration: Windows 7 / Mozilla 11.0

michel_m · Answer

Bonjour

Si tu nous dit pas quel est le bug, on ne pourra rien faire....

zikey · Answer

Merci de réagir si rapidement
Je suis un autodidacte en VBA et je ne connais pas tous les termes "techniques".
Ce que j'appelle dans ce cas est que le titre de la macro apparaît surligné en jaune.
Cordialement

Le Pingou · Answer

Bonjour,
Contrôler si vous n'avez pas 2 fois le même titre de macro ..... !
A défaut, mettre votre fichier sur  https://www.cjoint.com/ et poster le lien .
Salutations.
Le Pingou

zikey · Answer

Bonsoir,
J'ai mis un moment pour trouver la faille !
En effet avec ma macro je crée un nouveau fichier avec un nom différent:
"ActiveWorkbook SaveAs..."
Mais en définitif j'enregistre aussi la macro donc il y a carambolage!
IL faut que je revienne en arrière car en définitif je ne veux que recopier une page dans un nouveau fichier et renommer ce dernier.
Merci si vous avez une petite idée
Cordialement

Le Pingou · Answer

Bonjour,
Copier une feuille vers un nouveau classeur le nommer et enregistre sans les macros.
Les 2 lignes de code à insérer dans votre procédure à l'endroit adéquat:
Sheets("nom feuille à copier").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\PJP\Documents
on du nouveau classeur.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

zikey · Answer

Bonjour et Merci
Je vais essayer d'être plus précis.
J'active la feuille "Saisir les Présences" du fichier "Bénéficiaires hiver 15-16" que je souhaite copier dans un nouveau fichier dont le nom est créé à partir d'éléments récupérés dans la feuille "Saisir les Présences".
Le dossier "C:\Présences hiver 15-16" est créé à l'avance.
Voici un extrait de ma procédure avec laquelle je me retrouve avec un fichier "Sxx Saisie des Présences." identique au fichier "Bénéficiaires hiver 15-16" et donc avec les macros précédemment créées.

En écrivant ce message je me pose la question de savoir si j'enregistre le fichier avec l'extension "xls" je ne règle pas mon problème surtout que cela peut me m'intéresser d'avoir le fichier complet car c'est une archive.


'11)    Création du fichier "Sxx Saisie des Présences.xlsm".
'           Enregistrement et fermeture de ce fichier dans le dossier "Présences hiver 15-16".

                    Sheets("Saisir les Présences").Activate
                    ActiveSheet.Unprotect "sotser"
                    Dim Espace1 As String
                    Dim Semaine1 As String
                    Dim Chemin1 As String
                    Dim NomFichier1 As String
                    Espace1 = " "
                    NomFichier1 = "Saisie des Présences"
                    Semaine1 = Range("U5").Value
                    Semaine1 = Right("S" + Semaine1, 3)
                    Chemin1 = "C:\Présences hiver 15-16\"
                    ActiveWorkbook.SaveAs Chemin1 + Espace1 + Semaine1 + Espace1 + NomFichier1
                    Sheets("Saisir les Présences").Select
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, Scenarios:=True
                    ActiveWorkbook.UpdateRemoteReferences = True
                    Range("J9").Activate
                    ActiveWorkbook.Save

Cordialement

Le Pingou · Answer

Bonjour,
Eh bien je ne vois pas la modification que je vous ai proposée... !

zikey · Answer

En effet, j'ai inclus une ligne supplémentaire dans l'extrait ci-dessus juste après le déverrouillage de la feuille "Saisir les Présences", à savoir:

"ActiveSheet.Copy"

Cela fonctionne
Encore Merci
Cordialement
Je clos la discussion