Macro excel ne marchant pas sur un autre PC
Résolu
PierreBKK
-
PierreBKK -
PierreBKK -
Bonjour,
J'ai construit un fichier excel avec une Macro pour imprimer selectivement des zones (en papier + pdf), mais quand je le donne a mes collegues, la macro ne fonctionne pas sur leur PC (ils ont exactement la meme config que moi, et autorisent les macros).
Le message Excel est le suivant "Run time error 76, path not found". Le code inclu des cibles/destinations qui sont sur mon PC, comment faire pour que ces cibles/destinations soient automatiquement trouvee sur un autre PC?
Voici le code:
Columns("B:C").Select
Range("C13").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ChDir "C:\Users\Pierre\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Pierre\Desktop\FORMULATIONS TEMPLATE 3.1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=2, OpenAfterPublish:=True
Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Range("D4:E4").Select
Merci pour votre aide!
Pierre
Config: Excel 2010 sur Windows 7
J'ai construit un fichier excel avec une Macro pour imprimer selectivement des zones (en papier + pdf), mais quand je le donne a mes collegues, la macro ne fonctionne pas sur leur PC (ils ont exactement la meme config que moi, et autorisent les macros).
Le message Excel est le suivant "Run time error 76, path not found". Le code inclu des cibles/destinations qui sont sur mon PC, comment faire pour que ces cibles/destinations soient automatiquement trouvee sur un autre PC?
Voici le code:
Columns("B:C").Select
Range("C13").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ChDir "C:\Users\Pierre\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Pierre\Desktop\FORMULATIONS TEMPLATE 3.1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=2, OpenAfterPublish:=True
Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Range("D4:E4").Select
Merci pour votre aide!
Pierre
Config: Excel 2010 sur Windows 7
A voir également:
- Macro excel ne marchant pas sur un autre PC
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Réinitialiser un pc - Guide
- Mon pc s'allume mais ne démarre pas windows 10 - Guide
- Télécharger musique gratuitement sur pc - Télécharger - Conversion & Extraction
- Liste déroulante excel - Guide
3 réponses
Bonjour,
Je n'y connais rien, mais le message Path not found signifie Chemin non-trouvé.
Et justement, je note un chemin absolu commençant par :
Il est probable que je sois totalement dans les choux, mais c'est ce qui me semble le plus logique.
Mourir nuit gravement à votre santé.
Je n'y connais rien, mais le message Path not found signifie Chemin non-trouvé.
Et justement, je note un chemin absolu commençant par :
C:\Users\Pierre\Je doute que vos collègues aient tous une session nommée Pierre ;). Donc, ce chemin serait erroné (il doit être possible de faire un chemin relatif).
Il est probable que je sois totalement dans les choux, mais c'est ce qui me semble le plus logique.
Mourir nuit gravement à votre santé.
Bonjour
Tiobet a entièrement raison ( et encore 1 +)
essaies
pour le filename pdf, normalement tu n'as pas besoin de repréciser le chemin puisque chdir a fait que l'on est dans le répertoire actif
Filename:= "FORMULATIONS TEMPLATE 3.1.pdf"
sinon tu peux toujours écrire
Filename:= chemin & "\FORMULATIONS TEMPLATE 3.1.pdf"
Tiobet a entièrement raison ( et encore 1 +)
essaies
chemin=Thisworkbook.path chdir chemin
pour le filename pdf, normalement tu n'as pas besoin de repréciser le chemin puisque chdir a fait que l'on est dans le répertoire actif
Filename:= "FORMULATIONS TEMPLATE 3.1.pdf"
sinon tu peux toujours écrire
Filename:= chemin & "\FORMULATIONS TEMPLATE 3.1.pdf"