Discussion :

[maillardd]

Je voudrais dans une feuille Excel (crée dans l'application VB),
figer les volets sur une ligne bien précise.
J'ai utilisé Freezepanes mais surement mal car j'ai un message d'erreur.

Merci d'avance.

[bidou]

avec quel code ?

[maillardd]

Avec le code suivant:

.Rows(LigSaisie & ":" & LigSaisie).Select
ActiveWindow.FreezePanes = True

[bidou]

Ce doit être le ActiveWindow qui pose problème

[SfJ5Rpw8]

Avec le code suivant:

.Rows(LigSaisie & ":" & LigSaisie).Select
ActiveWindow.FreezePanes = True

c'est quoi le message d'erreur... ?

il y as bien un With... avant le .Rows ?

essai..

Code :

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

.Rows(LigSaisie & ":" & LigSaisie).Activate

[maillardd]

Pour être plus précis, l'application crée bien ma feuille excel la
première fois. Si je relance une seconde fois mon export Excel
, sans être sorti de l'appli au préalable, il me sort le message d'erreur
suivant:

"Variable objet ou variable bloc with non défini" sur la

ligne:

ActiveWindow.Freezepanes = True

Avec Activate à la place de Select dur la première ligne, le problème
est le même.

[SfJ5Rpw8]

montre nous les lignes d'avant le ".rows"....

[ouskel'n'or]

Si tu ne nous donnes pas plus de code, nous ne pourrons pas t'aider...
bbil a demandé :

c'est quoi le message d'erreur... ?
il y a bien un With... avant le .Rows ?

Ça est une double bonne question...

A+

[maillardd]

Voici le code en ne sélectionnant que les trucs importants:

Dim objExcel As New Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objSheet As Excel.Worksheet

Set objWorkBook = objExcel.Workbooks.Add
Set objSheet = objWorkBook.Worksheets.Add

With objSheet
.Range("C" & curline).Value = "Ligne"
.Range("D" & curline).Value = "Numéro d'OF"
.Range("E" & curline).Value = "Code produit"
.Range("F" & curline).Value = "Produit"
.Range("G" & curline).Value = "Date début"
.Range("H" & curline).Value = "Date Fin"
.Range("I" & curline).Value = "Temps ouverture production"

.Range(LigSaisie & ":" & LigSaisie).select
ActiveWindow.FreezePanes = True
LigSaisie = LigSaisie - 3
.Range("B" & LigSaisie).Select
End With

Set objSheet = Nothing
objWorkBook.Close True, ExpFile
Set objWorkBook = Nothing
objExcel.Quit
Set objExcel = Nothing

[bidou]

essayes avec

Code :

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

objExcel.Windows(1).FreezePanes = True

[maillardd]

Il me retourne

"Méthode ou membre de données introuvable" sur la ligne
en question

[bidou]

donc tu dois avoir une référence implicite planquée dans un coin.
Je crois qu'il va falloir mettre tout le code

[SfJ5Rpw8]

et avec :

Code :

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

1
2
.Range(LigSaisie & ":" & LigSaisie).Activate
objExcel.ActiveWindow.FreezePanes = True