bonjour, voilà j'ai tapé mon code pour ouvrir un document word
éxistant, ça marche mais je voudrai qu'il passe par un parcourrir comme
si tu ouvrai un document
 
Voilà le code que j'ai tapé:     Si quelqu'un peut m'aider svp  
 

Moi j'utilise ça pour ouvrir un fichier excel, je sais pas si ça peut t'aider :  
 

 
Le "noopenError" me dit si le fichier a bien été ouvert (si l'utilisateur n'a appuyé sur cancel par exemple), et le fileName je te laisse deviner .

Le "noopenError" me dit si le fichier a bien été ouvert (si l'utilisateur n'a appuyé sur cancel par exemple), et le fileName je te laisse deviner    .

merci, mais ça ne marche pas.En fait, il me souligne "Dialog" et me dit
membre de méthode introuvable.Je crois parce que je n'ai pas créer une
msg box non?La réponse est stupide non?moi je le crois.
 

voilà ce que j'ai tapé:
 

Non, ça n'existe pas les questions stupides mais je ne peux rien te dire de plus à part que le but de ce que j'ai écrit est de parcourir des dossiers pour ouvrir un fichier et qu'ensuite je prends le nom du fichier ouvert grâce au classeur actif. Tu n'as donc pas besoin de lui indiquer "fileName = "document fixe"" et tu n'as pas besoin non plus de message box. Mais essaye de chercher dans le forum ou dans l'aide de word pour en savoir plus sur l'objet "Application". @+ Bonne chance.

Vu que « CreateObject("Word.Application" ) » est utilisé, ça veut dire qu'il s'agit d'OLE, donc que le code VBA n'est pas dans Word mais dans une autre application VBA.
Hisoka76, précise nous sous quel logiciel tu codes ta macro : Excel, Access ?
Sous Excel il faut utiliser la fonction GetOpenFilename()

VBA:access:ça y est j'ai trouvé, la boite de dialogue marche bien avec"choisissez un fichier existant" mais maintenant quand je clique sur le bouton ouvrir de mon document, il ne me l'ouvre pas:Voilà ce que j'ai tapé pouratnt ça me paraît bon!
 
Private Sub CmdOuvrir_Click()
    'Définitions des propriétés de la boîte de dialogue'
    CMDialog1.DialogTitle = "Choisissez un fichier"
    CMDialog1.CancelError = True
    CMDialog1.Filter = True
    CMDialog1.Filter = "Tous les fichiers(*.*)|*.*"
    CMDialog1.FilterIndex = 1
    CMDialog1.InitDir = "C:\Documents and Settings"
     
    'Définition de la routine de renvoi d'erreur
    On Error GoTo ExitCmdOuvrir
    'Affichage de la boîte de dialogue
    CMDialog1.ShowOpen
    'Ouverture du fichier sélectionné'
    Open CMDialog1.Filename For Input As #1
    appWrd.Visible = True
    Exit Sub
ExitCmdOuvrir:
    'Sortie sans provoquer d'erreur
 
End Sub

Tu mélanges des trucs là. J'ai pas trop le temps de détailler mais « Open CMDialog1.Filename For Input As #1  » ouvre un fichier au sens système d'exploitation, pas Word.
Il faut que tu utilises la fonction VBA Word idoine, appliquée à ton objet appWrd.

Je suis d'accord avec toi mais justement je veux ouvrir un document éxistant Word donc je suis obligé de passer par le système d'exploitation.J'ai utilisé aussi ta f(x) mais elle ne marche     pas; ça me donne toujours le même résultat.Désolé j'aurai du te faire voir dans le module ma déclaration, tu comprend puisque j'ai déclaré appWrd:
 
Dim appWrd As Word.Application

Est-ce bien cela qui conviendrait ?  

Cordialement
Epéna

Cordialement
Epéna
Cà marche merci beaucoup

bonjour j'ai voulu essayer le macro avec access mais dans le module il m'affiche ceci comme message : type défini par l'utilisateur non défini
 aidez moi