Microsoft 365 Macros bloquées (non actives) ???

[ManuXZ]

Bonjour,

(Env W10)

J'ai recopié depuis mon DD en local un fichier excel (crée l'an dernier sous office versions maj régulièrement) sur un nouveau fichier excel
(même emplacement, même environnement) )
mais lorsque j'ouvre ce dernier il m'affiche à l'ouverture un msg du genre:
" .macros désactivées.. / ...paramètres de sécurité...?.." donc impossible d'exécuter les macros ???!!!

je suis allé voir dans fichier/option/centre de confidentialité/paramètres macros/...
et "désactiver toutes les macros avec notification" est bien coché.
j'ai même essayé de cocher le : "Activer toutes les macros (non recommandé)" mais même problème !!!

J'ai cherché sur le Net et j'ai vu cette info:
".... c'est dû à la marque web du fichier " il faut faire (clic-D sur le fichier ss l'explorer)
et aller ds Propriétes/Onglet général/,
(ds Sécurité) et cocher la case "Débloquer"
mais mon pb c'est que je n'ai pas du tout cette case ...???
Quelle solution alors pour débloquer ce fichier (et ce pb suite à une simple recopie du fichier ) ???
Merci bcp pour votre aide. )

 

[ManuXZ]

Dsl, comme j'ai fais pas mal d'essai (je m'y perd un peu) ....je ne me souviens pas de tout !!!

J'ai bien évidemment supprimer les données , je l'ai mis sur :
https://www.cjoint.com/c/MIBjUavynE2

REm: et ds mon précédent msg , je parle d'installer Office 2013.(qui erait utilisé que pr Excel) tout en conservant Office 365 (pr les autres apps) cela peut-il fonctionner ?.. qu'en penses tu?

 

[Staple1600]

Re

J'ai répondu sur le fait d'installer un autre Office
Notamment sur la légalité de la chose (puisque tu parles d'une association)
(Il faut cliquer sur le bandeau bleu dans mon précédent message)

Je regarde ton fichier.

 

[Staple1600]

Re

Tu n'as que cela comme VBA dans ton classeur

Sub ListInscrits()
'
' ListInscrits Macro
'
' Touche de raccourci du clavier: Ctrl+t
'''

    Sheets("Filtre").Select
    Range("Base_adh_2022").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:V7"), CopyToRange:=Range("A10:aa10"), Unique:=False
    ActiveWorkbook.Worksheets("Filtre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Filtre").Sort.SortFields.Add Key:=Range("C11"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Filtre").Sort
        .SetRange Range("A10:aa252")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("ResulTri").Select
End Sub
Sub recherche_un_critere()
'
' recherche_un_critere Macro
' Recherche selon un ou plusieurs critères de la ligne 2
'
' Touche de raccourci du clavier: Ctrl+r
'
    Range("Base_adh_2022").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:x2"), CopyToRange:=Range("A8:K8"), Unique:=False
End Sub

C'est donc d'autant plus facile de le récréer

Mais à partir d'un classeur vierge et en copiant les données en valeurs seules
Ensuite, tu réinsères les formules utilisées manuellement

 

[ManuXZ]

Re

Tu n'as que cela comme VBA dans ton classeur

Sub ListInscrits()
'
' ListInscrits Macro
'
' Touche de raccourci du clavier: Ctrl+t
'''

    Sheets("Filtre").Select
    Range("Base_adh_2022").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:V7"), CopyToRange:=Range("A10:aa10"), Unique:=False
    ActiveWorkbook.Worksheets("Filtre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Filtre").Sort.SortFields.Add Key:=Range("C11"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Filtre").Sort
        .SetRange Range("A10:aa252")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("ResulTri").Select
End Sub
Sub recherche_un_critere()
'
' recherche_un_critere Macro
' Recherche selon un ou plusieurs critères de la ligne 2
'
' Touche de raccourci du clavier: Ctrl+r
'
    Range("Base_adh_2022").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:x2"), CopyToRange:=Range("A8:K8"), Unique:=False
End Sub

C'est donc d'autant plus facile de le récréer

Mais à partir d'un classeur vierge et en copiant les données en valeurs seules
Ensuite, tu réinsères les formules utilisées manuellement

Donc si je comprends bien, je crée une nouvelle enveloppe vierge(classeur) mais peux-tu me détailler la procédure pour récupérer tous les onglets en bas de mon classeur (il y en a pas mal) et
copier les données en valeurs seules ?

 

[Staple1600]

Re

Justement, non si ton fichier est "corrompu"

Il faut faire les choses manuellement

Ou avec l'aide d'une macro (que je suis en train d'écrire)

 

[Staple1600]

Re,

@ManuXZ
Donc à partir d'un classeur vierge (avec une seule feuille)
La macro ci-dessous crééra tes onglets avec les noms de ton fichier exemple

Sub CREER_FEUILLES()
Dim NOM_F, i%
NOM_F = _
    Array("Découvertes", "Rallye", "Sortie", "Liste activités", "Lst  Adh 2022", _
    "ResulTri", "NbInscrits", "Filtre", "Lst  Adh 2021", "Lst  Adh 2020", _
    "Lst  Adh 2019", "Lst  Adh 2018", "Recherche", "NI", "Lst  Adh 2017", _
    "List adh 2016", "LST adh 2015", "NA 2016")
    For i = LBound(NOM_F) To UBound(NOM_F)
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = NOM_F(i)
    Next
End Sub

NB: J'ai supprimé les espaces surnuméraires dans le nom des feuilles

Une fois les feuilles créées, si j'étais moi, je ferai un copié/collé manuel (en valeurs seules)
du contenu des feuilles du classeur source vers le nouveau classeur vierge

(On pourrait le faire en macro, mais c'est pour être sur d'avoir un nouveau classeur tout propre)

 

[ManuXZ]

Encore MERCI pour ton aide précieuse...:-0

je ferai l'essai cette sem voire sem prochaine, je te tiens au courant car avec les différentes pistes proposées, ce n'est pas tjrs évident de s'y retrouver...;-)
Bon Dimanche.

 

[Staple1600]

Re

La piste est pourtant simple
Tu dis qu'un seul et unique classeur refuse d'exécuter les macros

Mais que sur tous les autres, les macros fonctionnent.

Donc la solution est: On reconstruit le fichier à partir d'un classeur vide
(d'autant plus que le code VBA présent dans ton classeur est vraiment réduit)
Seulement deux procédures

 

[Staple1600]

Re

@ManuXZ Z
Ci-dessous la liste des noms de ton classeur, qu'il faudra recréer
On voit qu'un nom pointe sur G..gle Drive
Ne serait-ce pas là, la source du problème ?
Il se passe quoi si tu supprimes ce nom (sur une copie de ton classeur)
quand tu ouvres cette copie ?
Toujours le message d'erreur ?

ACTIVITES	='Liste activités'!$B$3:$F$37
Bacti	='Lst Adh 2022'!$Q$3:$V$288
Base_adh_2021	='Lst Adh 2021'!$A$2:$AA$270
Base_adh_2022	='Lst Adh 2022'!$A$3:$AA$301
Base_email	='E:\Google Drive Patrice\AVF\Adhérents\[Liste des cinq groupes adhérents.xlsx]Tout Travail'!$A$2:$F$250
code_activ	='Liste activités'!$B$3:$C$30
List_nom	='Lst Adh 2022'!$C$4:$C$308
LST_adh2022	='Lst Adh 2022'!$AA$4:$AA$288
nom_2021	='Lst Adh 2021'!$C$2:$C$271
nom_2022	='Lst Adh 2022'!$C$3:$C$302

 

[ManuXZ]

J'ai oublié de te demander si de ton côté tu avais aussi le message d'erreur ?
et sous quelle version Office 365? testes-tu ?

 

[Staple1600]

Re

@ManuXZ
je ne peux tester grand chose, vu que tes feuilles sont vides
(je parle de tes codes VBA)

Néanmoins, j'ai enregistrer sous -> type: *.xlsb

J'ai ajouté cette macro de test dans un module

Sub test()
MsgBox Application.UserName
End Sub

Et aucun souci, la macro s'exécute.

 

[Staple1600]

Re

@ManuXZ
Si je devais reconstruire un classeur, je m'aiderais aussi d'une macro de ce type
1) j'enregistre une copie du fichier "problématique" au format *.xlsx
2) A partir de mon classeur vierge, je lance la macro ci-dessous

Sub Exporter_Feuilles_EN_CSV()
Dim S_WBK As Workbook, WSH As Worksheet, CSV_WB As Workbook
    Set S_WBK = Workbooks.Open("C:\Users\STAPLE\Documents\fichier_TEST.xlsx")
'ici adapter le chemin vers la copie du fichier du point 1)
    sPath = S_WBK.Path & "\"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each WSH In S_WBK.Worksheets
        WSH.Copy
        Set CSV_WB = ActiveWorkbook
        CSV_WB.SaveAs Filename:=sPath & WSH.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
        CSV_WB.Close SaveChanges:=False
    Next WSH
S_WBK.Close SaveChanges:=False
End Sub

j'obtiens alors autant de fichiers CSV qu'il y a de feuilles dans la copie *.xlsx du classeur.

Ensuite, j'ouvre chaque CSV et je copie les données dans les feuilles correspondantes du classeur auquel j'ai ajouté les feuilles avec la macro du message#21
(CTRL+A puis CTRL+C puis CTRL+SHIFT+V (sur O 365 permet directement le collage en valeurs seules)

On peut aussi cogiter une macro pour importer les fichiers *.CSV dans les feuilles correspondantes
(en comparant le nom des onglets et le nom des fichiers CSV)

 

[Staple1600]

Re

@ManuXZ
Pour suivre mon idée
(j'ai adapté un code qui dormait dans archives)

Donc ici, on importe les fichiers CSV (en sélectionnant) directement dans un nouveau classeur
(sans avoir à se préoccuper du nom des feuilles)

Spoiler: cliquez pour voir le code VBA

Sub Importation_CSV()
Dim S_WBK As Workbook, WSH As Worksheet, N_WSH As Worksheet, CSV_WB As Workbook
Dim f_CSV As Variant, vArr As Variant, a, j&
Application.ScreenUpdating = False
'Sélection multiple des CSV
f_CSV = Application.GetOpenFilename(filefilter:="FICHIER CSV (*.csv*), *.csv*", MultiSelect:=True)
If IsEmpty(f_CSV) Then Exit Sub
'Boucle sur la selection de CSV
For j = LBound(f_CSV) To UBound(f_CSV)
nomFIC = f_CSV(j)
a = Split(nomFIC, "\")
nomCSV = a(UBound(a))
nomCSV = Replace(nomCSV, ".csv", "") 'suppression extension
'ouverture fichier CSV
Set CSV_WB = Workbooks.Open(nomFIC, Format:=2, Local:=True)
Set WSH = CSV_WB.Worksheets(1)
vArr = WSH.UsedRange 'données mises dans un Array
CSV_WB.Close (0) 'fermeture CSV
Set N_WSH = Sheets.Add(after:=Sheets(Sheets.Count)) 'ajout d'une feuille
ActiveSheet.Name = nomCSV 'nommage de la feuille
N_WSH.Cells(1).Resize(UBound(vArr, 1), UBound(vArr, 2)) = vArr
' "recopie" des données du CSV dans la nouvelle feuille
Next
End Sub

Test OK avec mes fichiers de test
(Un classeur avec 5 onglets)

Si on résume mon mode opératoire
1) On fait une copie du fichier "corrompu" en l'enregistrant au format *.xlsx
A partir d'un classeur vierge
2) On exporte ses feuilles grâce à la macro : Exporter_Feuilles_EN_CSV
3) On importe dans la foulée les fichiers CSV obtenus en 2)
4) On remets le code VBA (par copier/coller)
5) On enregistre ce nouveau classeur au format *.xlsm ou *.xlsb

Ensuite, il restera à remettre les formules et recréer les plages nommées.

Ce sera déjà un gain de temps par rapport au fait de devoir tout refaire manuellement.

Normalement, les macros sur ce nouveau classeur devraient fonctionner.

Si tel n'est pas le cas, c'est qu'il nous manque des informations si les conditions réelles de l'utilisation d'Excel et de ton classeur.