Erreur d'exécution 1004
Résolu
mir.kan
Messages postés
181
Statut
Membre
-
mir.kan Messages postés 181 Statut Membre -
mir.kan Messages postés 181 Statut Membre -
Bonjour à tous,
J'ai vraiment besoin de votre aide. En fait à chaque fois que j'exécute ma macro, l'erreur suivante survient: Windows Excel ne peut pas accéder au fichier. Plusieurs raisons sont possibles.
Ci dessous le code:
J'ai mis en gras l'erreur.
Merci d'avance
J'ai vraiment besoin de votre aide. En fait à chaque fois que j'exécute ma macro, l'erreur suivante survient: Windows Excel ne peut pas accéder au fichier. Plusieurs raisons sont possibles.
Ci dessous le code:
'Déclaration du répertoire de travail
Dim SRC As String
SRC = "\\mv0\Sta.SMS\Stag\Travaux\Automatisation \Documents\Développement\Futur Environnement\Archives du fichier'Plans Signés et Archivés'"
'Récupération année finalisation
AnneeDeFinalisation = DatePart("yyyy", DateDeFinalisation)
AdresseFichierArchivage = SRC & AnneeDeFinalisation & ".xlsm"
'L'ardresse du fichier d'archivage sera générée en fonction de l'année de la date de fin
Set ClasseurPlansSignesArchives = Application.Workbooks.OpenAdresseFichierArchivage)
J'ai mis en gras l'erreur.
Merci d'avance
1 réponse
-
Bonjour,
Set ClasseurPlansSignesArchives = Application.Workbooks.Open(Filename:=AdresseFichierArchivage)
-
-
-
-
Re,
Z'etes sure ???
AdresseFichierArchivage a pour contenu "\\mv0\Sta.SMS\Stag\Travaux\Automatisation \Documents\Développement\Futur Environnement\Archives du fichier'Plans Signés et Archivés'" & AnneeDeFinalisation & ".xlsm"
Ca c'est pas normale
apres test de votre code sans ouverture fichier et mis une date
AdresseFichierArchivage =
\\mv0\Sta.SMS\Stag\Travaux\Automatisation \Documents\Développement\Futur Environnement\Archives du fichier'Plans Signés et Archivés'2017.xlsm -
-
