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.
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.
avec quel code ?
Avec le code suivant:
.Rows(LigSaisie & ":" & LigSaisie).Select
ActiveWindow.FreezePanes = True
Ce doit être le ActiveWindow qui pose problème
c'est quoi le message d'erreur... ?Envoyé par maillardd
il y as bien un With... avant le .Rows ?
essai..
Code : Sélectionner tout - Visualiser dans une fenêtre à part .Rows(LigSaisie & ":" & LigSaisie).Activate
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.
montre nous les lignes d'avant le ".rows"....
Si tu ne nous donnes pas plus de code, nous ne pourrons pas t'aider...
bbil a demandé :
Ça est une double bonne question...c'est quoi le message d'erreur... ?
il y a bien un With... avant le .Rows ?
A+
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
essayes avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part objExcel.Windows(1).FreezePanes = True
Il me retourne
"Méthode ou membre de données introuvable" sur la ligne
en question
donc tu dois avoir une référence implicite planquée dans un coin.
Je crois qu'il va falloir mettre tout le code
et avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 .Range(LigSaisie & ":" & LigSaisie).Activate objExcel.ActiveWindow.FreezePanes = True
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager