erreur 1004 Résolu

Question

Bonjour,

J'ai une macro qui consiste à ouvrir un fichier qui se nomme "tuf" + une date (donc le nom du fichier change tous les jours).
Lorsque j'exécute cette macro, un message d'erreur s'affiche (erreur d'exécution '1004', 'tuf 30 mars.xls'introuvable.
Le fichier existe pourtant bien et se trouve dans le bon dossier.

Je joint la partie de la macro concernée
  
macro = ActiveWorkbook.Name

Chemin = "K:\dossier\SENSIBLE\alerte\"
tuf = Dir(Chemin & "tuf*")
Workbooks.Open Filename:=tuf

Auriez vous une petite idée du problème?
Merci

EDIT : Ajout des balises de code

jordane45 · Answer

Bonjour,

Première chose à faire lorsqu'on rencontre des soucis.. regarder ce que valent les variables
donc

macro = ActiveWorkbook.Name

Chemin = "K:\dossier\SENSIBLE\alerte\"
tuf = Dir(Chemin & "tuf*")

'//affichage de la variable TUF pour vérifier
debug.print (tuf)
' ou 
msgbox tuf

Workbooks.Open Filename:=tuf
 
 
Deuxième point à vérifier :
Le classeur que tu essayes d'ouvrir n'est il pas déjà utiliser ailleurs ?
As tu les droits en écriture sur le répertoire où se trouve le fichier ?
As-tu essayé de placer ce classeur dans un autre emplacement de ton disque dur et d'y accéder avec cette macro (en modifiant le chemin en conséquence bien entendu) ?

f894009 · Answer

Bonjour a vous deux,

Votre probleme vient de la variable tuf que vous ecrivez en tant que texte dans la ligne de code du

tuf = Dir(Chemin & <gras>"tuf*"</gras>)

ceci devrait aller: sauf si plusieurs fichiers nommes tufxxxxx.xls

Sub test()
    Chemin = "K:\dossier\SENSIBLE\alerte\"
    tuf = Dir(Chemin & tuf & "*.xls")
    'un fichier trouve ?
    If tuf <> "" Then
        Workbooks.Open Filename:=tuf
    Else
        MsgBox "pas de fichier trouvé!!!!!!!"
    End If
End Sub

debutant.excel · Answer

Bonjour f894009,

Je te remercie pour ta réponse. J'ai résolu ce problème.

Erreur 1004

3 réponses

Discussions similaires

Newsletters