[R] Ecrire dans un fichier excel

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Utilisateur 3309 supprimé
Status : Hors ligne

[R] Ecrire dans un fichier excel

#1

Message par Utilisateur 3309 supprimé »

Bonjour,
j'ai fait un programme qui ouvre un fichier xlsx sur excel 2010 et va ecrire des données à l'intérieur et enregistre le fichier en PDF. Mon soucis c'est quand j'ai d'autres fichiers Excel déjà ouverts sur mon PC, le programme s'emmele les pinceaux et n'ecrit pas dans le bon fichier...

je ne poste pas tout le code qui fait plusieurs centaines de ligne mais voici la partie qui semble poser probleme.
est-ce que j'utilise la bonne méthode pour ouvrir le fichier et garder le "focus" dessus ?
Merci pour votre aide.

Code : Tout sélectionner

;Emplacement du fichier excel a lire
Global $fichierXL = @scriptdir & "\OA.xlsx"
Const $xlExcel8 = 56
Const $xlTypePDF = 0
.
.
.
    _ExcelBookOpen($fichierXL,1) ; On ouvre le fichier Excel
    $oExcel = ObjGet("","Excel.Application")
    _ExcelSheetActivate($oExcel, "oaxlsx") ; on se positionne sur la feuille Excel qui s'appelle: oaxlsx
.
. ici on ecrit les données
.
    _ExcelBookClose($oExcel,0,0) ; 0 = save et 1 = no save
$oExcel = 0 ; indispensable sinon bug a l'ouverture d'un nouvel excel
.
.
.
 
Modifié en dernier par Utilisateur 3309 supprimé le lun. 16 déc. 2013 08:58, modifié 1 fois.
Hugues
Niveau 8
Niveau 8
Messages : 597
Enregistré le : ven. 21 sept. 2012 18:12
Status : Hors ligne

Re: [..] Ecrire dans un fichier excel

#2

Message par Hugues »

Salut,

Je ne sais pas si ça peux te rendre service:http://www.autoitscript.fr/forum/viewto ... =3&t=11048
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1038
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: [..] Ecrire dans un fichier excel

#3

Message par walkson »

Bonjour,
Peut être comme ceci:
$oExcel = _ExcelBookOpen($fichierXL,1)
$oExcel.sheets("Feuil1").Range("A1").Value = "AAAAAAAA"
etc...
et sans utiliser $oExcel = ObjGet("","Excel.Application")
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Utilisateur 3309 supprimé
Status : Hors ligne

Re: [..] Ecrire dans un fichier excel

#4

Message par Utilisateur 3309 supprimé »

Merci pour votre aide.
Le lien de Hugues confirme le message de walkson.
en supprimant $oExcel = ObjGet("","Excel.Application") cela fonctionne correctement.

Merci !!!
Répondre