Probleme macro excel

Version imprimable

25/08/2010, 17h45
bagheria85

Probleme macro excel

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
25/08/2010, 18h18
delphine35

le plus simple est de nous mettre la macro et on la regarde :mrgreen:
25/08/2010, 18h25
fring

Bonjour,

On se doute bien que tu n'es pas ici pour un problème de tondeuse à gazon :aie:
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 :mouarf:).

Citation:

Envoyé par bagheria85

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/

Merci!

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:

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

26/08/2010, 11h22
delphine35

Je dirait :

Code:

worksheets("MARGES EXPLOIT 2010").Range("O3").CopyFromRecordset Rst
26/08/2010, 11h32
bagheria85

Merci merci merci

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

Cordialement
26/08/2010, 11h49
bagheria85

Une dernière petite chose
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:

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
26/08/2010, 13h48
YoukouleleY

Si j'ai bien compris ce que tu cherches à faire, je pense que la solution se trouve par ici.

Code:

ActiveWorkbook.path
26/08/2010, 14h09
bagheria85
Oui, mais vu que j'ai plusieurs classeurs dans ce dossier, comment écrire le code?

Voici l'actuel
Code:

1 2 3 Feuille = "Données de la carte$" 'n'oubliez pas d'ajouter $ au nom de la feuille. 'Chemin complet du classeur fermé Fichier = "\\NU015874\WinData$\guillaume\Bureau\Excel\mes.xls"
Mes classeurs fermés s'appellent "mes.xls" ou encore "p30.xls"

Cdt

Serait-ce ceci?

Code:

ActiveWorkbook.Path & "\" & "mes.xls"

Et pour le classeur p30.xls:

Code:

ActiveWorkbook.Path & "\" & "p30.xls"

Cdt