Discussion :

[NCall]

Bonjour,
Je sais normalement copier des données depuis un classeur/feuille externe, mais j'aimerais savoir comment faire quand celui-ci est fermé ?
J'ai essayé avec une sorte de connexion, mais ça ne marche pas.
Je n'ai pas forcement de code à proposer, je voudrais savoir quelle méthode utiliser, et si possible avec un exemple.
Je voudrais lancer la macro sans qu'on me demande d'ouvrir le fichier source.

Merci

[Transitoire]

Bonjour, j'ai trouvé ça pour vous dans la FAQ
Vous devriez pouvoir l'adapter

https://excel.developpez.com/faq/?pa...lasseursFermes

Cordialement

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
NomFichier="c:\morep\monfichier.xlsx"
    With CreateObject("ADODB.Connection")
        .CommandTimeout = 500
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & NomFichier & ";" & "Extended Properties=""Excel 12.0;HDR=YES;Readonly=true"";"
        .Open
        thisworbooks.sheets("feulle1").range.("A2").copyfromrecordset .execute("select * from [feuille1$]")
        .Close
    End With

[NCall]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
.Open
    ThisWorkbooks.Worksheets("feuilleSource").Range("A1").Value = Workbooks("CeluiOuvert").Worksheets("feuilleReceptive").Range("A1").Value
.Close

Bonjour, et merci pour vos réponses.

Donc après avoir fait la connexion etc, qqchose comme ça pourrait marcher ?
Merci

[Invité]

Non open ouvre une connexion comme si ton fichier était une base de donnée pas un fichier excel.

Il faut faire une requête Sql.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
NomFichier="c:\momrep\CeluiFemer.xlsx"
    With CreateObject("ADODB.Connection")
        .CommandTimeout = 500
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & NomFichier & ";" & "Extended Properties=""Excel 12.0;HDR=YES;Readonly=true"";"
        .Open
        ThisWorkbooks.Worksheets("feuilleReceptive").Range("A1").copyfromrecordset .execute("select * from [feuilleSource$]")
        .Close
    End With

[NCall]

Merci beaucoup.

Voici mon code pour copier le contenu de la cellule A1 (source) vers la B3 (Receptive),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ThisWorkbooks.Worksheets("feuilleReceptive").Range("B3").CopyFromRecordset .Execute("select * from [feuilleSource$A1]")

cependant, j'ai une erreur :



et des fois j'ai celle là


Les deux feuilles sont bien en local (et dans le même répertoire durant la programmation de mon projet)

[NCall]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("feuilleReceptive").Range("A1").CopyFromRecordset .Execute("select * from [feuilleSource$A1:A1]")

Pas d'erreur avec ce code. Il faut passer HDR a NO si nous voulons qu'une seule cellule.