Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer
sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que
pour la meme journée
j'ai deux rapport a faire alors si il existe déja sous cette date...
j'aimerais le faire nommer autrement, genre après la date ajourter un "_2"
genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée
du rapport dans une base de donnée access !!!
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
ABED HADDOU
Bonsoir "Kronik"
Sub Vérif() ChDir "H:Rapport ventestationsInventaire" Fichier = "Rapport_VentesRLCALCUL_inventaire_B02_" & Range("J4") Set fc = CreateObject("Scripting.FileSystemObject") If fc.fileexists(Fichier & ".xls") Then ThisWorkbook.SaveAs Filename:=Fichier & "_C2" & ".xls" Else ThisWorkbook.SaveAs Filename:=Fichier & ".xls" End If End sub
pour le transfert d'excel vers access voir ici http://ericrenaud.free.fr/daoado.htm
Amicalements
Abed_H
Bonjour,
j'enregistre mon documents au clic d'un "bouton" macro de Visual Basic Editor genre :
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que pour la meme journée j'ai deux rapport a faire alors si il existe déja sous cette date... j'aimerais le faire nommer autrement, genre après la date ajourter un "_2" genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée du rapport dans une base de donnée access !!!
Merci pour votre temps
Kronik
Bonsoir "Kronik"
Sub Vérif()
ChDir "H:Rapport ventestationsInventaire"
Fichier = "Rapport_VentesRLCALCUL_inventaire_B02_" & Range("J4")
Set fc = CreateObject("Scripting.FileSystemObject")
If fc.fileexists(Fichier & ".xls") Then
ThisWorkbook.SaveAs Filename:=Fichier & "_C2" & ".xls"
Else
ThisWorkbook.SaveAs Filename:=Fichier & ".xls"
End If
End sub
pour le transfert d'excel vers access voir ici
http://ericrenaud.free.fr/daoado.htm
Amicalements
Abed_H
Bonjour,
j'enregistre mon documents au clic d'un "bouton" macro de Visual Basic
Editor genre :
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer
sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que
pour la meme journée
j'ai deux rapport a faire alors si il existe déja sous cette date...
j'aimerais le faire nommer autrement, genre après la date ajourter un "_2"
genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée
du rapport dans une base de donnée access !!!
Sub Vérif() ChDir "H:Rapport ventestationsInventaire" Fichier = "Rapport_VentesRLCALCUL_inventaire_B02_" & Range("J4") Set fc = CreateObject("Scripting.FileSystemObject") If fc.fileexists(Fichier & ".xls") Then ThisWorkbook.SaveAs Filename:=Fichier & "_C2" & ".xls" Else ThisWorkbook.SaveAs Filename:=Fichier & ".xls" End If End sub
pour le transfert d'excel vers access voir ici http://ericrenaud.free.fr/daoado.htm
Amicalements
Abed_H
Bonjour,
j'enregistre mon documents au clic d'un "bouton" macro de Visual Basic Editor genre :
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que pour la meme journée j'ai deux rapport a faire alors si il existe déja sous cette date... j'aimerais le faire nommer autrement, genre après la date ajourter un "_2" genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée du rapport dans une base de donnée access !!!
Merci pour votre temps
Kronik
Kronik
Allo Abed,
j'ai un petit problème avec la fonction que tu ma donnée... lors de la ligne ou l'on set l'object "fc", "fc" me retourne nothing.
Set fc = CreateObject("Scripting.FileSystemObject") a cette ligne le débogeur passe... mais a la ligne suivante l'erreur suivante apparait.
Erreur d'excécution '91': Variable objet ou variable de bloc With non définie.
If fc.fileexists(Fichier & ".xls") Then
aurait tu une idée pour cette erreur... !!!
Merci mille fois... !!! ;)
Kronik
"Kronik" a écrit dans le message de news:
Bonjour,
j'enregistre mon documents au clic d'un "bouton" macro de Visual Basic Editor genre :
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que pour la meme journée j'ai deux rapport a faire alors si il existe déja sous cette date... j'aimerais le faire nommer autrement, genre après la date ajourter un "_2" genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée du rapport dans une base de donnée access !!!
Merci pour votre temps
Kronik
Allo Abed,
j'ai un petit problème avec la fonction que tu ma donnée... lors de la
ligne ou l'on set l'object "fc", "fc" me retourne nothing.
Set fc = CreateObject("Scripting.FileSystemObject")
a cette ligne le débogeur passe... mais a la ligne suivante l'erreur
suivante apparait.
Erreur d'excécution '91': Variable objet ou variable de bloc With non
définie.
If fc.fileexists(Fichier & ".xls") Then
aurait tu une idée pour cette erreur... !!!
Merci mille fois... !!! ;)
Kronik
"Kronik" <d_larouche@hotmail.com> a écrit dans le message de news:
ed1mGG3fGHA.3468@TK2MSFTNGP03.phx.gbl...
Bonjour,
j'enregistre mon documents au clic d'un "bouton" macro de Visual Basic
Editor genre :
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer
sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que
pour la meme journée
j'ai deux rapport a faire alors si il existe déja sous cette date...
j'aimerais le faire nommer autrement, genre après la date ajourter un "_2"
genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes
donnée du rapport dans une base de donnée access !!!
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que pour la meme journée j'ai deux rapport a faire alors si il existe déja sous cette date... j'aimerais le faire nommer autrement, genre après la date ajourter un "_2" genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée du rapport dans une base de donnée access !!!
Merci pour votre temps
Kronik
JB
Bonjour,
nf = "H:Rapport vente stationsInventaireRapport_VentesRLCALCUL_inventaire_B02_" & Range("j4").Value If Dir(nf) <> "" Then nf = nf & "_2" ActiveWorkbook.SaveAs Filename:=nf
Cordialement JB
Bonjour,
nf = "H:Rapport vente
stationsInventaireRapport_VentesRLCALCUL_inventaire_B02_" &
Range("j4").Value
If Dir(nf) <> "" Then nf = nf & "_2"
ActiveWorkbook.SaveAs Filename:=nf
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que pour la meme journée j'ai deux rapport a faire alors si il existe déja sous cette date... j'aimerais le faire nommer autrement, genre après la date ajourter un "_2" genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée du rapport dans une base de donnée access !!!
Merci pour votre temps
Kronik
Bonjour Kronik
je suis désolé Kronik je n'est pas essayé le code je cherche d'ou viens
l'erreur ,
essaie celui de JB peut être il te conviens
Abed_H
Allo Abed,
j'ai un petit problème avec la fonction que tu ma donnée... lors de la
ligne ou l'on set l'object "fc", "fc" me retourne nothing.
Set fc = CreateObject("Scripting.FileSystemObject")
a cette ligne le débogeur passe... mais a la ligne suivante l'erreur
suivante apparait.
Erreur d'excécution '91': Variable objet ou variable de bloc With non
définie.
If fc.fileexists(Fichier & ".xls") Then
aurait tu une idée pour cette erreur... !!!
Merci mille fois... !!! ;)
Kronik
"Kronik" <d_larouche@hotmail.com> a écrit dans le message de news:
ed1mGG3fGHA.3468@TK2MSFTNGP03.phx.gbl...
Bonjour,
j'enregistre mon documents au clic d'un "bouton" macro de Visual Basic
Editor genre :
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer
sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que
pour la meme journée
j'ai deux rapport a faire alors si il existe déja sous cette date...
j'aimerais le faire nommer autrement, genre après la date ajourter un "_2"
genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes
donnée du rapport dans une base de donnée access !!!
Mais j'aimerais vérifier l'existance de ce fichier avant de l'enregistrer sous ce noms.... car dans j4 ces la date de mon rapport et il arrive que pour la meme journée j'ai deux rapport a faire alors si il existe déja sous cette date... j'aimerais le faire nommer autrement, genre après la date ajourter un "_2" genre.
et si quelqu'un est veut m'aider... j'aimerais faire transferrer mes donnée du rapport dans une base de donnée access !!!
