H hassan.zer XLDnaute Occasionnel 29 Mai 2011 #1 Bonjour je cherche un code sous vba excel pour tester la présence ou non du fichier excel pour ne pas enregistrer-ecraser si celui-ci à déja été enregistré. Merci.
Bonjour je cherche un code sous vba excel pour tester la présence ou non du fichier excel pour ne pas enregistrer-ecraser si celui-ci à déja été enregistré. Merci.
K kjin XLDnaute Barbatruc 29 Mai 2011 #2 Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser Bonsoir, Code: Dir("c:\blabla.xls") ...renvoie une chaine de longueur nulle si le fichier n'existe pas A+ kjin Vote positif 0 Vote négatif
Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser Bonsoir, Code: Dir("c:\blabla.xls") ...renvoie une chaine de longueur nulle si le fichier n'existe pas A+ kjin
H hassan.zer XLDnaute Occasionnel 29 Mai 2011 #3 Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser bonsoir, je ne comprends pas comment faire avec cette commande, If Dir("c:\blabla.xls") mais aprés je mets quoi ? merci Vote positif 0 Vote négatif
Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser bonsoir, je ne comprends pas comment faire avec cette commande, If Dir("c:\blabla.xls") mais aprés je mets quoi ? merci
H hassan.zer XLDnaute Occasionnel 29 Mai 2011 #4 Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser Merci Kjin, Ton test donne 0 donc je peux le tester ! merci !!! Vote positif 0 Vote négatif
Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser Merci Kjin, Ton test donne 0 donc je peux le tester ! merci !!!
K kjin XLDnaute Barbatruc 29 Mai 2011 #5 Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser hassan.zer à dit: je ne comprends pas comment faire avec cette commande, Cliquez pour agrandir... Moi non plus... Je déconne, mais la réponse me paraissait claire Code: Dim Fichier$ Fichier = "c:\blabla.xls" If Dir(Fichier) = "" Then ThisWorkbook.SaveAs Fichier Else 'quoi fait on ?! End If Il suffit de tester la chaîne renvoyée par la variable Fichier A+ kjin Vote positif 0 Vote négatif
Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser hassan.zer à dit: je ne comprends pas comment faire avec cette commande, Cliquez pour agrandir... Moi non plus... Je déconne, mais la réponse me paraissait claire Code: Dim Fichier$ Fichier = "c:\blabla.xls" If Dir(Fichier) = "" Then ThisWorkbook.SaveAs Fichier Else 'quoi fait on ?! End If Il suffit de tester la chaîne renvoyée par la variable Fichier A+ kjin
Staple1600 XLDnaute Barbatruc 30 Mai 2011 #6 Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser Bonsoir kjin à dit: Moi non plus... Je déconne, mais la réponse me paraissait claire Par chez moi c'est plutôt Dim Fichier$ Fichier = "c:\blabla.xls" If Dir(Fichier) = "" Then ThisWorkbook.SaveAs Fichier Else 'qui qu'on fait ?! End If Cliquez pour agrandir... Il suffit de tester la chaîne renvoyée par la variable Fichier A+ kjin Cliquez pour agrandir... PS:c'était histoire de passer saluer maitre kjin avant d'aller au dodo Vote positif 0 Vote négatif
Re : Verifier si un fichier excel existe pour ne pas enregistrer-ecraser Bonsoir kjin à dit: Moi non plus... Je déconne, mais la réponse me paraissait claire Par chez moi c'est plutôt Dim Fichier$ Fichier = "c:\blabla.xls" If Dir(Fichier) = "" Then ThisWorkbook.SaveAs Fichier Else 'qui qu'on fait ?! End If Cliquez pour agrandir... Il suffit de tester la chaîne renvoyée par la variable Fichier A+ kjin Cliquez pour agrandir... PS:c'était histoire de passer saluer maitre kjin avant d'aller au dodo