StagiairePasPayé
XLDnaute Nouveau
Bonjour à tous,
je viens vers vous car encore une fois j'ai un problème.
Après avoir laborieusement créer une macro plutôt énorme, grandement grâce a vous, j'ai essayé de la passé sur le serveur de mon entreprise.
Sur mon ordinateur, aucun problème. Le problème apparaît lorsque j'essaye de l’exécuter depuis un autre pc/session.
Ma macro consiste a ouvrir 3 fichiers, sélectionner des info dedans et les recopier dans un quatrième.
Le problème survient lors de l'ouverture des 3 fichiers, Excel me renvoie une erreur 1004 : fichier introuvable.
Merci de votre aide.
je viens vers vous car encore une fois j'ai un problème.
Après avoir laborieusement créer une macro plutôt énorme, grandement grâce a vous, j'ai essayé de la passé sur le serveur de mon entreprise.
Sur mon ordinateur, aucun problème. Le problème apparaît lorsque j'essaye de l’exécuter depuis un autre pc/session.
Ma macro consiste a ouvrir 3 fichiers, sélectionner des info dedans et les recopier dans un quatrième.
Le problème survient lors de l'ouverture des 3 fichiers, Excel me renvoie une erreur 1004 : fichier introuvable.
Merci de votre aide.
VB:
'Modification necessaire si changement de fichier et/ou d'emplacement de fichier
Const nomFichierRecolement As String = "Suivi Recolement.xlsx"
Const nomFichierSuiviSydev As String = "Suivi SyDEV marché 2018.xls"
Const nomFichierCompta As String = "Global18.XLS"
Const nomFichierRecap As String = "recapitulatif_Affaire.xlsm"
Const WorkbookSuiviSydev As String = "U:\SOC\Infra_PLRE\Vendee\Commun\ETUDES\" & nomFichierSuiviSydev
Const WorkbookRecolement As String = "U:\SOC\Infra_PLRE\Vendee\BE\Commun\" & nomFichierRecolement
Const WorkbookCompta As String = "U:\SOC\Infra_PLRE\Credit-Cli\INFRA 85 CHALLANS\MARCHES\Sydev\AO2018\" & nomFichierCompta
Sub importLot1()
'creer le workbook'
Workbooks.Open (WorkbookSuiviSydev)
Workbooks.Open (WorkbookRecolement)
Workbooks.Open (WorkbookCompta)