Compatibilité macro excel 365 vers excel mac 2016

Version imprimable

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:

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

05/05/2018, 10h49
kiki29

Salut, peut-être qqs infos ici

P.-S. : Il est souhaitable de baliser son code
14/05/2018, 09h29
Menhir

Citation:

Envoyé par julien030881

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... :?

Citation:

Code:

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
14/05/2018, 12h54
eriiic

Bonjour,

pour compléter Application.PathSeparator te donne le séparateur a utiliser.
eric
14/05/2018, 13h13
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:

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

Citation:
Code:

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:

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