XL 2016 VBA - Code pour écrire une plage dans une feuille d'un classeur fermé

[Dudu2]

Bonjour
Quelqu'un aurait ça dans ses tiroirs ?
Cordialement

P.S. J'ai le code pour lire en classeur fermé besoin.

 

[patricktoulon]

 

[dysorthographie]

le problème c'est que ça fonctionne que sur la colonne A [F1] quand le fichier es vide!

Sub test()
Dim cn As String, Sql As String
Const Fichier = "C:\Myrep\Classeur vide.xlsx", AvecTitre = False
cn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";"""
Sql = "Insert Into [Feuil1$A1:C100] ([F1],[F2],[F3]) values(?,?,?);"

Set a = ExecuteRequete(Sql, cn, "[F1]", "TOTO", "[F2]", "1234", "[F3]", "titi")
End Sub
Function ExecuteRequete(Sql As String, cn As String, ParamArray Param() As Variant) As Object
Dim I As Integer
With CreateObject("ADODB.Command")
    .ActiveConnection = cn
    .CommandType = 1
    .CommandTimeout = 500
     .CommandText = Sql
    For I = LBound(Param) To UBound(Param) Step 2
        Set prm = CreateObject("ADODB.Parameter")
        prm.Name = Param(I): prm.Value = Param(I + 1): prm.Type = 12
        .Parameters.Append prm
    Next
  
    Set ExecuteRequete = .Execute
End With
End Function

 

[patricktoulon]

re

 

[patricktoulon]

purée robert c'est ch...t ça
il n'y a vraiment pas moyen?

 

[patricktoulon]

re
dudu donne moi le classeur sur le quel tu a testé

 

[Dudu2]

C'est moi qui ai mal testé 🙁
C'est toujours plus facile de commencer par accuser les autres !

Par contre si le classeur est vide ça rend 1.

 

[Dudu2]

Alors si le classeur est vide, on peut quand même écrire en A1. C'est tout !
Ce qui rejoint ce que rapporte @dysorthographie.

 

[dysorthographie]

si non Patrick test ma méthode sur ton classe structuré!

Sub test()
Dim Cn As String, Sql As String
Const Fichier = "C:\Myrep\1 exemple ecriture dans fichier fermé\1 exemple ecriture dans fichier fermé\exemple ADO ajouter une ligne dans un range ou un tableau structuré\destination.xlsx", AvecTitre = True
Cn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";"""
Sql = "Insert Into [Feuil1$] ([nom], [prenom],[Tel]) values(?,?,?);
Set a = ExecuteRequete(Sql, Cn, "[nom]", "TOTO", "[prenom]", "1234", "[Tel]", "060606")

Sql = "select * from [Feuil1$] where [nom]=?"
Set a = ExecuteRequete(Sql, Cn, "[nom]", "TOTO")

End Sub
Function ExecuteRequete(Sql As String, Cn As String, ParamArray Param() As Variant) As Object
Dim I As Integer
With CreateObject("ADODB.Command")
    .ActiveConnection = Cn
    .CommandType = 1
    .CommandTimeout = 500
     .CommandText = Sql
    For I = LBound(Param) To UBound(Param) Step 2
        Set prm = CreateObject("ADODB.Parameter")
        prm.Name = Param(I): prm.Value = Param(I + 1): prm.Type = 12
        .Parameters.Append prm
    Next
 
    Set ExecuteRequete = .Execute
End With
End Function

 

[Dudu2]

 

[Dudu2]

Petit souci sur tableau structuré:

Mais comme le TS reste dans le contexte Excel, ce n'est pas étonnant et ça n'est probablement pas solvable.

 

[dysorthographie]

Alors si le classeur est vide, on peut quand même écrire en A1. C'est tout !
Ce qui rejoint ce que rapporte @dysorthographie.

en fait adodb vérifie sur les quelque ligne que le fichier fermé contient pour définir le nombre de colonnes et leur Type!

ça me semble insalubre😵

 

[Dudu2]

Dans ton exemple ci-dessus, tout est en String.
Comment indiquer (dans le classeur cible ?) par exemple que Tel est numérique ?

 

[patricktoulon]

re
pour éviter d'avoir des données du mauvais type en lecture
je refait en transposant le rst en tableau
normalement vba fait tout seul la conversion
en écriture c'est une autre histoire

 

[dysorthographie]

en fait je déclare mes paramètre en variant Type 12! mais tél n'est pas un numérique 06 ?? ?? ?? ??

prm.Name = Param(I): prm.Value = Param(I + 1): prm.Type = 12

 

[Dudu2]

Ok, pas mal de trucs m'échappent dans ton code car je ne connais pas du tout ADODB.
J'ai quand même tenté de généraliser ton code, histoire d'avoir un utilitaire.
Il y aurait surement d'autres éléments à paramétrer dans cette approche "utilitaire"...