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.
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.
VB:
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