Macro PC ne fonctionne pas sur mac Résolu/Fermé

Question

Bonjour, j'ai réalisé une macro sur pc et j'essaye de la faire fonctionner sur mac, en vain.

Si quelqu'un aurait une idée, sachant que je suis sur novice en macro

Sub ImporterDoc()
    Dim repertoire As String, fichier As String, objWord As Object
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document

    Set shDest = Worksheets("Feuil1")
    repertoire = ThisWorkbook.Path & ":"
    fichier = Dir(repertoire & "*.doc*")    'premier fichier doc, docx ligne en couleur 
    Worksheets("Feuil2").Activate
    [A1].Select
    Do While fichier <> ""
        Columns("A:B").Clear



Configuration: Mac OS X Lion (10.7.5) / Chrome 23.0.1271.101

moogu · Answer

merci

cordialement,

fabien

Le Pingou · Answer

Bonjour,
Est-il possible d'avoir le message d'erreur complet .... que vous recevez ...?
Et aussi la valeur de la variable [repertoire] !
  
  
Salutations. 
Le Pingou

moogu · Answer

lorsque je veux executer la macro il m'écris erreur d'execution 68, périphérique non disponible et ensuite j'ai la macro suivante : https://www.cjoint.com/?0LvpZTcfsLD  et la fin : https://www.cjoint.com/?0Lvp0ylFtD7

et qu'est ce que la valeur de la variable ??? :(

merci d'avance,


fabien

Le Pingou · Answer

Bonjour,
Merci, il faut aussi la valeur qui est passée à la variable [repertoire] (ce devrait-être une chaine qui représente le chemin du classeur) ... 
Pour la trouver il faut se positionner le curseur sur cette variable ...

moogu · Answer

Je ne trouve pas la variable en question ??? pourrais tu me donner quelques précisions en plus s'il te plait ???

merci d'avance,

Le Pingou · Answer

Bonjour,
Eh bien vous regardez dans votre premier message, elle se trouve juste au-dessus de la ligne en gras.... !

moogu · Answer

Bonjour,

le chemin complet du répertoire est :

Macintosh HD > Applications > parcdescedres

merci d'avance,


P.S. eric j'ai put essayer le fichier sous windows excel 2010 et il fonctionne parfaitement :) c'est au top merci.

Le Pingou · Answer

Bonjour,
Essayer avec cette écriture :
repertoire = ThisWorkbook.Path & Application.PathSeparator
fichier = Dir(repertoire , MacID("W8BN"))

moogu · Answer

Merci bien, mais malheureusement ça ne marche po :(

bonne fête,


cordialement,
moogu

Le Pingou · Answer

Bonjour,
Ça marche pas ne veut rien dire, pouvez-vous dire exactement ce que vous recevez comme messages ?
Note : vous aviez mentionné ceci :
le chemin complet du répertoire est :
Macintosh HD > Applications > parcdescedrese
D'accord mais je veux savoir la valeur qui se trouve dans la variable [repertoire] de votre macro ?

  
  
Salutations. 
Le Pingou

moogu · Answer

Bonsoir,

la variable qui ce trouve dans le repertoire est la suivante :

repertoire = ThisWorkbook.Path & ":"

que j'ai changé par celle que vous m'avez transmise, je n'ai plus de demande débogage depuis, mais la macro ne fonctionne pas, donc je ne comprend pas :(

tout à l'air clean pour tant, es que si je vous envoi une capture écran de la macro ça pourrait vous aidre ??

cordialement,
moogu

Le Pingou · Answer

Bonjour, 
Merci. 
Ce que vous écrivez:  
repertoire = ThisWorkbook.Path & ":"  

C'est la ligne de code (au passage ce n'est pas celui que je vous ai demandé d'écrire : repertoire = ThisWorkbook.Path & Application.PathSeparator) je veux le contenu de la variable [repertoire] (ce qu'elle contient exactement). 
Petite modification
Dans votre macro [ImporterDoc] vous insérez la ligne qui suit juste après [fichier=Dir(rep....)
Msgbox "le contenue de repertoire est : " & repertoire & "nom du fichier : " & fichier
Vous lancez la macro et le message doit apparaitre, faite une copie d'écran et la mettre sur https://www.cjoint.com/ et poster le lien. 
J'attends .... ! 
Salutations. 
Le Pingou

Macro PC ne fonctionne pas sur mac

12 réponses

Discussions similaires