Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
je veux enregistrer sous c:\\data\\excel\\(textBox1.value).xls
et comment faire pour ajouter dans une macro une commande comme cela
Case 'essai'
V_MnParcours = '140'
a partir de ca
Private Sub Ajouterlieux_Click()
Dim vlieux As String
Dim vtemps As String
vlieux = InputBox('Tapez le lieux que vous voulez ajouter', 'LIEUX A AJOUTER', '')
'gestion d'erreur vlieux
If vlieux = '' Then
Exit Sub
End If
vtemps = InputBox('Saisir le temps de trajet du lieux ajouté', 'TEMPS A AJOUTER', '')
'gestion d'erreur vtemps
If vtemps = '' Then
Exit Sub
End If
vlieux = UCase(vlieux)
Excuses Joêl, mais week-end très chargé, et grosse occupation en ce moment,
Pour l’avenir de tes fils essaies d’être le plus clair et précis possible, ça te permettra d’avoir La réponse désirée du premier coup le plus souvent surtout pour des choses simples.
Dans la commande que je t’avais indiquée, tu ne mets rien à la place des *, ce sont des jokers de filtrage optionnels, mais utiles ici. La commande t’ouvre la boîte de dialogue sauvegarde te permettant de mettre le nom de ton choix dans le chemin de ton choix avec un format ' xls ' de base.
Pour : ' je veux enregistrer sous c:dataexcel(textBox1.value).xls '
tu fais :
(ta syntaxe ne fonctionnera pas sans\\(contre slash) après c :, j’en ai rajouté un aussi après dataexcel présumant que c’est un dossier, sinon tu te retrouves avec un fichier dataexceltoto dans ton répertoire racine direct (si toto = textbox value)
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.