Sub fouilledossier() Dim objWord As New Word.Application Dim cheminfichier As String Dim cheminfichier2 As String cheminfichier1 = "C:\Documents and Settings\toto\test1.doc" cheminfichier2 = "D:\Documents and Settings\toto\test.doc" If Len(Dir(cheminfichier1)) > 0 Then objWord.Documents.Open cheminfichier1 objWord.Visible = True Set objWord = Nothing ElseIf Len(Dir(cheminfichier2)) > 0 Then objWord.Documents.Open cheminfichier2 objWord.Visible = True Set objWord = Nothing End If End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Sub aide_ACCUEIL() On Error GoTo 1 Dim cheminaide As String cheminaide = Sheets("paramètres").Range("aide").Value signet = "#ACCUEIL" ThisWorkbook.FollowHyperlink cheminaide + signet, , True 1: Exit Sub End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.