Discussion :

[nicoosito]

Bonjour,

Je possède un module sous excel, dont le code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Import_OWR()
 
Application.ScreenUpdating = False
'Masque l'execution
 
Workbooks.Open Filename:= _
        "T:\xxx\Fxxxx\Operation xxxxxx\Import\Fichier xls-access\Import.xls"
 
Workbooks.Open Filename:= _
        "T:\xxx\Fixxx\Operation xxxx reports\Import\Operations xxx Report 2010.xls"
 
 
End Sub

Lorsque j'execute ce module pas de problème sous excel, les deux fichiers s'ouvrent. Mais lorsque je copie le code dans un module access, ca ne marche pas !

Merci

Bonne journée

[Merryvor]

Dans la page VB, dans le menu outils, puis référence, il faut que tu ajoute la bibliothèque relative à Microsoft excel.
Elle s'appelle Microsoft Excel 12.0 Object Library.
Ce n'est peut-être pas la 12.0, mais un équivalent.

[nicoosito]

Merci, maitenant ca ne marque plus de message d'erreur. Mais ca me met le sablier et ca fini par planter, sans ouvrir aucun fichier...

[Jean-Philippe André]

Salut,
si tu travailles sous Access, il serait bon de creer des instances d'Excel

Code :

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

Dim XlApp as New Excel.Application

et de travailler avec cette instance

Code :

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

1
2
XlApp.Workbooks.Open Filename:= _
        "T:\xxx\Fxxxx\Operation xxxxxx\Import\Fichier xls-access\Import.xls"

[nicoosito]

Je viens d'essayer, ca me met le sablier pendant 5s, et puis rien...

[Jean-Philippe André]

Si tu peux etre plus explicite,
tu ouvres les fichiers mais que souhaites tu en faire ?
Pour voir les fichiers en eux meme il faut rendre visible l'application Excel

Code :

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

XLApp.Visible = True

[nicoosito]

Merci, ca fonctionne sans problème.

En faite, ce que je cherche à faire, c'est qu'Access m'ouvre le fichier excel, active automatiquement les macros et lance une macro de ce fichier excel puis le referme.

[Jean-Philippe André]

OK,
et tu t'en sors sur les etapes suivantes ou tu as encore des soucis ?

[nicoosito]

Il se trouve en faite que non, car losque je souhaite lancer la macro à l'aide de l'unes des commandes suivantes :

Code :

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

Application.Run "Import.xls!Macro3"

ou

Code :

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

Application.Run "Import.xls!Module1.Macro3"

Access me dit qu'il ne peut pas trouver la procédure...

De plus je ne sais pas si les macros sont activées à l'ouverture du fichier

[Jean-Philippe André]

Ok,
comment s'appelle la fonction/procedure que tu souhaites lancer ?

Peut-etre penser a la renommer en un nom plus explicite

La indique la syntaxe a utiliser :
http://vb.developpez.com/faqvba/?page=3.1.2#Run
Ne pas oublier d'indiquer quelle application doit "runner" la macro, ici XlApp

[nicoosito]

Merci beaucoup

Et j'ai une autre petit question comment fait t'on pour aller à la ligne, c'est à dire couper en deux le code suivant :

Code :

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

1
2
Range( _
        "D60:G60,I60:L60,N60:R60,T60:X60,Z60:AD60,AF60:AJ60,AL60:AP60,AR60:AV60,AX60:BB60,BD60:BH60,BJ60:BN60,BP60:BT60,").Select

[ClaudeLELOUP]

Bonjour,

Code :

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

1
2
3
4
5
6
 
Dim Morceau as string
Morceau = "D60:G60,I60:L60,N60:R60,T60:X60,"
Morceau = Morceau & "Z60:AD60,AF60:AJ60,AL60:AP60,AR60:AV60,AX60:BB60,BD60:BH60,"
Morceau = Morceau & "......."
Range(Morceau)

[nicoosito]

Bonjour,

Cela marche sauf que au bout de la troisième ligne il me met une erreur, en disant : "la méthode Range de l'objet global à échoué"....

[nicoosito]

Le problème vient du Range(Morceau).select apparement

[Jean-Philippe André]

Salut,
on peut avoir ton code actuel stp ?
Histoire de voir si on trouve d'autres explications d'erreur

[nicoosito]

Bonjour,
Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim Selection1 As String
Windows("Operation.xls").Activate
 
Selection1 = "D13:G13,I13:L13,N13:R13,T13:X13,Z13:AD13,AF13:AJ13,AL13:AP13,AR13:AV13,AX13:BB13,BD13:BH13,BJ13:BN13,BP13:BT13,"
Selection1 = Selection1 & "D14:G14,I14:L14,N14:R14,T14:X14,Z14:AD14,AF14:AJ14,AL14:AP14,AR14:AV14,AX14:BB14,BD14:BH14,BJ14:BN14,BP14:BT14,"
Selection1 = Selection1 & "D18:G18,I18:L18,N18:R18,T18:X18,Z18:AD18,AF18:AJ18,AL18:AP18,AR18:AV18,AX18:BB18,BD18:BH18,BJ18:BN18,BP18:BT18"
 
Range(Selection1).Select

[Jean-Philippe André]

N'oublie pas que tu es dans Access, l'objet Range n'est pas natif.

Attache ton Range a ta feuille