Retour au site
Connexion : S'inscrire

FAQ
Forum Programmation
7 messages
Filtrer ok

Comment ouvrir une page Word par une image sous VBA ACCESS

Un expert informatique vous aide immédiatement par téléphone.
le 27 Juin 07 à 15h06
 
bonjour,
voila j'ai un formulaire et j'aimerais en cliquant sur une image que l'on puisse ouvrir une page Word, comment puis-je faire par code VBA ??
Merci d'avance pour votre aide!!
Edité le 28/06/2007 à 08:25
 
 
Contacter le membreVoir profil
gcc
le 27 Juin 07 à 16h46
 
Dans l'évènement onclick, tu utilises la commande shell()
 
 
le 27 Juin 07 à 16h50
 
ben voila ce que je vien d'essayer mais cela ne fonctionne pas :
Code :
Private Sub Image211_Click()
 
 Shell ("X:\Comptes Utilisateurs\stagebeluc\Loïc\perso.doc")
 
End Sub

voila!!
 
 
Voir profilContacter le membre
gcc
le 27 Juin 07 à 17h50
 
Pas de parenthèses avec les sub, seulement avec les fonctions !

essaie
argument = "X:"Comptes Utilisateurs"stagebeluc"Loïc"perso.doc"
shell "winword.exe "+argument , true
(attention à l'espace après le .exe)
 
 
le 28 Juin 07 à 08h24
 
bonjour gcc,
donc tout d'abord pour mon Sub, j'ai essayé en enlevant les () mais il les remets immédiatements.
Puis, j'ai essayé ce que tu ma di d'essayer mes il y a toujours un problème c'est à dire qu'il m'affiche le message suivant :
Erreur d'execution '5': Argument ou appel de procédure incorrect

mon code est le suivant :
Code :
Private Sub Image211_Click()
 
 Dim argument As String
 
 argument = "X:\Comptes Utilisateurs\stagebeluc\Loïc\perso.doc"
 Shell "winword.exe " + argument, True
 
End Sub


Voila, je croit que tu sait tout!!
donc gcc, je voulais te prévenir que j'avais réussi de la manière suivante :
Code :
Private Sub Image211_Click()
On Error Resume Next
 Dim W_App As New Word.Application
 
 With W_App
 .Visible = True
 .Documents.Open ("X:\Comptes Utilisateurs\stagebeluc\Loïc\perso.doc")
 End With
 Set W_App = Nothing
 
End Sub


voila!!
 
 
Voir profilContacter le membre
gcc
le 28 Juin 07 à 08h37
 
donc tout d'abord pour mon Sub, j'ai essayé en enlevant les () mais il les remets immédiatements.
Je parlais des parenthèses à l'intérieur des Sub(), donc pour toi à la ligne shell ....

Pour ta source d'erreurs, il y a 2 choses
D'abord, il faudrait remplacer true par la taille de fenêtre souhaitée pour l'ouverture de winword (ex vbNormalFocus)
Ensuite il faut remplacer la syntaxe Winword.exe argument par Winword.exe "argument"
donc au final, tu vas avoir
Shell "winword.exe " + Chr(34) + Argument + Chr(34), vbNormalFocus

Edit
(toujours avec un espace entre exe et le guillemet)
Edité le 28/06/2007 à 08:40
 
 
le 28 Juin 07 à 08h42
 
ok, merci pour ton aide mais comme je t'ai dit sur le message qui se situe au dessus du tien, j'ai trouvé la solution!!
merci quand même!!
 
 

|
 
7 messages
Un expert informatique vous aide immédiatement par téléphone.
Filtrer ok
 
Vous devez être connecté pour écrire un message !
 

 Sujets Similaires:

Access et fichiers incorporés - Extraire via VBA des champs images Actualiser un sous-formulaire Access - Access/VBA Coder et colorier doublons dans Access - VBA(coder&colorier doublons)sous Access Comment générer un document Word à partir d'Access Comment savoir si fichier XLS existe ou po via code VBA Access!! Création d'un dossier jaune sous VBA Access Duplication d'une base Access en VBA - Dupli. auto d'une base en 200 exemplaire Excel access - ouvrir access depuis excel en vba Exécution TRES lente de Vba sous access. Grande Taille, compacter? Help ! - Transfert Excel-->Access en VBA Image sous word - Récupérer l'image PB access VBA - Piloter la valeur d'un contrôle en VBA Problème sous access 2003 VBA - liaison de deux formulaires Saut de page sous Access 2000 - position du saut de page VBA + Access : Encoder une String en MD5 VBA ACCESS "INSERT INTO xxxx SELECT yyyy" - attente de la sélection Word : en-tête de page - comment ne pas mettre sur la 1ere page [Access/VBA] Problème avec datagrid - incompatibilité entre Acess 2000 et 2003 [RESOLU] [VBA] La molette sous VBA Excel ! - Comment l'activer ? [VBA ACCESS] Récupération de date