Coller premiere cellule vide dans un fichier fermé.

[guigui76]

Bonjour est bon week-end.
Peut-on coller une selection à la premiere cellule vide d'une colonne sans ouvrir le fichier destination?
J'ai fait un essai mais sans réussite.
J'ai mis en rouge la ligne défecttueuse.
Merci de votre patiente.
Guillaume
Voici le code

Sub exportDonneeDansCelluleClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    
    Fichier = "C:\Users\Moi\Desktop\11.xlsx"
    
    Set Cn = New ADODB.Connection
    
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=no;"""
    Set Cd = New ADODB.Command
    Cd.ActiveConnection = Cn
    Cd.CommandText = "Range(e65536).End(xlUp).Row + 1"
    
    Set Rst = New ADODB.Recordset
    [COLOR="red"]Rst.Open Cd, , adOpenKeyset, adLockOptimistic[/COLOR]   Rst(0).Value = "a1:an800"
    Rst.Update
    
    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
End Sub

 

[Guest]

Re : Coller premiere cellule vide dans un fichier fermé.

Bonjour,

Cela va être difficile.
De plus CommandText doit contenir une requête SQL "SELECT, INSERT, UPDATE, DELETE" etc.

Pour ton cas se serait INSERT INTO pour chaque ligne (800)
ta commande dans une boucle 1 à 800 ressemberait à ceci:

    For i = 1 to 800
Set Cd = New ADODB.Command
    With Cd
        .ActiveConnection = Cn
        .CommandText = "INSERT into MaFeuille([Champ1],[Champ2],[Champ3]) values(" & Range("A" & i) &"," & Range("B" & 1) & "," & Range("C" & i) & ")"
        .CommandType = adCmdText
        .Execute
    End With
Next

Là je n'ai mis que 3 champs et tu en as 40.

Autant ouvrir le classeur, cela irait plus vite.

A+

 

[guigui76]

Re : Coller premiere cellule vide dans un fichier fermé.

Ok, je suis à la recherche d'un autre code

 

[Guest]

Re : Coller premiere cellule vide dans un fichier fermé.

Re,
Il y en a plein le forum pour ce genre de travail.
Bonnes recherches.

 

[guigui76]

Re : Coller premiere cellule vide dans un fichier fermé.

ok,je vais passé une soirée de folie.

 

[Guest]

Re : Coller premiere cellule vide dans un fichier fermé.

Re,

Un petit merci ou A+ dans ta réponse précédente m'aurait mis d'humeur à aller plus loin dans mon désir de t'aider.

A+

 

[Hippolite]

Re : Coller premiere cellule vide dans un fichier fermé.

Bonjour à tous,
Quelques pistes pour travailler avec des classeurs fermés :
Comment lire et écrire dans des classeurs fermés ?
Lire et écrire dans les classeurs Excel fermés
Comment utiliser la fonction Indirect pour lire une cellule dans un classeur fermé ?

 

[guigui76]

Re : Coller premiere cellule vide dans un fichier fermé.

Désolé pour ce manque de politesse
Je remercie toutes les personnes qui on lue le post et ont participés.

Re,

Un petit merci ou A+ dans ta réponse précédente m'aurait mis d'humeur à aller plus loin dans mon désir de t'aider.

A+

 

[guigui76]

Re : Coller premiere cellule vide dans un fichier fermé.

Je regarde ceci cette A.M.

Bonjour à tous,
Quelques pistes pour travailler avec des classeurs fermés :
Comment lire et écrire dans des classeurs fermés ?
Lire et écrire dans les classeurs Excel fermés
Comment utiliser la fonction Indirect pour lire une cellule dans un classeur fermé ?