XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range

[Tom_des]

Bonjour,

J'ai une erreur de type 1004 dès l'utilisation de la propriété hidden.

Cela ne semble pas être une erreur de protection de feuille (en vérifiant suite à la lecture de plusieurs forums).
Je ne comprends donc pas d'où sort ce problème.

Je vous ai mis qu'un extrait du code, dites moi si vous avez besoin de plus pour mieux comprendre l'erreur.

En espérant que vous pourrez m'aider.

For i = 8 To lastRow
    
        ' Construire le nom du dossier
        folderName = ws.Cells(i, 3).Value & "_" & ws.Cells(i, 4).Value & "_" & ws.Cells(i, 5).Value
        folderPath = "A:\" & folderName
        
        ' Vérifier si le dossier existe
        If Dir(folderPath, vbDirectory) <> "" Then
            
            ' Assumer que le fichier Excel a le même nom que le dossier
            fileName = folderName & ".xlsm"
            filePath = folderPath & "\" & fileName
            
            ' Vérifier si le fichier Excel existe
            If Dir(filePath) <> "" Then
                
                ' Ouvrir le fichier Excel sans alertes
                Set wbOpened = Workbooks.Open(filePath, UpdateLinks:=3)
                
                ' Ouvrir la feuille "EAC_Forecast"
                With wbOpened.Sheets(1)
                    
                    ' Masquer toutes les lignes et colonnes
                    .Cells.EntireRow.Hidden = True
                    .Cells.EntireColumn.Hidden = True
                    
                    ' Afficher toutes les lignes et colonnes
                    .Cells.EntireRow.Hidden = False
                    .Cells.EntireColumn.Hidden = False
                    
                    ' Chercher la valeur dans la ligne 9
                    Set foundCell = .Rows(9).Find(What:=targetValue, LookIn:=xlValues, LookAt:=xlWhole)
                    
                    If Not foundCell Is Nothing Then
                        ' Importer la valeur trouvée dans la colonne AK de la feuille active
                        ws.Cells(i, 37).Value = .Cells(13, foundCell.Column).Value
                    End If
                End With

 

[Oneida]

Bonjour,

Chez moi, pas d'erreur.
Pourquoi masquer des lignes/colonnes pour des afficher ensuite?

 

[Tom_des]

Bonjour,

Chez moi, pas d'erreur.
Pourquoi masquer des lignes/colonnes pour des afficher ensuite?

Bonjour,

Dans d'anciens programmes l'affichage ne fonctionnait pas (il ne se produisait aucun changement sur la feuille), donc j'ai testé de tout cacher puis de tout afficher et là c'était bon.
J'ai depuis gardé cette habitude ....

Si tout fonctionne chez vous, de quoi peut venir l'erreur si ce n'est pas du programme ?

 

[Phil69970]

Bonjour à tous

@Tom_des

J'ai pas vu ton fichier