> Tous les forums > Forum Bureautique
 Ouvrir .doc à partir de son nom dans celluleSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vieuxmonsieur
  Posté le 29/02/2012 @ 15:03 
Aller en bas de la page 
Astucien

Bonjour à tous,

Je souhaiterais savoir comment, à partir d'une cellule Excel qui contient le Nom du Fichier.doc, (en B7 dela Feuille1) ouvrir ce document Word dont le chemin est :

E:\Utilisateurs\Jean\Documents\Travail\EnCours\NomFichier.doc

le nom du fichier se trouve dans la cellule B7 de la feuille "accueil" et nomme : mafiche


Merci d'avance à tous,



Modifié par vieuxmonsieur le 29/02/2012 17:16
Publicité
qmike549
 Posté le 29/02/2012 à 15:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Se positionner sur la cellule concerné

Appuyer sur les touches CTRL + k

Entrer le lien

vieuxmonsieur
 Posté le 29/02/2012 à 16:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour qmike,

content de te retrouver, je coince sur la partie surlignée

wordApp.Documents.Open Filename:="C:\Travail\EnCours\" & .Value=Value Sel("B7") & ".doc"

le nom du document word a ouvrir se trouve dans la cellule B7 de la feuille "accueil"

en te remerciant.



Modifié par vieuxmonsieur le 29/02/2012 17:13
qmike549
 Posté le 29/02/2012 à 18:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

tu n'avais pas préciser que tu voulais le faire en VBA

pour info le principe est le suivant :

Lien à partir d'une cellule

ActiveWorkbook.FollowHyperlink Address:=Range("B7")
vieuxmonsieur
 Posté le 29/02/2012 à 19:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

excuse-moi de n'avoir pas precise que c'etait en vba, je bloque sur cette ligne :

'Le nom du fichier est récupérer dans B7 de la feuille Sel

NomDuFichier = Sheets("Sel").Range("B7").Value

x = Shell("C:\Program Files\Microsoft Office\Office11\WINWORD C:\Cantiques\FichesBibliques\" & NomDuFichier & ".doc", vbNormalFocus)

qmike549
 Posté le 01/03/2012 à 13:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

C:\Program Files\Microsoft Office\Office11\WINWORD C:\Cantiques\FichesBibliques\" & NomDuFichier & ".doc", vbNormalFocus


il faut au moins séparer les champs par ""

"C:\Program Files\Microsoft Office\Office11\WINWORD" "C:\Cantiques\FichesBibliques\" & NomDuFichier & ".doc",

vieuxmonsieur
 Posté le 01/03/2012 à 14:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

re,

' J'ouvre le document Word x = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD"

x = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD" "E:\Utilisateurs\Castor\Documents\Cantiques\FichesBibliques\" & NomDuFichier & ".doc",

Erreur de compilation:

Ca me met erreur de syntaxe

vieuxmonsieur
 Posté le 01/03/2012 à 20:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

le code :

Sub OuvrirFichier()
Dim objWord As Object, docWord As Object
Dim Chemin As String, NomDuFichier As String
' à adapter avec \ en fin du chemin
Chemin = ThisWorkbook.Path & "\FichesBiblique\"   'Répertoire
NomDuFichier = ThisWorkbook.Worksheets("Sel").Range("B7").Value & ".doc"    'Nom du fichier
MsgBox Chemin & NomDuFichier
If Dir(Chemin & NomDuFichier) <> "" Then
    ' Jouvre une session Word
    Set objWord = CreateObject("Word.application")
    With objWord
        Set docWord = .Documents.Open(Chemin & NomDuFichier)
        .Visible = True
        'Ici le code pour travailler sur le fichier Word ouvert
        '(Contenu dans la variable docWord
        '......
        MsgBox "Document Word ouvert"
    End With
    Set objWord = Nothing
Else
    MsgBox "Ce fichier n'est pas disponible dans le dossier : FichesBibliques"
End If
End Sub
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
399,90 €Pack AMD Ryzen 5 5600X + carte mère Asus TUF-B550-GAMING-PLUS à 399,90 €
Valable jusqu'au 04 Décembre

RueDuCommerce fait une promotion sur un pack évolution comprenant un processeur Amd Ryzen 5 5600X (6 coeurs, 12 threads, 3.7/4.6 GHz) et une carte mère Asus TUF-B550-GAMING-PLUS à 399,90 €. On trouve le processeur seul autour de 310 € et la carte mère à partir de 120 €. 


> Voir l'offre
74,99 €Alimentation modulaire Corsair RM650 80+ Gold à 74,99 €
Valable jusqu'au 03 Décembre

Cdiscount propose actuellement l'alimentation modulaire Corsair RM650 à 74,99 €. Cette alimentation de 650W est certifiée 80+ Gold et est garantie 10 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. On la trouve ailleurs à partir de 100 €. 


> Voir l'offre
149,96 €Ecran PC 23.8 pouces Dell S2422HG (incurvé, FullHD, VA, 165 Hz, 1 ms, FreeSync) à 149,96 € (via ODR)
Valable jusqu'au 04 Décembre

LDLC  fait une promotion sur l'écran PC 23.8 pouces Dell S2422HG qui passe à 199,96 € au lieu de 220 € ailleurs. Or Dell rembourse actuellement 50 € sur cet écran qui vous reviendra à 149,96 € après remboursement.

Cet écran possède une dalle incurvée VA Full HD (1920x1080) à 165 Hz et avec un temps de réponse de 1 ms. Il est compatible FreeSync (et GSync via Adaptive Sync). La hauteur et l'inclinaison de l'écran sont réglables. 2 ports HDMI et 1 port DP.


> Voir l'offre

Sujets relatifs
impossible ouvrir mails dans windows mail
case à cocher dans cellule Excel 2010
Recopie cellule dans un autre classeur
Word 2007-Texte centré dans une cellule
toutes les données dans une cellule
Probleme de chiffre dans cellule
se positionner avec une macro dans une cellule précise
0.00€ dans cellule
Excel: Faire apparaître dans cellule nom sélection
Excel: valeur cellule impliquée dans calcul ailleurs -> connexions
Plus de sujets relatifs à Ouvrir .doc à partir de son nom dans cellule
 > Tous les forums > Forum Bureautique