Bonjour à tous,
J'ai besoin de changer le nom d'un fichier sur une disquette pour le faire
entrer dans access comme fichier Txt.Malheureusement il me dit qu'il ne
trouve pas le fichier
OldName = Dir("A:\")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt"
Name OldName As NewName ' Renomme le fichier. C'est ici
l'erreur pourtant les variables contiennent les valeurs désirées.
End If
Merci de m'avoir consacré de votre temps
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Torquemada
OldName = Dir("A:") If OldName = "hipocaen.dat" Then NewName = "A:hipocaen.txt" ' Définit les noms de fichiers. ActuName = "A:hipocaen.dat" Name ActuName As NewName ' Renomme le fichier. End If
OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "A:hipocaen.txt" ' Définit les noms de fichiers.
ActuName = "A:hipocaen.dat"
Name ActuName As NewName ' Renomme le fichier.
End If
OldName = Dir("A:") If OldName = "hipocaen.dat" Then NewName = "A:hipocaen.txt" ' Définit les noms de fichiers. ActuName = "A:hipocaen.dat" Name ActuName As NewName ' Renomme le fichier. End If
Yan
Salut, OldName & NewName doivent avoir le chemin d'accès complet... Dans ton cas OldName = "A:hipocaen.dat" et NewName = "A:hipocaen.txt".
Bye Yann
-----Message d'origine----- Bonjour à tous, J'ai besoin de changer le nom d'un fichier sur une disquette pour le faire
entrer dans access comme fichier Txt.Malheureusement il me dit qu'il ne
trouve pas le fichier
OldName = Dir("A:") If OldName = "hipocaen.dat" Then NewName = "hipocaen.txt" Name OldName As NewName ' Renomme le fichier. C'est ici
l'erreur pourtant les variables contiennent les valeurs désirées.
End If Merci de m'avoir consacré de votre temps
.
Salut,
OldName & NewName doivent avoir le chemin d'accès
complet... Dans ton cas OldName = "A:hipocaen.dat" et
NewName = "A:hipocaen.txt".
Bye
Yann
-----Message d'origine-----
Bonjour à tous,
J'ai besoin de changer le nom d'un fichier sur une
disquette pour le faire
entrer dans access comme fichier Txt.Malheureusement il
me dit qu'il ne
trouve pas le fichier
OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt"
Name OldName As NewName ' Renomme le
fichier. C'est ici
l'erreur pourtant les variables contiennent les valeurs
désirées.
Salut, OldName & NewName doivent avoir le chemin d'accès complet... Dans ton cas OldName = "A:hipocaen.dat" et NewName = "A:hipocaen.txt".
Bye Yann
-----Message d'origine----- Bonjour à tous, J'ai besoin de changer le nom d'un fichier sur une disquette pour le faire
entrer dans access comme fichier Txt.Malheureusement il me dit qu'il ne
trouve pas le fichier
OldName = Dir("A:") If OldName = "hipocaen.dat" Then NewName = "hipocaen.txt" Name OldName As NewName ' Renomme le fichier. C'est ici
l'erreur pourtant les variables contiennent les valeurs désirées.
End If Merci de m'avoir consacré de votre temps
.
Eric
Bonjour "Torquemada"
Essaies cela: Il faut préciser le chemin complet des fichiers et boucler car ce n'est pas forcément le 1er sur la disquette
Sub renomme() Dim OldName As String, NewName As String OldName = Dir("A:") Do While OldName <> "" If OldName= "hipocaen.dat" Then OldName="A:" & OldName NewName = "A:hipocaen.txt" Name OldName As NewName End If OldName = Dir Loop End Sub
A+ Eric
Bonjour à tous, J'ai besoin de changer le nom d'un fichier sur une disquette pour le faire entrer dans access comme fichier Txt.Malheureusement il me dit qu'il ne trouve pas le fichier
OldName = Dir("A:") If OldName = "hipocaen.dat" Then NewName = "hipocaen.txt" Name OldName As NewName ' Renomme le fichier. C'est ici l'erreur pourtant les variables contiennent les valeurs désirées. End If Merci de m'avoir consacré de votre temps
Bonjour "Torquemada"
Essaies cela:
Il faut préciser le chemin complet des fichiers et boucler car ce n'est pas
forcément le 1er sur la disquette
Sub renomme()
Dim OldName As String, NewName As String
OldName = Dir("A:")
Do While OldName <> ""
If OldName= "hipocaen.dat" Then
OldName="A:" & OldName
NewName = "A:hipocaen.txt"
Name OldName As NewName
End If
OldName = Dir
Loop
End Sub
A+
Eric
Bonjour à tous,
J'ai besoin de changer le nom d'un fichier sur une disquette pour le
faire entrer dans access comme fichier Txt.Malheureusement il me dit
qu'il ne trouve pas le fichier
OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt"
Name OldName As NewName ' Renomme le fichier. C'est ici
l'erreur pourtant les variables contiennent les valeurs désirées.
End If
Merci de m'avoir consacré de votre temps
Essaies cela: Il faut préciser le chemin complet des fichiers et boucler car ce n'est pas forcément le 1er sur la disquette
Sub renomme() Dim OldName As String, NewName As String OldName = Dir("A:") Do While OldName <> "" If OldName= "hipocaen.dat" Then OldName="A:" & OldName NewName = "A:hipocaen.txt" Name OldName As NewName End If OldName = Dir Loop End Sub
A+ Eric
Bonjour à tous, J'ai besoin de changer le nom d'un fichier sur une disquette pour le faire entrer dans access comme fichier Txt.Malheureusement il me dit qu'il ne trouve pas le fichier
OldName = Dir("A:") If OldName = "hipocaen.dat" Then NewName = "hipocaen.txt" Name OldName As NewName ' Renomme le fichier. C'est ici l'erreur pourtant les variables contiennent les valeurs désirées. End If Merci de m'avoir consacré de votre temps
