Discussion :

[ericdev67]

Bonjour,

j'ai un problème avec la déclaration d'une variable. J'essaye :

Code :

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

1
2
3
chemin = "C:/Base.xls"
chemin.range("G2").select
ActiveCell.FormulaR1C1="Test"

mais cela ne fonctionne pas…..

Il est possible que c'est le

Code :

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

dim chemin as ……

qui me manque……j'ai essayé

Code :

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

1
2
Workbook
Workbooks

mais le code bloque sur la variable….

J'essaye d'écrire dans un classeur fermé, j'ai bien lu le super tuto de Silkyroad, mais j'essaye si une autre "méthode" est possible……

Merci pour votre aide…..

A+

[clementmarcotte]

Bonjour,


Je n'ai pas lu le tutoriel en question, mais à la lumière de la question, je crois déceler que tu cherches le moyen de fournir un chemin d'accès.

Donc, tu vas sans doute devoir adapter en fonction des enseignements contenus dans le tutoriel; mais en supposant que ce soit pour ouvrir un classeur en utilisant VBA:
Il n'est pas obligatoire d'associer le classeur à une variable objet; mais personnellement, je trouve cela bien pratique.

Code :

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

1
2
3
4
dim chemin as string
chemin = "C:/Base.xls"
dim leclasseur as Workbook
set leclasseur = Workbooks(chemin).open

ou, une variante, si le chemin d'accès est dans une cellule et que tu ne veuilles pas utiliser de variable objet

Code :

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

1
2
3
dim chemin as string
chemin = range("G2").text
workbooks.open(chemin)

Mais, comme j'ai dit plus haut, le tutoriel ne parle probablement pas d'ouvrir le classeur, mais cela devrait quand même te donner une idée.

[ericdev67]

Merci clementmarcotte,

Je te remercie pour ton aide et explications.

Mais comme tu as pu en déduire, je ne souhaite pas ouvrir le classeur….j'essaye d'écrire dedans, et je ne trouve pas la "bonne" écriture de code….

Merci,

A+

[Qwazerty]

Salut

Je ne comprends pas, tu as lu le tutoriel de Silkyroad sur le sujet.
Donc tu devrais pouvoir nous proposer un code du style (pris brut dans le tutoriel):

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
 
Sub RequeteClasseurFerme_Excel2007()
    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 = "C:\Documents and Settings\mimi\dossier\NomClasseur.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
 
 
    '
    '... la requête ...
    '
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Donne nous plus de détails comme la version d'Excel que tu utilises, c'est dans un 1er temps ce qui va déterminer quel type de connexion choisir dans le chapitre III du tutoriel.
Il faudra également savoir ce que tu veux faire dans ce classeur exactement (écriture, lecture, modification,...) pour savoir quelle requête tu vas devoir utiliser.

Pour le fait de ne pas vouloir ouvrir le fichier... ma fois, il faut aussi parfois savoir commencer "petit" pour organiser un peu son code et avoir une meilleur idée de ce que l'on cherche à faire, avant de voir "grand".
Enfin ça n'est que mon avis.
++
Qwaz

[ericdev67]

Merci Qwazerty,

Merci pour tes conseils. j'ai Excel 2003

Mon problème est simple/compliqué….

C'est une gestion de notes de frais : J'ai 20 collègues qui doivent faire leurs frais. J'ai un classeur "C:/Base.xls" contenant tous les frais. Ce classeur est "lourd" et ma connexion au serveur (=au boulot) est super lente….chaque collègue renseigne environ 10 données.

J'ai essayé (grâce au super tuto de Silkyroad) :
*je suis 1 collègue, je fais mes frais, et la macro écrit les données dans "Base", via l'exemple de Silkyroad avec "l'écriture dans la cellule G30", cela fonctionne, mais super long…(20 secondes)
*Je suis un collègue, je fais mes frais, et la macro met à jour les données dans "Base", via l'exemple de Silkyroad avec "Mise à jour", cela fonctionne, mais toujours aussi super long..(plus de 30 secondes)

*J'ai essayé une autre méthode en ouvrant le classeur "Base" pour écrire les données, puis le refermer, cela fonctionne, mais idem, super long….

J'essaye donc de trouver une méthode "plus rapide" : un peut à l'identique de la remarque de Silkyroad dans son tuto :

Code :

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

='C:\Documents and Settings\mimi\dossier\excel\[ClasseurBase.xls]Feuil1'!$A$1

, mais "dans l'autre sens" c'est à dire au lieu de lire, d'écrire dans le classeur.

méthode qui me permettrait de ne pas ouvrir le classeur et donc de "perdre du temps à l'ouverture"…..

En te remerciant,

A+

[Marc-L]

Bonjour, bonjour,

peu importe la méthode, le réseau est toujours aussi lent ‼

Faire le test en local, si c'est plus rapide, pas de solution …