Importer des données à partir d'un fichier excel fermé

Version imprimable

06/04/2011, 20h04
yassinefeki

Importer des données à partir d'un fichier excel fermé

bonjour,

J'aime bien connaître comment je peux importer des données dans un fichier excel à partir d'un autre fichier excel fermé à travers une macro ?

merci...
06/04/2011, 20h52
patricktoulon

heu!...

bonsoir

tu pourrais commencer par faire une recherche dans la faq tu a un exellent tuto pour ca de silkiroad

au plaisir
06/04/2011, 22h52
kiki29

Salut,soit en fait http://silkyroad.developpez.com/VBA/ClasseursFermes/

La réponse est plus facile à ce que vous m'avez proposez. J'ai utilisé le code suivant :

Code:

1
2
3
4
5
6
7
8
 
Sub Importation()
Workbooks.Open Filename:= _
        "C:\downloads\classeur1.xlsx"
ThisWorkbook.Worksheets("Feuil1").Range("B2").Value = Range("B2").Value
ActiveWorkbook.Close ' pour fermer le fichier '
 
End Sub

07/04/2011, 17h37
rvtoulon

oui mais ta réponse ne répond pas exactement à ta demande qui était de "récupérer les données d'un classeur fermé" mais avec ce code tu ouvres un classeur tu prend les données qui te sont nécessaires et tu refermes le classeur.
donc......
un petit merci à ceux qui t'ont répondu n'aurait pas été de trop, il me semble ;)
07/04/2011, 18h07
yassinefeki

oui bien sur merci à tout qui me répond et m'a aidez, mais moi ce que je veux c'est ce que j'ai répondu...ce que je veux est d'importer des valeurs d'un fichier excel fermé .....

Merci pour toi et pour ceux qui me répond et même pour ceux qui ont consulté cette discussion :)

bonjor c'est une methode que j'utilise moi meme

ca donne un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 application.displayalerts=false application.screenupdating=false dim titre as string dim wbk1 as workbook dim wbk2 as workbook titre =" l'adresse complete de ton fichier" set wbk1=thisworkbook Set Wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre) wk1.Sheets(1).Range("f2").Value = Wbk2.Sheets(2).Range("f2").Value wbk2.close end sub
ca copie la "f2" du classeur(titre) a la meme place sur le classeur actif

au plaisir

Certaines valeurs ne sont pas importées

Bonjour a tous,

J'ai bien suivi le tuto pour l'importation des données. Tout fonctionne très bien sauf si je change le format de certaines cellules, elles ne s'importent pas. :?
Avez vous une solution sur le code ci-dessous qui me permettrait d'importer n'importe quelle valeur quelque soit le format de la cellule d'origine ?

merci pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub RequeteClasseur()
 
On Error GoTo ErrorTO
 
Call init_var 'initialisation de mes noms de feuilles et de mon chemin d'accès au fichier
 
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "fichiertest.xlsm"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "feuilletest"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & accesfichier & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Sheets(data).Range("A2").CopyFromRecordset Rst
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
Exit Sub
 
ErrorTO:
MsgBox ("Données non importées")
 
End Sub