alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
31 août 2006 à 09:07
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 2014
-
31 août 2006 à 10:06
Bonjour à tous
J'ai un petit soucis sur un fichier Excel. J'ai un bouton enregistrer qui balance ce bout de code :
Sub Enregistrer_QuandClic()
Dim NomFichier As String
NomFichier = "c:" & Feuil1.Range("F5").Value
NomFichier = NomFichier & ".xls"
If Dir$("c:" & NomFichier & ".xls") = 1 Then
ThisWorkbook.Save
Else
ThisWorkbook.SaveCopyAs NomFichier
End If
MsgBox "Sauvegarde terminée.", vbInformation, "Enregistrement"
End Sub
Ma logique est que : Quand l'utilisateur cliquera sur le bouton "Enregistrer" je voudrai que il cherche si le nom du fichier ouvert existe dans c:\ si il existe il fait un enregistrement normal sinon si ca existe pas il fait un enregistrer sous. L'erreur vient de la ligne en bleu. Sachant que dans la celulle F5 il y a toujours une valeur présente.
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 31 août 2006 à 09:57
Salut,
En admettant que Feuil1.Range("F5").Value = toto
Si on suit ton code ligne a ligne
NomFichier "c:" & Feuil1.Range("F5").Value> NomFichier = "C:\toto" NomFichier NomFichier & ".xls" > NomFichier = "C:\toto.xls"
If Dir$("c:" & NomFichier & ".xls") = 1 Then => ( Dir$("C:\C:\toto.xls.xls"
Est ce que tu trouve cela bien logique
Donc un simple Dir$(NomFichier) au lieu de Dir$("c:" & NomFichier & ".xls") devrait suffir
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 31 août 2006 à 10:05
En effet il y avait une ligne en trop pour finir ca marche sous cette forme :
Sub Enregistrer_QuandClic()
Dim NomFichier As String
NomFichier = "c:" & Feuil1.Range("F5").Value & ".xls"
If Dir$(NomFichier) <> "" Then
ThisWorkbook.Save
Else
ThisWorkbook.SaveCopyAs NomFichier
End If
MsgBox "Sauvegarde terminée.", vbInformation, "Enregistrement"
End Sub
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 31 août 2006 à 09:30
Non dsl ca ne marche pas c'était mon code de départ aussi mais c'est toujours la même erreur 52 "Nom ou N° de fichier inccorect" alors que NomFichier renvoie bien "c:\toto.xls" c'est ca que j'ai du mal a comprendre...
_______________________ <<<< :-: 4L!@$ :-: >>>>
Vous n’avez pas trouvé la réponse que vous recherchez ?