Discussion :

[yassinefeki]

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...

[patricktoulon]

bonsoir

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


au plaisir

[kiki29]

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

[yassinefeki]

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

Code :

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

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

[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

[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

[patricktoulon]

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

ca donne un truc du genre :

Code :

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

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

[Borsec28]

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 :

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

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