Discussion :

[ricil78]

Bonjour,

Je dois traiter un fichier excel qui contient des protections.
Si je tente de lire directement j'obtiens des valeurs incohérentes
Si je déprotège à la main je récupère les bonnes valeurs

Je n'arrive pas à déprotéger correctement la feuille via le code car j'ai toujours une valeur incohérente dans la variable val.

Code :

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

1
2
3
 Dim Feuille As Worksheet = objWorkbook.Worksheets.Item("F1")
 Feuille.Unprotect("PWD")
 Dim val = Feuille.Range("A1").Value

Une soluce ou une idée ?

ps : Office 2010

[BM42]

Bonjour,

Si "PWD" est le nom de ta feuille
Essai plutôt avec

Feuille.Unprotect()

ou

Feuille.Unprotect(1)

Si ta feuille est la première de ton classeur.
verifier si les cellules en question ne sont pas elles aussi protégées

A+

[ricil78]

PWD => était le mot de pass

j'ai tenté avec Feuille(1).Unprotect("MonPassword") mais ça change rien au problème

j'ai tenté ça, idem ça change rien, pas d'erreur mais la lecture renvoie toujours

Code :

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

1
2
3
4
5
6
7
 
For Each Feuille As Worksheet In objWorkbook.Worksheets
    With Feuille
        .Unprotect(PWD_Feuille)
        .Cells.Locked = False
    End With
Next

Pour rappel :
une donnée incohérente (ex: -12316431 au lieu de "Toto")
Si je déprotège à la main je récup bien "Toto"

[BM42]

Bonjour,

La protection se trouve à quel niveau, Classeur, feuille ou cellule.
Dans certaines version d'Excel elle peu même être multiple (cellules et feuille).
Le problème du résultat incohérent peu venir du "formatage" de la cellule (ex. une date qui devient un nombre).

A+

Bernard

[ricil78]

la valeur c'est du texte et si c'était un problème de formatage j'aurais aussi le pb sans la protection hors ce n'est pas le cas. De plus j'ai vérifié il n'y a pas de format appliquer dessus.

Et le client ne sait plus s'il a fait une action particulière pour protéger les feuilles !

Edit
la valeur retourné est toujours : -214682625900

[BM42]

Bon il faut que je trouve un moment pour faire un essai.
En attendant, voici un bout de code issu d'un de mes programmes.
Dans mon cas, j'importe des données d'un programme vers Excel pour créer une fiche technique. J'ais rajouté le dévérouillage de la feuille.

Programme en VB2005 et fichier en Excel 2000

J'espère que cela pourras 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub CalCone1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExcelCone1.Click
 
        Dim Xlsapp As Excel.Application
        Dim XlsBook As Excel.Workbook
        Dim Xlsheet As Excel.Worksheet
 
        Xlsapp = New Excel.Application
        XlsBook = Xlsapp.Workbooks.Open(Application.StartupPath & "\Matrice\Dev-Cone1.xls")
        Xlsheet = XlsBook.Worksheets(1)
        Xlsheet.Unprotect()
 
        Xlsheet.Cells(5, 4) = Val(TextBox1.Text)
        Xlsheet.Cells(6, 4) = Val(TextBox2.Text)
        Xlsheet.Cells(7, 4) = Val(TextBox3.Text)
        Xlsheet.Cells(8, 4) = Val(TextBox4.Text)
        Xlsheet.Cells(9, 4) = Val(TextBox5.Text)
 
        Xlsheet.Cells(12, 4) = TextBox6.Text
        Xlsheet.Cells(13, 4) = TextBox7.Text
 
        .........................
 
        Xlsapp.Visible = True
 
        MsgBox("Fin de l'import Excel" & Chr(13) & "Valider pour terminer", MsgBoxStyle.Exclamation, "Export Excel")
 
        Xlsapp.Quit()
        Xlsapp = Nothing
        XlsBook = Nothing
        Xlsapp = Nothing
 
    End Sub

A+

[ricil78]

Merci de ton aide
sauf erreur de ma part j'vois pas de différence avec ce que je fais déjà :
(sauf que toi tu accèdes à la page par l'index (que j'ai aussi tester mais sans succès))

Code :

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

1
2
3
 Dim Feuille As Worksheet = objWorkbook.Worksheets.Item("F1")
 Feuille.Unprotect("PWD")
 Dim val = Feuille.Range("A1").Value  'val contient -12316431 au lieu de "Toto" au lieu de "Toto"

[BM42]

Voici un essai qui marche
Sur une form je place 1 textbox et un bouton pour l'import

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Xlsapp As Excel.Application
        Dim XlsBook As Excel.Workbook
        Dim Xlsheet As Excel.Worksheet
        Dim Val1 As String
 
        Xlsapp = New Excel.Application
        XlsBook = Xlsapp.Workbooks.Open(Application.StartupPath & "\Matrice\Essai.xls")
        Xlsheet = XlsBook.Worksheets(1)
        Xlsheet.Unprotect("PWD")
 
        Val1 = Xlsheet.Range("A1").Value
        TextBox1.Text = Val1
 
        Xlsapp.Visible = True
 
        Xlsapp.Quit()
        Xlsapp = Nothing
        XlsBook = Nothing
        Xlsapp = Nothing
 
    End Sub
End Class

A+

[ricil78]

sans méchanceté aucune : je comprend pas ton message !

car dans mon cas le Val1 aura quand même une valeur -12316431 au lieu de "Toto" !!

Code :

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

Val1 = Xlsheet.Range("A1").Value

[BM42]

Dans mon cas tout marche correctement, je récupère bien le contenu de la cellule, que ce soit du texte ou des nombres.

As-tu essayé avec un autre fichier Excel pour vérifier si ton code marche ?

[ricil78]

Oui et c'est là que se trouve mon problème
Si je prend le même fichier excel et que je fait moi même les protections à la main mon code fonctionne très bien.
Si je traite directement un de ces fichiers excel ça marche pas !

Donc le client à du faire une manip que je dois absolument trouvé. mais pour arranger le truc, il ne se rappel plus laquelle !
il y a des centaines de fichier excel à traiter, perso je me vois mal les faire un par un.

[BM42]

Je n’ais plus vb sous la main donc pas de test possible.

Cependant, quelques idées en vrac :

-Essai de créer un fichier excel de toute pièce pour vérifier ton code.
-Vérifie si le mot de passe ne comporte pas de caractères spéciaux qui pourrait bloquer VB du style ‘ % & ….
-Vérifie si ton mot de passe dans VB est identique à celui d’excel, notamment pour les majuscules et les minuscules

Bon je sais, c’est un peut bateau comme réponse, mais il y a peu je me suis énervé avec un prog qui plantait à cause d’une erreur de frappe sur un chemin de fichier, la plaisanterie ma fais perdre 2H et ma coûté une surdose de caféine.

[ricil78]

Je compatis !

sinon pour mon malheurs, j'ai déjà testé tout ça (avant de poster) et ça fonctionne à chaque fois.
c'est bien ça qui me rend fou !
Je sais vraiment pas ce qu'il a pu faire avec son fichier pour que ça bloque comme ça !!

[BM42]

La, j’avoue que je sèche …
Autre hypothèse, les fichiers ont-ils été créés avec la même version d’Excel que tu utilise ?
La valeur retournée me fait penser à un code d’erreur. As-tu essayé de la gérée en exception ?