Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
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
Misange
Bonjour,
des tas de soutions sur la page répertoires d'excelabo :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 05/12/2004 18:50:
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
Bonjour,
des tas de soutions sur la page répertoires d'excelabo :-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 05/12/2004 18:50:
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
des tas de soutions sur la page répertoires d'excelabo :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 05/12/2004 18:50:
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
Joël GARBE
bonsoir,
en cherchant un peu ... tu devrais trouver ton bonheur !
Joël GARBE www.joelgarbe.fr "mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
bonsoir,
en cherchant un peu ... tu devrais trouver ton bonheur !
Joël GARBE
www.joelgarbe.fr
"mormoz" <mormoz@wanadoo.fr> a écrit dans le message de news:
41b34a51$0$11749$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Joël GARBE www.joelgarbe.fr "mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
mormoz
Merci Misange et Joël
Je vais y regarder de près
Bonne soirées à tous Philippe "Joël GARBE" a écrit dans le message de news: 41b34ea5$0$11766$
bonsoir,
en cherchant un peu ... tu devrais trouver ton bonheur !
Joël GARBE www.joelgarbe.fr "mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
Merci Misange et Joël
Je vais y regarder de près
Bonne soirées à tous
Philippe
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
41b34ea5$0$11766$8fcfb975@news.wanadoo.fr...
bonsoir,
en cherchant un peu ... tu devrais trouver ton bonheur !
Joël GARBE
www.joelgarbe.fr
"mormoz" <mormoz@wanadoo.fr> a écrit dans le message de news:
41b34a51$0$11749$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et
le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Joël GARBE www.joelgarbe.fr "mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
j
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien"
fich = "zaza.xls"
If Dir(rep, vbDirectory) = "" Then MkDir (rep)
If Dir(rep & "" & fich) = "" Then
Workbooks.Add.SaveAs (rep & "" & fich)
ActiveWorkbook.Close
End If
j@c
http://jacxl.free.fr
"mormoz" <mormoz@wanadoo.fr> a écrit dans le message de news:
41b34a51$0$11749$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
twinley
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui attribuer une propriété Partagé en Lecture seule soit lui attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé. Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui
attribuer une propriété Partagé en Lecture seule
soit lui
attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé.
Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
j@c wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien"
fich = "zaza.xls"
If Dir(rep, vbDirectory) = "" Then MkDir (rep)
If Dir(rep & "" & fich) = "" Then
Workbooks.Add.SaveAs (rep & "" & fich)
ActiveWorkbook.Close
End If
j@c
http://jacxl.free.fr
"mormoz" <mormoz@wanadoo.fr> a écrit dans le message de news:
41b34a51$0$11749$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Est-il possible lors de la création du répertoire en local, de lui attribuer une propriété Partagé en Lecture seule soit lui attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé. Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
j
pour mettre zaza.txt en lecture seule :
Set fs = CreateObject("Scripting.FileSystemObject") fs.getfile("c:zaza.txt").Attributes = 1
http://jacxl.free.fr
"twinley" a écrit dans le message de news:
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui attribuer une propriété Partagé en Lecture seule soit lui attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé. Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
pour mettre zaza.txt en lecture seule :
Set fs = CreateObject("Scripting.FileSystemObject")
fs.getfile("c:zaza.txt").Attributes = 1
j@c
http://jacxl.free.fr
"twinley" <twinleym@hotmail.com> a écrit dans le message de news:
Ogonidw2EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui
attribuer une propriété Partagé en Lecture seule
soit lui
attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé.
Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
j@c wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien"
fich = "zaza.xls"
If Dir(rep, vbDirectory) = "" Then MkDir (rep)
If Dir(rep & "" & fich) = "" Then
Workbooks.Add.SaveAs (rep & "" & fich)
ActiveWorkbook.Close
End If
j@c
http://jacxl.free.fr
"mormoz" <mormoz@wanadoo.fr> a écrit dans le message de news:
41b34a51$0$11749$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et
le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Set fs = CreateObject("Scripting.FileSystemObject") fs.getfile("c:zaza.txt").Attributes = 1
http://jacxl.free.fr
"twinley" a écrit dans le message de news:
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui attribuer une propriété Partagé en Lecture seule soit lui attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé. Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et le
fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
twinley
Bonjour Jac
Ma question est pour déclarer le répertoire en mode partagé. Tu m'a mis sur la piste, je vais me débrouiller.
Merci pour ton aide.
twinley
wrote:
pour mettre zaza.txt en lecture seule :
Set fs = CreateObject("Scripting.FileSystemObject") fs.getfile("c:zaza.txt").Attributes = 1
http://jacxl.free.fr
"twinley" a écrit dans le message de news:
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui attribuer une propriété Partagé en Lecture seule soit lui attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé. Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et
le
fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Merci pour votre aide ! Philippe
Bonjour Jac
Ma question est pour déclarer le répertoire en mode partagé.
Tu m'a mis sur la piste, je vais me débrouiller.
Merci pour ton aide.
twinley
j@c wrote:
pour mettre zaza.txt en lecture seule :
Set fs = CreateObject("Scripting.FileSystemObject")
fs.getfile("c:zaza.txt").Attributes = 1
j@c
http://jacxl.free.fr
"twinley" <twinleym@hotmail.com> a écrit dans le message de news:
Ogonidw2EHA.3708@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui
attribuer une propriété Partagé en Lecture seule
soit lui
attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé.
Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
j@c wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien"
fich = "zaza.xls"
If Dir(rep, vbDirectory) = "" Then MkDir (rep)
If Dir(rep & "" & fich) = "" Then
Workbooks.Add.SaveAs (rep & "" & fich)
ActiveWorkbook.Close
End If
j@c
http://jacxl.free.fr
"mormoz" <mormoz@wanadoo.fr> a écrit dans le message de news:
41b34a51$0$11749$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le
créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci.
Le tout doit être géré sous macro qui crée automatique le répertoire et
le
fichier s'ils n'existent pas.
J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.
Ma question est pour déclarer le répertoire en mode partagé. Tu m'a mis sur la piste, je vais me débrouiller.
Merci pour ton aide.
twinley
wrote:
pour mettre zaza.txt en lecture seule :
Set fs = CreateObject("Scripting.FileSystemObject") fs.getfile("c:zaza.txt").Attributes = 1
http://jacxl.free.fr
"twinley" a écrit dans le message de news:
Bonsoir,
Est-il possible lors de la création du répertoire en local, de lui attribuer une propriété Partagé en Lecture seule soit lui attribuer une propriété Partagé en Accès complet ?
Je cherche depuis un moment, mais je n'ai pas encore trouvé. Faut-il aller sur un NG réseau ? ce que je n'ai pas encore fait.
à+twinley
wrote:
avec le fichier zaza.xls dans le répertoire c:rien :
rep = "c:rien" fich = "zaza.xls" If Dir(rep, vbDirectory) = "" Then MkDir (rep) If Dir(rep & "" & fich) = "" Then Workbooks.Add.SaveAs (rep & "" & fich) ActiveWorkbook.Close End If
http://jacxl.free.fr
"mormoz" a écrit dans le message de news: 41b34a51$0$11749$
Bonjour à tous,
Je souhaite vérifier l'existence d'un répertoire et s'il n'exite pas le créer. De même pour un fichier excel une fois que l'on sait si le
répertoire
existe, vérifier que le fichier existe dans celui-ci. Le tout doit être géré sous macro qui crée automatique le répertoire et
le
fichier s'ils n'existent pas. J'ai essayé avec les gestion d'erreurs mais je n'y arrive pas.