besoin d'aide pour modif ligne de commande

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

letroubadour

XLDnaute Occasionnel
bonsoir

la ligne suivante ouvre un fichier .doc , le chemin est dans la macro

Code: 
Set WordDoc = WordApp.Documents.Open("C:\Users\lulu\Desktop\MODELE.doc")

j'ai bien cette ligne mais comment la placer dans la macro j'ai une erreur

Sheets("Feuil1").Range("M3").Value

quelqu'un pourrait il modifier la commande pour ouvrir le fichier , le chemin sera écrit en feuil1 cellule M3

merci

RAPHAEL
 
Dernière édition:
Trier par date Trier par votes
Re : besoin d'aide pour modif ligne de commande

bonjour,

essaie comme ça :

Code: 
Sub OuvrirDoc()

Dim WordDoc As Object
Dim DocLien As String

DocLien = Sheets("Feuil1").Range("M3").Value
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open DocLien

End Sub

slt
 
Dernière édition:
Vote positif 0 Vote négatif
Re : besoin d'aide pour modif ligne de commande

merci pour cette réponse , en fait je voudrais que ça reste une ligne de commande et pas une macro

voici la macro que j'utilise

Code: 
Sub export_données_dans_signet_word(ligne)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open("C:\Users\lulu\Desktop\MODELE.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules

With Sheets("Feuil3").Activate
    WordDoc.Bookmarks("nom").Range.Text = Cells(ligne, 8)
End With

With Sheets("Feuil1").Activate
    WordDoc.Bookmarks("suivi").Range.Text = Cells(5, 14)
End With

With Sheets("Feuil1").Activate
    WordDoc.Bookmarks("mail").Range.Text = Cells(3, 22)
End With

WordApp.Visible = True 'affiche le document Word
WordDoc.PrintOut 'si on veut imprimer

 WordApp.DisplayAlerts = False
 WordApp.ActiveDocument.Close (False)
 WordApp.DisplayAlerts = True

WordApp.Quit 'ferme la session Word
End Sub


merci


RAPHAEL
 
Vote positif 0 Vote négatif
Re : besoin d'aide pour modif ligne de commande

pour que les futurs utilisateurs puissent modifier le chemins du fichiers à ouvrir sans aller dans la macro , je désire l'écrire dans la cellule M3 de la feuille 1 et modifier la 5° ligne de ma macro ou bien intégrer ta macro à la mienne.


merci Haytoch
 
Vote positif 0 Vote négatif
Re : besoin d'aide pour modif ligne de commande

OK 🙂 ,

a tester :

Code: 
Sub export_données_dans_signet_word(ligne)
'Dim WordApp As Word.Application
Dim WordDoc As Object
Dim DocLien As String

DocLien = Sheets("Feuil1").Range("M3").Value

Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(DocLien)  'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules

With Sheets("Feuil3").Activate
    WordDoc.Bookmarks("nom").Range.Text = Cells(ligne, 8)
End With

With Sheets("Feuil1").Activate
    WordDoc.Bookmarks("suivi").Range.Text = Cells(5, 14)
End With

With Sheets("Feuil1").Activate
    WordDoc.Bookmarks("mail").Range.Text = Cells(3, 22)
End With

WordApp.Visible = True 'affiche le document Word
WordDoc.PrintOut 'si on veut imprimer

 WordApp.DisplayAlerts = False
 WordApp.ActiveDocument.Close (False)
 WordApp.DisplayAlerts = True

WordApp.Quit 'ferme la session Word
End Sub
slt
haytoch
 
Vote positif 0 Vote négatif
Re : besoin d'aide pour modif ligne de commande

Voici le fichier en PJ , je te joints que le fichier excel , c'est là ou se trouve la macro.
la macro en question est dans le module 2

ce fichier me permet d'envoyer un mail ou bien un courrier lorsqu'une échéance est dépassée
la macro permet de prendre les cellules concernées par l'échéance est de les insérer sur un signet du document word, et j'imprime autant de feuille que d'alerte avec à chaque fois un destinataire différent.

ce que je veux c'est comme pour l'envoie de mail sur le feuille 1 M2 il y a le chemin d'écrit, n'importe qui peux le modifier sans aller dans la macro (voir module 1)
Code: 
myitem.Attachments.Add Sheets("Feuil1").Range("M2").Value


PS : si les feuilles sont protégées : code 281

merci

RAHAEL
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : besoin d'aide pour modif ligne de commande

Bonjour,

ton fichier me donne un erreur de compatibiulité (Chargement du Fichier DLL échouer) et se plante .

essaie de changer ton code comme suivant (pas tester merci de crée une backup a ton code )

Code: 
Sub export_données_dans_signet_word(ligne)
'Dim WordApp As Word.Application
Dim WordDoc As Object
Dim DocLien As String

DocLien = Sheets("Feuil1").Range("M3").Value
Set WordDoc = CreateObject("Word.Application")
WordDoc.Visible = False
WordDoc.Documents.Open DocLien

'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules

With Sheets("Feuil3").Activate
    WordDoc.Bookmarks("nom").Range.Text = Cells(ligne, 8)
End With

With Sheets("Feuil1").Activate
    WordDoc.Bookmarks("suivi").Range.Text = Cells(5, 14)
End With

With Sheets("Feuil1").Activate
    WordDoc.Bookmarks("mail").Range.Text = Cells(3, 22)
End With

WordApp.Visible = True 'affiche le document Word
WordDoc.PrintOut 'si on veut imprimer

 WordApp.DisplayAlerts = False
 WordApp.ActiveDocument.Close (False)
 WordApp.DisplayAlerts = True

WordApp.Quit 'ferme la session Word
End Sub
 
Vote positif 0 Vote négatif
Re : besoin d'aide pour modif ligne de commande

je viens d'essayer ça bloque sur la ligne suivante

Code: 
WordDoc.Bookmarks("nom").Range.Text = Cells(ligne, 8)

"erreur d'exécution '438'
propriété ou méthode non gérée par cette objet"

merci

RAPHAEL
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
699
fanch55
fanch55
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
370
Cousinhub
Cousinhub
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
565
firecarl
F
J
  • Question Question
XL 2019 Comment attendre la fin d'exécution de la macro pour passer à la ligne de VBA suivante ?
Réponses
8
Affichages
1 K
job75
job75
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
570
AtTheOne
AtTheOne
patricktoulon
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
744
patricktoulon
patricktoulon
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
849
Phil69970
Phil69970
E
  • Question Question
XL 2010 problème macro qui désactive le pavé numérique
2
Réponses
18
Affichages
2 K
Dranreb
Dranreb
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
804
Oneida
Oneida
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
834
guiyom
G
AugusteP
  • Question Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
1 K
AugusteP
AugusteP
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
1 K
heart clean
H
G
  • Question Question
XL pour MAC VBA export données Excel vers Signets word
Réponses
3
Affichages
1 K
Staple1600
Staple1600
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
Dranreb
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
Gégé-45550
C
  • Question Question
XL 2013 Insérer un fichier texte dans un dossier
Réponses
4
Affichages
682
coline741
C
F
  • Question Question
Microsoft 365 Excel.Workbook(File.Contents("C:\Book1.xlsx"))
Réponses
5
Affichages
1 K
fhuillier
F
Retour