mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 2010
-
9 mars 2007 à 16:36
mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 2010
-
19 mars 2007 à 14:05
Bonjour,
j'essaye d'ouvrir un fichier excel via access mais sans succès. L'idée c'est de créer une macro mais j'échoue à chaque fois. Je crée ma macro, je choisis comme action "ExécuterApplication", je spécifie dans la ligne de commande le chemin complet d'accès au fichier (Test. xls) :
"[file://\\alpha.beta.fr\data\Projets\XXX\Commun\1-A\FICHIERS \\alpha.beta.fr\data\Projets\XXX\Commun\1-A\FICHIERS] POUR IMPORT\Test.xls"
Ensuite j'ouvre outils, macro et j'inscris le code suivant:
Sub Macro1()
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Workbooks.Open ("[file://alpha.beta.fr/data/Projets/XXX/Commun/1-A/FICHIERS \\alpha.beta.fr\data\Projets\XXX\Commun\1-A\FICHIERS] POUR IMPORT\Test.xls"")
AppExcel.Visible = True
On Error Resume Next
AppExcel.UserControl = True
AppExcel.Close
HUGOFLASH
Messages postés27Date d'inscriptionvendredi 10 octobre 2003StatutMembreDernière intervention 5 juin 2007 9 mars 2007 à 17:58
Bonjour,
Voici le code:
Public Sub Macro1()
dim objExcel as Object
set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.open( "Ton Fichier")
objExcel.visible=True
objExcel.UserControl = True
Set objExcel = Nothing
End Sub
mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 20101 12 mars 2007 à 11:31
Bonjour,
J'ai essayé mille fois avant de répondre...je n'y arrive pas. Il y a du mieux car la macro tourne mais elle échoue sur le chemin d'accès apparemment ( le chemin d'accès à l'application n'est pas valide)
Voici le paramétrage que j'ai codé:
Public Sub Macro1()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open ("[file://\\alpha\data\Projets\CA \\alpha\data\Projets\CA] DOC\Commun\1-Administration CA\1-Df\C-SHER\FICHIERS POUR IMPORT\Liasse Convertie (Sans partenaire).xls")
objExcel.Visible = True
objExcel.UserControl = True
Set objExcel = Nothing
End Sub
dans la ligne de commande j'ai mis:
"[file://alpha/data/Projets/CA \\alpha\data\Projets\CA] DOC\Commun\1-Administration CA\1-Df\C-SHER\FICHIERS POUR IMPORT\Liasse Convertie (Sans partenaire).xls"
Une idée? Dals les références pour la macro , j'ai mis excel 11.0 car je n'ai que cela apparemment...
mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 20101 12 mars 2007 à 18:57
le chemin d'accès que j'utilise dans la ligne de commande me permet bien d'accéder à mon fichier.
En revanche je ne sais pas si le paramétrage VBA est bon??
Public Sub Macro1()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open ("[file://alpha/data/Projets/CA \\alpha\data\Projets\CA] DOC\Commun\1-Administration CA\1-Df\C-SHER\FICHIERS POUR IMPORT\Liasse Convertie (Sans partenaire).xls")
objExcel.Visible = True
objExcel.UserControl = True
Set objExcel = Nothing
End Sub
Que dois-je mettre dans la parenthèse objExcel.Workbooks.Open ???
mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 20101 12 mars 2007 à 23:01
Bonsoir,
Le fichier se trouve en effet sur un réseau. J'avais testé sur mon disque dur mais sans succès. Je réessaye en incluant tes dernières remarques. Pense aussi que c'est peut-être pour cela que ca plante!
mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 20101 13 mars 2007 à 10:58
Bonjour,
Il y a du beaucoup mieux mais je n'ai pas encore la solution définitive :(
J'arrive désormais à ouvrir le fichier excel qd celui ci est sur le bureau mais j'ai encore un souci, il faut que je lance la macro depuis la fenêtre de code vba sinon ca ne marche pas qd je double click sur la macro ds la vue macro.
Qql a une idée pour ce qui concerne le contournement du problème de localisation du fichier sur un réseau?? Visiblement access n aime pas.
mgued
Messages postés7Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention23 juin 20101 13 mars 2007 à 11:25
C Cool. Ca marche également sur le réseau mais il manque un truc. Il faut que je passe par outils/ Macros/ Executer pour que ma macro se déclenche. Elle ne se lance pas sur un double click en vue Macro.
Une idée?