Boutons de contrôle ainsi que les deux modules de vba disparus Résolu/Fermé

Question

Bonjour, 

Je sollicite votre aide car je viens d'ouvrir un document qui a perdu toutes les macro que j'ai créer, j'ai inséré deux modules vba et je les ai lié à deux boutons de controles. Il ne sont plus sur ma feuille et quand je vais dans les macro, mes module ont disparus aussi.
J'ai aussi creer un bouton de control avec deux choix possible et impossible de cliquer dessus. J'utilise windows 365 avec excel 2010.

Merci pour votre aide 

Configuration: Windows / Chrome 85.0.4183.121

M-12 · Answer

Bonjour,
Je pense que tu as enregistré le fichier en XLSX qui ne prend pas en charge les macros,
alors, tu n'as plus qu'à refaire et enregistrer en XLSM (prenant en charge les macros)

Yoyo01000 · Answer

Bonjour,
les macros ont été enregistrées dans le fichier ou dans le classeur de macros personnelles ?

Pour le second cas, si tu ouvres ton fichier depuis un autre PC, il est normal que les macros ne soient plus là.

LinDouch42 · Answer

Bonjour,

Merci pour votre réponse mais comment savoir ou je les ai enregistré?

C'est un document que j'ai fermé plusieurs fois et à chaque réouverture je retrouvais bien mes boutons contrôles mais hier rien. 
Créer et ouvert sur mon pc actuellement mais c'est un document destiné à être installé sur un autre pc (une fois que j'aurais réglé ce problème).

Si je dois ressaisir mes vba et créer de nouveau les boutons contrôles c'est pas grave mais j'aimerais être certaine que je n'aurais pas à nouveau ce problème

Merci

LinDouch42 · Answer

Comment puis je le partager?

LinDouch42 · Answer

Merci 
https://www.cjoint.com/c/JJuksxj1Wcj

Si ca peut vous aider, ci-dessous les codes vba que j'ai utilisé

Code vba 1
"Sub NumeroFacture() 
'efface le contenu de la facture et met à jour le numéro de facture
Sheets(""Facture"").Range(""A17"").Select
        Range(Selection, Selection.End(xlDown)).ClearContents
Sheets(""Facture"").Range(""F17"").Select   Range(Selection, Selection.End(xlDown)).ClearContents
Sheets(""Facture"").Range(""E17"").Select
        Range(Selection, Selection.End(xlDown)).ClearContents
Sheets(""Facture"").Range(""C3:D3"").ClearContents
        
Sheets(""Facture"").Range(""E2"").Value = Sheets(""Facture"").Range(""E2"").Value + 1

End Sub"


Code vba 2
"Sub EnregistrementFacture() Dim NomDossier As String Dim Chemin As String *

 'Je nomme le dossier et donne le chemin de sauvegarde 

NomDossier = Application.InputBox(""ArchivageFactures:"", ""Année ?"") Chemin = ""C:C:\Users\linda\OneDrive\Documents\COLIS LOIRE EXPRESS\ArchivageFactures\"" & NomDossier & ""\"" 

If NomDossier = """" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _ Chemin & ""FactureNumero_"" & Range(""E2"").Value & "".pdf"", quality:= _ xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _ from:=1, to:=1, openafterpublish:=False

End Sub"


Merci

Yoyo01000 · Answer

Votre fichier est avec l'extension .xltm et perso j'ai jamais travaillé avec ce type de fichier.

Il existe des convertisseurs .xltm => .xlsm sur internet

à tester :

https://www.google.com/search?safe=strict&rlz=1C1GCEB_enFR836FR836&sxsrf=ALeKk02tAWgWWqa-kNeZ4cGU2AzTJoKlyw%3A1603194209224&ei=Yc2OX-CUDYHSkgWB152YAQ&q=convertisseur+.xltm+en+.xlsm&oq=convertisseur+.xltm+en+.xlsm&gs_lcp=CgZwc3ktYWIQAzIICCEQFhAdEB46BggAEAcQHjoICAAQCBAHEB46CggAEAgQBxAKEB46CAgAEAcQBRAeOggIABAHEB4QEzoECAAQEzoECAAQDToGCAAQDRAeOggIABANEAUQHjoFCCEQoAFQphtYzWFggmhoAHAAeACAAYcCiAHHHJIBBjAuMjAuM5gBAKABAaoBB2d3cy13aXrAAQE&sclient=psy-ab&ved=0ahUKEwigyeLqi8PsAhUBqaQKHYFrBxMQ4dUDCA0&uact=5

LinDouch42 · Answer

Merci, j'ai l'impression que les fichier en registrer Modèle Excel ne fonctionne pas avec les macro, j'ai donc enregistrer mon fichier sous un fichier lambda excel qui prend en charge les macros. et ca à l'air de fonctionner.

Merci a tous pour votre aide

Boutons de contrôle ainsi que les deux modules de vba disparus

7 réponses

Discussions similaires