OVH Cloud OVH Cloud

Erreur 1004

4 réponses
Avatar
velekinca
Salut, est que quelqu'un peut m'aider à ajouter quelque chose à ma macro svp...

je lie un fichier texte à un tableau excel, et je veux que quand je lance ma
macro, pour mettre les données à jour, si la macro ne trouve pas le fichier
texte, qu'elle me met un message du genre "fais le download d'abord"...

car pour le moment, excel m'affiche ceci :

"Erreur d'exécution 1004 :

Impossible de trouver le fichier texte pour l'actualisation de cette plage
de données externes.

Assurez-vous que le texte n'a été ni déplacé ni renommé et réessayez."

merci...

4 réponses

Avatar
JB
Bonjour,


NomFichier = "x.txt"
If Dir(NomFichier) = "" Then
MsgBox "fichier inconnu!"
Else
...
End If

Cordialement JB


Salut, est que quelqu'un peut m'aider à ajouter quelque chose à ma ma cro svp...

je lie un fichier texte à un tableau excel, et je veux que quand je lan ce ma
macro, pour mettre les données à jour, si la macro ne trouve pas le f ichier
texte, qu'elle me met un message du genre "fais le download d'abord"...

car pour le moment, excel m'affiche ceci :

"Erreur d'exécution 1004 :

Impossible de trouver le fichier texte pour l'actualisation de cette plage
de données externes.

Assurez-vous que le texte n'a été ni déplacé ni renommé et ré essayez."

merci...


Avatar
velekinca
Salut,

merci pour ta réponse, mais ca ne marche pas tout à fait comme je le veux,
en fait, le message s'affiche que le fichier existe ou pas... peux-tu stp me
dire comment faire pour que le message s'affiche seulement si le fichier
n'existe pas...

merci à toi et à bientôt j'espère

bien à toi

Velekinca


Bonjour,


NomFichier = "x.txt"
If Dir(NomFichier) = "" Then
MsgBox "fichier inconnu!"
Else
...
End If

Cordialement JB


Salut, est que quelqu'un peut m'aider à ajouter quelque chose à ma macro svp...

je lie un fichier texte à un tableau excel, et je veux que quand je lance ma
macro, pour mettre les données à jour, si la macro ne trouve pas le fichier
texte, qu'elle me met un message du genre "fais le download d'abord"...

car pour le moment, excel m'affiche ceci :

"Erreur d'exécution 1004 :

Impossible de trouver le fichier texte pour l'actualisation de cette plage
de données externes.

Assurez-vous que le texte n'a été ni déplacé ni renommé et réessayez."

merci...






Avatar
JB
Si le fichier n'est pas dans le répertoire courant,
Il faut spécifier le chemin : If dir("c:x.txt")="" then

On peut également la gestion d'erreur:

On Error Resume Next
Err = 0
ouverture du fichier texte
If Err = 1004 Then
MsgBox "inconnu"
Else
On Eroor goto 0
traitement normal
...
End If

JB



Salut,

merci pour ta réponse, mais ca ne marche pas tout à fait comme je le veux,
en fait, le message s'affiche que le fichier existe ou pas... peux-tu stp me
dire comment faire pour que le message s'affiche seulement si le fichier
n'existe pas...

merci à toi et à bientôt j'espère

bien à toi

Velekinca


Bonjour,


NomFichier = "x.txt"
If Dir(NomFichier) = "" Then
MsgBox "fichier inconnu!"
Else
...
End If

Cordialement JB


Salut, est que quelqu'un peut m'aider à ajouter quelque chose à m a macro svp...

je lie un fichier texte à un tableau excel, et je veux que quand je lance ma
macro, pour mettre les données à jour, si la macro ne trouve pas le fichier
texte, qu'elle me met un message du genre "fais le download d'abord". ..

car pour le moment, excel m'affiche ceci :

"Erreur d'exécution 1004 :

Impossible de trouver le fichier texte pour l'actualisation de cette plage
de données externes.

Assurez-vous que le texte n'a été ni déplacé ni renommé et réessayez."

merci...








Avatar
velekinca
ca marche très bien maintenant... merci à toi, et à bientôt.

Velekinca


Si le fichier n'est pas dans le répertoire courant,
Il faut spécifier le chemin : If dir("c:x.txt")="" then

On peut également la gestion d'erreur:

On Error Resume Next
Err = 0
ouverture du fichier texte
If Err = 1004 Then
MsgBox "inconnu"
Else
On Eroor goto 0
traitement normal
...
End If

JB



Salut,

merci pour ta réponse, mais ca ne marche pas tout à fait comme je le veux,
en fait, le message s'affiche que le fichier existe ou pas... peux-tu stp me
dire comment faire pour que le message s'affiche seulement si le fichier
n'existe pas...

merci à toi et à bientôt j'espère

bien à toi

Velekinca


Bonjour,


NomFichier = "x.txt"
If Dir(NomFichier) = "" Then
MsgBox "fichier inconnu!"
Else
...
End If

Cordialement JB


Salut, est que quelqu'un peut m'aider à ajouter quelque chose à ma macro svp...

je lie un fichier texte à un tableau excel, et je veux que quand je lance ma
macro, pour mettre les données à jour, si la macro ne trouve pas le fichier
texte, qu'elle me met un message du genre "fais le download d'abord"....

car pour le moment, excel m'affiche ceci :

"Erreur d'exécution 1004 :

Impossible de trouver le fichier texte pour l'actualisation de cette plage
de données externes.

Assurez-vous que le texte n'a été ni déplacé ni renommé et réessayez."

merci...