ecrire dans classeur fermé

[teamtiti]

Bonjour tout le monde j'essaye depuis un moment d'envoyer dans un autre fichier excel (Suivi des essais) des cellules qui viennent de (J23) sans ouvrir (Suivi des essais) j'ai trouvé ce code en essayant de l'adapter mais j'obtient l' erreur " l'indice n'appartient pas a la selection" et la a force je seche
Voila le code en question et merci d'avance pour l'aide

Sub RequeteClasseurFerme_Excel()

'Définit le classeur fermé servant de base de données
Fichier = "K:\Suivi des essais .xls"
'Nom de la feuille dans le classeur fermé
NomFeuille = "Feuil1"

Set Cn = New ADODB.Connection

'--- Connexion ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With
'... la requête ...
x = Workbooks("J23.xls").Sheets("Feuil1").Range("F23")
i = Workbooks("Suivi des essais .xls").Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Workbooks("Suivi des essais .xls").Sheets("Feuil1").Range("A" & i) = x

'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing

End Sub

 

[Guest]

Re : ecrire dans classeur fermé

Bonjour TeamTiti et bienvenue sur le forum.

tu as lancé un fil à 19h04 et celui-ci à 19h29. 25 minutes c'est court comme attente.

Je t'invites, si tu ne l'as pas déjà fair à consulter la chartre du forum pour en connaitre les us et coutumes.

Merci
A+

 

[teamtiti]

Re : ecrire dans classeur fermé

escuse je ne sais pas se que j'ai bricollé j' ai voulu modifier ma question c'est tout , je ne vois pas comment il ce fait qu'il y a deux post!