Discussion :

[bagheria85]

Bonjour à tous,

Je veux créer un fichier excel capable de rapatrier foule de stats d'un document excel préalablement téléchargé. Je clique donc sur "Nouvelle macro" et c'est parti. Voici mes questions:

- Pour que les données apparraissent au bon endroit, je sélectionne une cellule, je clique sur "somme" et je vais chercher dans l'autre fichier excel le chiffre à mettre. Est-ce ok où y a t'il une autre solution? Sachant que je ne veux pas ouvrir le second fichier lorsque je lance ma macro.

- Ma macro ainsi faite, lorsque je la lance, je suis obligé de placer le curseur sur la bonne cellule sinon il y a un décalage dans le rapatriement. Pourquoi? Est-ce un pb durant la création de la macro?

Ces renseignements m'aideront déjà beaucoup.

Cordialement

Bag

[delphine35]

le plus simple est de nous mettre la macro et on la regarde

[fring]

Bonjour,

On se doute bien que tu n'es pas ici pour un problème de tondeuse à gazon
Ce genre de titre "Probleme macro excel...help me please" est totalement inutile et ne pourra pas servir à l'avenir lorsque quelqu'un fera une recherche pour un problème similaire (si si...il y en a qui font des recherches ).

Sachant que je ne veux pas ouvrir le second fichier lorsque je lance ma macro.

Il est en effet possible de lire dans un classeur fermé mais il est impossible de créer ce genre de macro via l'enregistreur.

Un peu de lecture... http://silkyroad.developpez.com/VBA/ClasseursFermes/

[bagheria85]

Vraiment merci pour le lien envoyé. Cela m'a énormément aidé. merci encore donc. J'ai cependant un dernier point à résoudre. Et c'est pas coton. Le classeur dans lequel j'ai créé ma macro pour importer des données depuis un autre classeur fermé contient des onglets différents. Sur l'onglet nommé "choix", j'ai créé des boutons de commandes pour chaque mois de l'année. Ainsi la Macro1 correspond aux chiffres qui iront dans janvier. Mais lorsque je clique sur mon bouton de commande pour exécuter la macro, les données se mettent sur cet onglet et non sur l'onglet nécessaire. j'ai du oublier de préciser evrs quel onglet diriger les chiffres. Voici le code actuel. Où dois-je mettre le nom de mon onglet please? (l'onglet s'appelle MARGES EXPLOIT 2010)

Cordialement

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Sub extractionValeurCelluleClasseurFerme()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String
 
    'Adresse de la cellule contenant la donnée à récupérer
    Cellule = "N7:N101"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
 
    Feuille = "Données de la carte$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = "\\LN012547\WinData$\guillaume\Bureau\Excel\mes.xls"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    Range("B3").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
 
    'Adresse de la cellule contenant la donnée à récupérer
    Cellule = "N7:N101"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
 
    Feuille = "Données de la carte$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = "\\LN012547\WinData$\guillaume\Bureau\Excel\p30.xls"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    Range("O3").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

[delphine35]

Je dirait :

Code :

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

worksheets("MARGES EXPLOIT 2010").Range("O3").CopyFromRecordset Rst

[bagheria85]

Combien de fois dois-je le dire? Merci à vous de m'avoir répondu si efficacement! Longue vie au site!

Cordialement

[bagheria85]

Comme plusieurs utilisateurs vont utiliser ce fichier excel créé, les classeurs fermés seront téléchargés par eux mêmes et mis sur leur ordi respectif. Or, le chemin d'accès ne sera donc plus le même.

Code :

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

1
2
'Chemin complet du classeur fermé
Fichier = "\\LN012547\WinData$\guillaume\Bureau\Excel\mes.xls"

Aussi, existe t'il un code qui permette de chercher dans le classeur "mes.xls" sans mettre de chemin devant (en imaginant par exemple que le classeur excel avec la macro et le classeur fermé soit dans le même dossier).

Cordialement