J
jper
Guest
Bonjour,
J'ai besoin de copier les lignes d'un fichier, et j'ai le message d'erreur suivant Sub ou Fonction non définie.
Voici le code que j'utilise
RepCaisse = Variable définie plus haut (c'est le répertoire ou se trouve le fichier)
FicCaisse = Variable définie plus haut (c'est le nom du fichier)
Workbooks.Open Filename:=RepCaisse & "\" & FicCaisse
NoLign = 2
NbLigCaisse = Cells.SpecialCells(xlCellTypeLastCell).Row
Windows(FicResultatI).Activate
Row(NoLign & ":" & NbLigCaisse).Select
si je remplace Row(NoLign & ":" & NbLigCaisse).Select par row("2:3551").select cela fonctionne
je n’arrive pas à comprendre
D'avance merci,
Jean-François
J'ai besoin de copier les lignes d'un fichier, et j'ai le message d'erreur suivant Sub ou Fonction non définie.
Voici le code que j'utilise
RepCaisse = Variable définie plus haut (c'est le répertoire ou se trouve le fichier)
FicCaisse = Variable définie plus haut (c'est le nom du fichier)
Workbooks.Open Filename:=RepCaisse & "\" & FicCaisse
NoLign = 2
NbLigCaisse = Cells.SpecialCells(xlCellTypeLastCell).Row
Windows(FicResultatI).Activate
Row(NoLign & ":" & NbLigCaisse).Select
si je remplace Row(NoLign & ":" & NbLigCaisse).Select par row("2:3551").select cela fonctionne
je n’arrive pas à comprendre
D'avance merci,
Jean-François