Discussion :

[julien030881]

Bonjour,
J'ai créé un tableau excel pour un suivi d'activité. (DEVIS, FACTURATION, etc...). Il sera en lien avec des documents word . pour le moment j'ai fait la partie DEVIS. lorsque je double clique dans une cellule de la colonne A où figure les numéros de devis, un document word s'ouvre et se remplit avec les infos présentes dans les cellules de la même ligne entre autre.
Quand j'essaie d'ouvrir ceci depuis un mac, rien ne fonctionne. Quelqu'un aurait il les compétences pour adapter le code ci dessous et m'éclairer sur les différences du coup.


ci dessous le début du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Application.Intersect(Target, Range("A2:a1000")) Is Nothing Then
 
MsgBox ("salut" & Target & " " & ThisWorkbook.Path)
Dim D1 As String, D1a As String, D2 As String, D2a As String, D3 As String, D3a As String
D1 = InputBox("Description ligne 1")
D1a = InputBox("quantité ligne 1")
D2 = InputBox("Description ligne 2")
D2a = InputBox("quantité ligne 2")
D3 = InputBox("Description ligne 3")
D3a = InputBox("quantité ligne 3")
 
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'Dim repert As String
 
repert = Thisworbook.Path & "\"
Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(repert & "devisEURL.docx", ReadOnly:=False) 'ouvre document word
WordApp.Visible = True
 
 
WordDoc.Bookmarks("signet2").Range.Text = Target 'n° devis
WordDoc.Bookmarks("signet3").Range.Text = Target.Offset(0, 1) 'date devis
WordDoc.Bookmarks("signet4").Range.Text = Target.Offset(0, 2) ' client
WordDoc.Bookmarks("signet5").Range.Text = Target.Offset(0, 3) ' nom de projet
WordDoc.Bookmarks("signet6").Range.Text = D1 ' description ligne 1
WordDoc.Bookmarks("signet7").Range.Text = Target.Offset(0, 5) ' montant unit
WordDoc.Bookmarks("signet8").Range.Text = Target.Offset(0, 6) ' TVA
WordDoc.Bookmarks("signet9").Range.Text = Target.Offset(0, 5).Value + Target.Offset(0, 6).Value 'TOTAL
 
 
WordDoc.Bookmarks("signet10").Range.Text = Application.VLookup(Target.Offset(0, 2), Sheets("CLients").Range("B2:R100"), 2, False) ' adresse 1 client
WordDoc.Bookmarks("signet12").Range.Text = Application.VLookup(Target.Offset(0, 2), Sheets("CLients").Range("B2:R100"), 3, False) ' CP client
WordDoc.Bookmarks("signet13").Range.Text = Application.VLookup(Target.Offset(0, 2), Sheets("CLients").Range("B2:R100"), 4, False) ' ville client
WordDoc.Bookmarks("signet14").Range.Text = Application.VLookup(Target.Offset(0, 2), Sheets("CLients").Range("B2:R100"), 17, False) ' conditions paiement client
 
End If
End Sub

Merci d'avance

[kiki29]

Salut, peut-être qqs infos ici

P.-S. : Il est souhaitable de baliser son code

[Menhir]

Quand j'essaie d'ouvrir ceci depuis un mac, rien ne fonctionne.

"Rien ne fonctionne", ça n'est pas très explicite comme explication de dysfonctionnement...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

repert = Thisworbook.Path & "\"

Je n'ai (quasiment) jamais utilisé de Mac mais il me semble que le séparateur de répertoire d'un chemin n'est pas l'antislash.

Je te conseille d'utiliser la propriété OperatingSystem de Application pour déterminer si l'application tourne sous MacOS ou Windows et de modifier les morceaux de codes qui ne sont pas commun en séparant les deux dans une structure If.
https://msdn.microsoft.com/library/a...ice.15%29.aspx

[eriiic]

Bonjour,

pour compléter Application.PathSeparator te donne le séparateur a utiliser.
eric

[RyuAutodidacte]

Bonjour,

Les séparateurs :
• Excel Mac 2011 : Séparateur => ":"
• Excel Mac 2016 : Séparateur => "/"
• Excel PC : Séparateur => "\"

Comme le précise Eric (que je salue) l'utilisation dans le cas d'un chemin pouvant être déterminé automatiquement,
en l’occurrence grâce à ThisWorkbook.Path, alors autant utilisé sa suggestion :
Application.PathSeparator

Ce qui peut être fait pour moins de lourdeur par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Sep as String
   Sep = Application.PathSeparator
' puis utilisation de Sep dans les chemins, là où c'est nécessaire

Maintenant sur Mac, il faut éviter tout ce qui est propre au PC, comme les ActiveX (qu'on peut trouver dans des useform parfois) ou les DLL …

Concernant l'ouverture de Word via Excel, je ne l'ai jamais fait, je ferai un test quand j'aurais un moment

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(repert & "devisEURL.docx", ReadOnly:=False) 'ouvre document word

Perso, pour ouvrir un document Word, je préfère passer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WordDoc = GetObject(repert & "devisEURL.docx")