While_Excel_RangeRead($oXl,Default,"A"&$NL)<>""And_Excel_RangeRead($oXl,Default,"B"&$NL)<>"" if_Excel_RangeRead($oXl,Default,"F"&$NL)>=$DateJourthen; si date creation (col 6) sup à date jour, on remplit TABLEAU $i+=1 $Tab[$i][0]=StringStripWS($oXl.ActiveSheet.Range("A"&$NL).value,3) $Tab[$i][1]=StringStripWS($oXl.ActiveSheet.Range("B"&$NL).value,3) $Tab[$i][2]=$oXl.ActiveSheet.Range("C"&$NL).value $Tab[$i][3]=$oXl.ActiveSheet.Range("D"&$NL).value $Tab[$i][4]=$oXl.ActiveSheet.Range("E"&$NL).value $Tab[$i][5]=$oXl.ActiveSheet.Range("F"&$NL).value $Tab[$i][6]=$oXl.ActiveSheet.Range("G"&$NL).value EndIf _Excel_RangeDelete($oXL.ActiveSheet,'"'&$NL&":"&$NL&'"',$xlShiftUp); on supprime la ligne $NL+=1 WEnd $NbConc=$i+1 redim$Tab[$NbConc][7] _ArrayDisplay($Tab,$i+1)
;$oXL.DisplayAlerts = False ; evite la question -fichier existe dejà ? $oXL.ActiveWorkbook.Save($oXL) _Excel_BookClose($oXL); Fermeture excel Exit; A la fin, je dois avoir un TAB qui contient 3 lignes et un fichier qui n'a que l'entête (5 lignes)
Je lis un fichier EXCEL (Mis en PJ)
Première erreur : je n'arrive pas à lire les cellules A6 et B6 ?
Seconde erreur : Ma boucle While ne fonctionne pas
Je pense que mon souci vient de _Excel_RangeRead mais je ne comprends pas pourquoi...
A la fin, je dois avoir un $TAB qui doit contenir 3 lignes dont la date est supérieure à celle du jour et un fichier qui ne contient que les 5 lignes d'entête.
Un coup de main, SVP...Merci
While_Excel_RangeRead($oBook,Default,"A"&$NL)<>""And_Excel_RangeRead($oBook,Default,"B"&$NL)<>"" if_Excel_RangeRead($oBook,Default,"F"&$NL)>=$DateJourthen; si date creation (col 6) sup à date jour, on remplit TABLEAU $i+=1 $Tab[$i][0]=StringStripWS($oXL.ActiveSheet.Range("A"&$NL).value,3) $Tab[$i][1]=StringStripWS($oXL.ActiveSheet.Range("B"&$NL).value,3) $Tab[$i][2]=$oXL.ActiveSheet.Range("C"&$NL).value $Tab[$i][3]=$oXL.ActiveSheet.Range("D"&$NL).value $Tab[$i][4]=$oXL.ActiveSheet.Range("E"&$NL).value $Tab[$i][5]=$oXL.ActiveSheet.Range("F"&$NL).value $Tab[$i][6]=$oXL.ActiveSheet.Range("G"&$NL).value EndIf _Excel_RangeDelete($oXL.ActiveSheet,"A"&$NL,Default,1); on supprime la ligne
;$oXL.DisplayAlerts = False ; evite la question -fichier existe dejà ? $oXL.ActiveWorkbook.Save _Excel_Close($oXL); Fermeture excel Exit; A la fin, je dois avoir un TAB qui contient 3 lignes et un fichier qui n'a que l'entête (5 lignes)
J'ai réglé le problème du fonctionnement sans m'occuper de la logique (le code est lent !)
Cordialement,
Walkson "Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Merci d'avoir pris en compte mon souci.
Visiblement je mélange $oXL et $oBook...
Mais quand je passe l'outil, je n'arrive pas à "OUVRIR" un fichier Calendrier qui ne contient que les 5 lignes d'entête. (Suis en Excel 2016+W10)
La commande $oXL.ActiveWorkbook.Save plante, remplacée par _Excel_BookSave ( $oBook ) mais fichier "verrouillé", je ne peux pas l'ouvrir
Si j'ajoute _Excel_BookSaveAs($oBook,@ScriptDir & "\Calendrierss.xls"), je n'arrive pas non plus à ouvrir le fichier même si je le crée en xlsx
Et effectivement le script est long. Avez vous une idée ?
Je voulais attirer votre attention sur le fait que pour récupérer le code, j'ai cliqué sur "tout sélectionner" puis fait un CTRL-C
J'ai sauvegardé sur aqw.au3 et ensuite exécuté le code et j'ai eu ceci:
+> SciTEDir => d:\Program Files (x86)\AutoIt3\SciTE UserDir => d:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper SCITE_USERHOME => E:\AutoIt v3\SciTE
>Running AU3Check (3.3.14.2) from:d:\Program Files (x86)\AutoIt3 input:D:\AU3\aqw.au3
+>08:54:26 AU3Check ended.rc:0
>Running:(3.3.14.2):d:\Program Files (x86)\AutoIt3\autoit3_x64.exe "D:\AU3\aqw.au3"
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
D:\AU3\aqw.au3 (4) : ==> Unable to parse line.:
    Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
^ ERROR
->08:54:26 AutoIt3.exe ended.rc:1
+>08:54:26 AutoIt3Wrapper Finished.
>Exit code: 1 Time: 1.798
Pour remédier, j'ai cliqué sur la première ligne puis sur la dernière, CTRL-C , et ré exécuté le code et cette fois pas d'erreur....
Est ce le 'TOUT sélectionner' qui introduit des caractères parasites ?
Dans le code source (HTML) de la page il y avait des     à la place de la tabulation. J'ai donc supprimé la tabulation. Je pense que ça devrait marcher maintenant.
De petits détails peuvent faire toute la différence. — Quand la boule de neige commence à rouler… poussez-la. (Columbo)