[VBA-E] Utilisation des classeurs fermés

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Dans mon fichier excel j'ai une macro de recherche qui en fonction de la marque et de la référence entrées, va rechercher dans un autre fichier (pour le moment ouvert) la designation le prix et tout le tralala qui va bien pour venir après le coller dans mon fichier.
Mon second fichier: Tarifs

Actuellement, a l'ouverture de mon 1er fichier (logiciel), j'ouvre aussi le fichier Tarifs. quand je lance ma macro de recherche tout marche bien.
Ca fait quelques clignotements dû au changement de pages mais rien de bien méchant.

Mon probleme est que j'utilise le fichier tarif que lorque je lance ma recherche, et j'aimerai que soit le fichier tarif ne soit pas visible ou qu'il ne s'ouvre meme pas mais que la recherche soit exécutée.

J'ai deja regarder l'utilisation des classeurs fermés mais un message d'erreur s'affiche.

Mon code actuel
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 Windows("Tarifs.xls").Activate Sheets(num_onglet).Select derniereligne = Range("A65535").End(xlUp).Row For i = 2 To derniereligne If Range("A" & i).Value <> "" Then If Range("A" & i).Value = ref Then designation = Cells(i, 2) Windows(nomfichier).Activate Cells(a, 6) = designation Windows("Tarifs.xls").Activate Range("C" & i).Select Selection.Copy Windows(nomfichier).Activate Range("L" & a).Select ActiveSheet.Paste Windows("Tarifs.xls").Activate Range("D" & i).Select Selection.Copy Windows(nomfichier).Activate Range("K" & a).Select ActiveSheet.Paste classe_remise = Range("K" & a).Value Windows("Tarifs.xls").Activate Sheets("Remise").Select End If End If Next i

Bonjour,
Tu doit d'abord l'ouvrir,

Code:

1
2
3
    on error resume next 'au cas ou il est déjà ouvert
    Workbooks.open "Tarifs.xls"
    Workbooks("Tarifs.xls").Activate

A+

Tu ne connais pas

Citation:

Application.screenUpdating = False

que tu place en début de code et que tu remets à false à la fin ?
Ensuite, pour travailler sur un fichier, tu n'es jamais obligée de le sélectionner ni de l'activer. Je reprends ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim FL1 as Worksheet
Dim FL2 as Worksheet
Dim FL3 as Worksheet
Application.screenUpdating = false
Set FL1 = Workbooks("Tarifs.xls").sheets(num_onglet)
Set FL2 = Workbooks(nomfichier).Worksheets(NomDeLaFeuille)
Set FL3 = = Workbooks("Tarifs.xls").Worksheets("Remise")
    derniereligne = FL1.Range("A65535").End(xlUp).Row
    For i = 2 To derniereligne
        If FL1.Range("A" & i).Value <> "" Then
            If FL1.Range("A" & i).Value = ref Then
                designation = Cells(i, 2)
                FL2.Cells(a, 6) = designation
                FL1.Range("C" & i).Copy FL2.Range("L" & a)
                FL1.Range("D" & i).Copy FL2.Range("K" & a)
                classe_remise = FL2.Range("K" & a).Value
                'là je ne sais pas ce que tu en fais, mais si tu as quelque chose
                'à faire sur ta feuille Remise <> sheets(num_onglet) utilise FL3
            End If
        End If
    Next i
    'ton code suivant...
    Application.screenUpdating = True

Avec ce code (vérifié et adapté) tu auras toujours la feuille active du départ à l'écran et tu n'auras aucun mvt de feuille.

25/09/2007, 13h26
LeForestier

Bonjour ouskl'n'or
J'ai essayé ta fonction mais je ne parvient pas à l'employé quand le classeur n'est pas ouvert, Quel est le truc, je ne comprend pas.
Merci pour tes lumières.
A+
25/09/2007, 14h35
a.dequidt

En fait j'aimerai que la recherche se fasse alors que le classeur soit fermé, le tarif est relativement lourd (25 Mo) et est très (trop?) peu utilisé :s
25/09/2007, 14h53
ouskel'n'or

Citation:

Envoyé par LeForestier

