Discussion :

[acathla]

Bonsoir à tous,

J'ai un soucis avec un fichier que j'ai développé dans le cadre de mon travail : ce fichier possède tout un tas de macro pour s'adapter à mes besoins et a toujours hyper bien fonctionné sous mon ancien PC sous windows 10.
Je viens de passer à Windows 11 et mnt je fichier fonctionne bien, les macro fonctionnent également MAIS si je veux ROUVRIR le fichier, j'ai le message d'erreur suivant :


Une fois le fichier récupéré sans encombre, j'obtiens la fenêtre suivante :


En cliquant sur le fichier LOG j'ai le détail suivant :

<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
<logFileName>error243840_01.xml</logFileName>
<summary>Des erreurs ont été détectées dans le fichier « C:\C4S_Checksheets\999999__Metro_PSM+HFL_8000005445.xlsm »</summary>
<repairedRecords>
<repairedRecord>Enregistrements réparés: Référence de formule externe dans la partie /xl/connections.xml (Connexion de données)</repairedRecord>
</repairedRecords>
</recoveryLog>

Est-ce que vous pouvez m'expliquer ce que ca veux dire tout ca ?
Pourquoi ca me fait ce soucis sur Windows 11 alors qu'aucun problème sur le vieux PC sous Windows 10 (j'ai retesté avant de vous écrire en plus ....)

Merci pour votre aide.

++

[acathla]

Bonjour,

Bonne année à tous et plein de bonnes choses !!!!

Est-ce que quelqu'un a une idée à ce sujet à tout hasard ?? :-/

Merci d'avance.

++

[benoitKasperski]

Bonjour,

J'ai récemment rencontré le même problème et trouvé une solution. L'erreur était liée à une connexion établie dans l'une de mes macros VBA.

Si tu repères quelque chose du style ".QueryTables.Add(Connection:=" dans ton code VBA, c'est probablement là que se situe le problème.

Dans mon cas, j'utilisais cette connexion pour récupérer des données, mais je ne la supprimais pas par la suite. Lors de la mise à jour vers Windows 11, il semble y avoir un renforcement de la sécurité, ce qui provoque cette erreur.

Pour résoudre ce problème, il suffit d'ajouter ".Delete" à la fin du bloc de code. Voici un exemple de code qui pourrait t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
' Ton code précédent...
 
' Configuration de la QueryTable
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & cheminFichierCSV, Destination:=Range("$A$1"))
    ' Reste du code pour configurer la QueryTable
 
    ' Supprimer la connexion de données externe après la configuration
    .Delete
End With
 
' Ton code suivant...