Bonjour ouskl'n'or
J'ai essayé ta fonction mais je ne parvient pas à l'employé quand le classeur n'est pas ouvert, Quel est le truc, je ne comprend pas.
Merci pour tes lumières.
A+

C'est pourquoi je pose la question. Ce que j'ai mis fonctionne fichier ouvert.

Pour travailler sur un fichier fermé, je te conseille de regarder ici, SilkyRoad explique tout ça très bien ;)

Edit
Tu as une autre solution fichier fermé mais tu n'auras que les valeurs, pas les formules. Pour ça, il suffit que tu établisses un lien entre ta cellule dans "FL2" et la cellule correspondante prise dans FL1
Exemple, dans FL2 tu mettrais :

Code:

FL2.Range("L" & a).formula = "=["& Chemin & NomFich & "]Feuil1!" & adresse

où adresse est celle de la cellule contenant la valeur à copier.
Maintenant, il ne reste qu'à adapter à ton code.
Si tu n'y parviens pas LeForestier va te faire ça :mouarf:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() Dim FL1 As Worksheet Dim FL2 As Worksheet Dim num_onglet As String num_onglet = Range("R26").Value Set FL1 = Workbooks("Tarifs_Automatisme.xls").Sheets(num_onglet) Set FL2 = Workbooks("Logiciel_offres_v9.xls").Worksheets(1) chemin = Range("L12").Value & "\" nomfichier = Tarifs_BLF_Automatisme.xls adresse = Range("B4").Value FL2.Cells(26, 2).Value = "=[" & chemin & NomFich & "]" & num_onglet & "!" & adresse End Sub
Il me pointe

Code:

Set FL1 = Workbooks("Tarifs_Automatisme.xls").Sheets(num_onglet)

et me dit que l'indice n'appartient pas a la selection ! :aie:
Est ce parce que le fichier tarifs_automatisme est fermé?

EDIT:

Meme avec le fichier ouvert ça marche pas :s

25/09/2007, 15h24
ouskel'n'or

Alors tu as un problème dans le N° de ton fichier car je n'ai pas de problème avec ça

Citation:

Set FL1 = Workbooks("Classeur6.xls").Sheets(1)

Si num_onglet est un string... Non ! Puisque num_onglet est un string (j'avais pas vu) utilise Worksheets(num_onglet) au lieu de Sheets(num_onglet)
25/09/2007, 15h38
a.dequidt

Meme sushi :s

Et je sais pas d'ou ça peut venir
25/09/2007, 16h27
ouskel'n'or

Si tu ne nous dis pas ce qu'il y a dans num_onglet, si tu ne nous dis pas si tu as vérifié le nom de ton classeur, si tu ne nous dis pas s'il est ouvert avant la ligne incriminée, bref, si tu ne nous dis rien nous on saura pas... :cry:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim num_onglet As String
num_onglet = Range("R26").Value
Set FL1 = Workbooks("Tarifs_Automatisme.xls").Sheets(num_onglet)
Set FL2 = Workbooks("Logiciel_offres.xls").Worksheets(1)
Dim chemin As String
chemin = Range("L12").Value & "\"
Dim nomfich As String
nomfich = "Tarifs_BLF_Automatisme.xls"
FL2.Cells(26, 2).Value = "=[" & chemin & nomfich & "]" & num_onglet & "!" & "B4"
End Sub

Num_onglet = Partanpion
Le nom du classeur est le bon
Le classeur n'est pas open

25/09/2007, 17h15
ouskel'n'or

Citation:

Envoyé par a.dequidt

[*]Le classeur n'est pas open

Alors ça ne fonctionnera pas. En outre, relis mes réponses précédentes.

Bonsoir

Ton fichier de tarif est-il organisé comme une base de données?

Autrement dit, la feuille dans laquelle tu vas rechercher des données:
- commence-t'elle en A1?
- contient-elle en colonne A l'identificateur unique de l'enregistrement?
- contient-elle en ligne 1 les intitulés des colonnes, sans discontinuité entre la colonne A et la dernière colonne de la table?
- Chaque ligne contient-elle bien une valeur en colonne A?

Si oui, tu pourrais utiliser ADO pour récupérer les données, ce qui permet de ne pas ouvrir ton classeur...

Exemple: Un fichier contacts.xls contient une feuille Contacts organisée comme une table d'une base de données (voir plus haut), avec deux champs (colonnes) nommées Nom & Prenom
Voici le code qui permettra de scanner tous les enregistrements de la table
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim rs As Object Dim con As Object Set con = CreateObject("adodb.connection") Set rs = CreateObject("adodb.recordset") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=d:\données\contacts.xls;Extended Properties=""Excel 8.0"";" rs.Open "select * from `contacts$`", con Do While Not rs.EOF Debug.Print rs!nom, rs!prenom rs.MoveNext Loop
Cela t'aide-t'il?

26/09/2007, 08h50
a.dequidt

Bonjour à tous,

Pierre Fauconnier, Peux tu m'en dire un peu plus sur cette fonction ADO.
Mon fichier Tarifs est bien ordonné comme une base de données.
Dans la colonne A j'ai les références, en B la désignation, en C le tarif , et en D la classe de remise.
dans mon fichier offre j'entre la référence, et je choisi la marque.
dans le fichier tarifs, les onglets sont les differentes marques.
26/09/2007, 09h14
Pierre Fauconnier

Bonjour Aurore,

Difficile en un message de te résumer les possibilités de ADO. Disons, pour faire simple, que la technologie ADO permet de gérer des données issues d'une base de données (Excel, dans ton cas) pour:
créer des jeux d'enregistrements
modifier des enregistrements
ajouter ou supprimer des enregistrements

La syntaxe SQL permet des manipulations complexes (créer des requêtes multitables, analyse croisée...)

Dans ton cas, on pourrait utiliser un recordset basé sur une instruction sql qui isole l'article que tu recherches.
Après, tu affectes à tes cellules les valeurs des différents champs de ta table.

Pour une première approche, tu peux utiliser mon exemple en suivant la procédure que j'ai expliquée.

Tu peux aussi rechercher des tutoriels sur www.developpez.com. Regarde dans les derniers messages, il y a deux liens renseignés, pour XL2007 et les versions antérieures.

Ok?

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
Sub RequeteClasseurFerme_Excel2007()
    Dim chemin As Variant
    chemin = Range("L12").Value & "\"
    Dim marque As String
    marque = Range("S26").Value
    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 = chemin & "Tarifs_BFL_Automatisme.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = marque
    Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.8.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 8.0;HDR=YES;"""
        .Open
    End With
    '----------------- 'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    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 B26
    Cells(26, 2).CopyFromRecordset Rst
    Rst.Close
    Set Rst = Nothing
    '--- Fermeture connection ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

J'ai une erreur a la ligne

Code:

Dim Cn As ADODB.Connection

et le message

Citation:

Type défini par l'utilisateur non défini

26/09/2007, 09h43
Pierre Fauconnier
A mon avis, la ligne
Code:

1 2 .Provider="Microsoft.Jet.OLEDB.4.0"
est de trop
Il faut corriger la ligne suivante avec le bon provider, c'est
Code:

1 2 .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" ...
Sans présumer d'autres erreurs de retranscription...
Voir le tuto de SilkyRoad http://www.developpez.net/forums/sho...34&postcount=1
Ok?
26/09/2007, 09h55
a.dequidt

L'erreur se produit plus haut :?
Quant a ton lien, il ne fonctionne pas :roll:
26/09/2007, 10h00
Pierre Fauconnier
Si tu utilises une ligne du genre
Code:

1 2 dim cn as adodb.connection
alors tu dois référencer la librairie
Microsoft Activex Data Objects par exemple la 2.7, via outils/Références

Quant au lien, le voici http://www.developpez.net/forums/sho...34&postcount=1
Ok?
26/09/2007, 10h18
a.dequidt

J'avais pas fait la référence
/me partie se cacher :oops:

J'ai une erreur de générée, ligne:

Code:

.Open

Message d'erreur:

Citation:

Erreur d'exécution '3706'

Impossible detrouver le fournisseur. Il est peut-être mal installé.

Voir 40 message(s) de cette discussion en une page