Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème de textbox

Problème de textbox

6 réponses
Avatar
Rogebe
Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "\\Pc-christine\bureautique\TESTS RESEAU\Nouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"\\Pc-christine\bureautique\TESTS RESEAU\Nouveau D48\D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
MichDenis
Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la procédure !

attention, certains caractères sont interdits dans le nom du fichier : [ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:
Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci
Avatar
Rogebe
J'ai pas tout compris !!
Et notamment le nom de fichier que l'on ne retrouve pas dans le chemin pour
l'enregistrement
if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
et

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

Par contre les deux else sont sympa je n'y avais pas pensé
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if


J'ai essayé de coller la procédure mais apparement cela ne lui convient pas.
Erreur d'exécution 1004.
En fait il me semble que le fichier cherche à s'enregistrer sur lui même
donc impossible.

Mes questions dans le fond sont très simple :
Comment récupérer le texte de la texbox (il faut le nommer comme par exemple
bénéficiaire).
Puis le mettre dans le chemin d'enregistrement d'ou ma tentative de
procédure

ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
et
Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Mais bon je suis peut être loin de la réalité.

En tout cas merci du coup de main c'est sympa.
A+
RGB

----- Original Message -----
From: "MichDenis"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, March 08, 2005 1:06 PM
Subject: Re: Problème de textbox


Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci





"MichDenis" a écrit dans le message de news:
%
Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci





Avatar
MichDenis
Bonjour Regebe,


| Mes questions dans le fond sont très simple :
| Comment récupérer le texte de la texbox (il faut le nommer comme par exemple
| bénéficiaire).

Dans ma procédure, il y a 2 variables, une pour le chemin et l'autre pour le contenu du textbox qui deviendra le nom du
fichier fichier.

À et effet, dans la procédure que j'ai soumise, j'ai omis d'ajouter le nom de l'extention du fichier à cette ligne de
code :
NomFichier = Me.textbox1.text & ".xls"

Bien si ton textbox s'appelle bénéficiaire ... remplace textbox1 par le nom du textbox. la ligne de code deviendra :
NomFichier = Me.bénéficiaire.text & ".xls"


Salutations!












"Rogebe" a écrit dans le message de news: %23E%
J'ai pas tout compris !!
Et notamment le nom de fichier que l'on ne retrouve pas dans le chemin pour
l'enregistrement
if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
et

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

Par contre les deux else sont sympa je n'y avais pas pensé
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if


J'ai essayé de coller la procédure mais apparement cela ne lui convient pas.
Erreur d'exécution 1004.
En fait il me semble que le fichier cherche à s'enregistrer sur lui même
donc impossible.

Mes questions dans le fond sont très simple :
Comment récupérer le texte de la texbox (il faut le nommer comme par exemple
bénéficiaire).
Puis le mettre dans le chemin d'enregistrement d'ou ma tentative de
procédure

ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
et
Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Mais bon je suis peut être loin de la réalité.

En tout cas merci du coup de main c'est sympa.
A+
RGB

----- Original Message -----
From: "MichDenis"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, March 08, 2005 1:06 PM
Subject: Re: Problème de textbox


Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci





"MichDenis" a écrit dans le message de news:
%
Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci





Avatar
Rogebe
OK, je commence à comprendre, je vais réfléchir et tester tout cela cette
après midi, je renverrai un message en fin de journéee.

Merci
RGB


"MichDenis" a écrit dans le message de news:

Bonjour Regebe,


| Mes questions dans le fond sont très simple :
| Comment récupérer le texte de la texbox (il faut le nommer comme par
exemple
| bénéficiaire).

Dans ma procédure, il y a 2 variables, une pour le chemin et l'autre pour
le contenu du textbox qui deviendra le nom du
fichier fichier.

À et effet, dans la procédure que j'ai soumise, j'ai omis d'ajouter le nom
de l'extention du fichier à cette ligne de
code :
NomFichier = Me.textbox1.text & ".xls"

Bien si ton textbox s'appelle bénéficiaire ... remplace textbox1 par le
nom du textbox. la ligne de code deviendra :
NomFichier = Me.bénéficiaire.text & ".xls"


Salutations!












"Rogebe" a écrit dans le message de news:
%23E%
J'ai pas tout compris !!
Et notamment le nom de fichier que l'on ne retrouve pas dans le chemin
pour
l'enregistrement
if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
et

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

Par contre les deux else sont sympa je n'y avais pas pensé
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if


J'ai essayé de coller la procédure mais apparement cela ne lui convient
pas.
Erreur d'exécution 1004.
En fait il me semble que le fichier cherche à s'enregistrer sur lui même
donc impossible.

Mes questions dans le fond sont très simple :
Comment récupérer le texte de la texbox (il faut le nommer comme par
exemple
bénéficiaire).
Puis le mettre dans le chemin d'enregistrement d'ou ma tentative de
procédure

ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
et
Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Mais bon je suis peut être loin de la réalité.

En tout cas merci du coup de main c'est sympa.
A+
RGB

----- Original Message -----
From: "MichDenis"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, March 08, 2005 1:06 PM
Subject: Re: Problème de textbox


Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de
mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci





"MichDenis" a écrit dans le message de news:
%
Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de
mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci










Avatar
MichDenis
Bonjour Regebe,

La ligne dir() devrait avoir cette configuration :

Chemin + Fichier + Extention

Chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"
Fichier = "ValeurDuTextbox"
Extention = ".xls"

Ces 3 éléments sont joints dans une chaîne avec l'opérateur de concaténation &

if Dir(Chemin & fichier & Extention) = "" then
'le fichier n'existe pas
else
'le fichier existe déjà
End if



Salutations!



"Rogebe" a écrit dans le message de news:
Bonjour,

J'ai pris le temps d'essayer de comprendre et



Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String
'Définition des variables

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"
'Définition du chemin d'enregistrement

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text & ".xls"
'Récupération du texte saisie dans la textbox et définition du Nom de fichier


if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
'Enregistement du dossier avec les variables définies

End Sub

Cela me parait clair et pourtant le code ne fonctionne pas il s'arrête à if dir.
Est ce qu'après le " Chemin & NomFichier" il faudrait pas mettre un XLS ?
Je panouille, à noter que j'ai supprimer les msgox, else et end if pour plus de clarté, je verrai après pour les
rajouter quand cela fonctionnera au niveau de l'enregistrement.

Mille excuses mais je n'ai pas eu le temps de regarder hier, trop de choses à faire.
J'aimerais bien mettre cette procédure au point, elle me servirait pour plein de fichiers Excel que j'ai à enregistrer
de manière automatique.

Je vous renmercie de votre disponibilité et de votre intérêt à me filer un coup de main.

A+
RGB



"Rogebe" a écrit dans le message de news:
OK, je commence à comprendre, je vais réfléchir et tester tout cela cette
après midi, je renverrai un message en fin de journéee.

Merci
RGB


"MichDenis" a écrit dans le message de news:

Bonjour Regebe,


| Mes questions dans le fond sont très simple :
| Comment récupérer le texte de la texbox (il faut le nommer comme par
exemple
| bénéficiaire).

Dans ma procédure, il y a 2 variables, une pour le chemin et l'autre pour
le contenu du textbox qui deviendra le nom du
fichier fichier.

À et effet, dans la procédure que j'ai soumise, j'ai omis d'ajouter le nom
de l'extention du fichier à cette ligne de
code :
NomFichier = Me.textbox1.text & ".xls"

Bien si ton textbox s'appelle bénéficiaire ... remplace textbox1 par le
nom du textbox. la ligne de code deviendra :
NomFichier = Me.bénéficiaire.text & ".xls"


Salutations!












"Rogebe" a écrit dans le message de news:
%23E%
J'ai pas tout compris !!
Et notamment le nom de fichier que l'on ne retrouve pas dans le chemin
pour
l'enregistrement
if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
et

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

Par contre les deux else sont sympa je n'y avais pas pensé
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if


J'ai essayé de coller la procédure mais apparement cela ne lui convient
pas.
Erreur d'exécution 1004.
En fait il me semble que le fichier cherche à s'enregistrer sur lui même
donc impossible.

Mes questions dans le fond sont très simple :
Comment récupérer le texte de la texbox (il faut le nommer comme par
exemple
bénéficiaire).
Puis le mettre dans le chemin d'enregistrement d'ou ma tentative de
procédure

ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
et
Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Mais bon je suis peut être loin de la réalité.

En tout cas merci du coup de main c'est sympa.
A+
RGB

----- Original Message -----
From: "MichDenis"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, March 08, 2005 1:06 PM
Subject: Re: Problème de textbox


Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de
mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci





"MichDenis" a écrit dans le message de news:
%
Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de
mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas .

Merci














Avatar
Rogebe
Bonsoir MichDenis,

Bon, je vais me donner quelques jours pour travailler tout cela et notamment
les notions de chaines puis faire quelques essais
On en reparle plus tard.
Heuh, où est ce que je pourrais trouver de l'info sur le net sur tout cela
(comme un cours bien pédagogique) ?

En tout cas Merci pour tout.
A+
RGB

"MichDenis" a écrit dans le message de news:

Bonjour Regebe,

La ligne dir() devrait avoir cette configuration :

Chemin + Fichier + Extention

Chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"
Fichier = "ValeurDuTextbox"
Extention = ".xls"

Ces 3 éléments sont joints dans une chaîne avec l'opérateur de
concaténation &

if Dir(Chemin & fichier & Extention) = "" then
'le fichier n'existe pas
else
'le fichier existe déjà
End if



Salutations!



"Rogebe" a écrit dans le message de news:

Bonjour,

J'ai pris le temps d'essayer de comprendre et



Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String
'Définition des variables

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"
'Définition du chemin d'enregistrement

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text & ".xls"
'Récupération du texte saisie dans la textbox et définition du Nom de
fichier


if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
'Enregistement du dossier avec les variables définies

End Sub

Cela me parait clair et pourtant le code ne fonctionne pas il s'arrête à
if dir.
Est ce qu'après le " Chemin & NomFichier" il faudrait pas mettre un XLS ?
Je panouille, à noter que j'ai supprimer les msgox, else et end if pour
plus de clarté, je verrai après pour les
rajouter quand cela fonctionnera au niveau de l'enregistrement.

Mille excuses mais je n'ai pas eu le temps de regarder hier, trop de
choses à faire.
J'aimerais bien mettre cette procédure au point, elle me servirait pour
plein de fichiers Excel que j'ai à enregistrer
de manière automatique.

Je vous renmercie de votre disponibilité et de votre intérêt à me filer un
coup de main.

A+
RGB



"Rogebe" a écrit dans le message de news:

OK, je commence à comprendre, je vais réfléchir et tester tout cela
cette
après midi, je renverrai un message en fin de journéee.

Merci
RGB


"MichDenis" a écrit dans le message de news:

Bonjour Regebe,


| Mes questions dans le fond sont très simple :
| Comment récupérer le texte de la texbox (il faut le nommer comme par
exemple
| bénéficiaire).

Dans ma procédure, il y a 2 variables, une pour le chemin et l'autre
pour
le contenu du textbox qui deviendra le nom du
fichier fichier.

À et effet, dans la procédure que j'ai soumise, j'ai omis d'ajouter le
nom
de l'extention du fichier à cette ligne de
code :
NomFichier = Me.textbox1.text & ".xls"

Bien si ton textbox s'appelle bénéficiaire ... remplace textbox1 par le
nom du textbox. la ligne de code deviendra :
NomFichier = Me.bénéficiaire.text & ".xls"


Salutations!












"Rogebe" a écrit dans le message de news:
%23E%
J'ai pas tout compris !!
Et notamment le nom de fichier que l'on ne retrouve pas dans le chemin
pour
l'enregistrement
if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
et

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

Par contre les deux else sont sympa je n'y avais pas pensé
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if


J'ai essayé de coller la procédure mais apparement cela ne lui convient
pas.
Erreur d'exécution 1004.
En fait il me semble que le fichier cherche à s'enregistrer sur lui même
donc impossible.

Mes questions dans le fond sont très simple :
Comment récupérer le texte de la texbox (il faut le nommer comme par
exemple
bénéficiaire).
Puis le mettre dans le chemin d'enregistrement d'ou ma tentative de
procédure

ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
et
Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Mais bon je suis peut être loin de la réalité.

En tout cas merci du coup de main c'est sympa.
A+
RGB

----- Original Message -----
From: "MichDenis"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, March 08, 2005 1:06 PM
Subject: Re: Problème de textbox


Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de
la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox
ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de
mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas
.

Merci





"MichDenis" a écrit dans le message de news:
%
Bonjour Rogebe,

Il y a plusieurs événements pour faire ce travail... voici un début de
la
procédure !

attention, certains caractères sont interdits dans le nom du fichier :
[ ] / * ? : | > <

Il faudrait que tu ajoutes un petit test pour t'assurer que le textbox
ne
contient pas un ces caractères si tu le juges
approprier !


'----------------------------------------
Private Sub CommandButton1_Click()
Dim Chemin as string
Dim NomFichier as String

chemin = "Pc-christinebureautiqueTESTS RESEAUNouveau D48D48"

if Me.textbox1<>"" then
NomFichier = Me.textbox1.text
else
Msgbox "Le textbox n'est pas renseigné."
exit sub
end if

if dir(Chemin & NomFichier) = "" then
ActiveWorkbook.SaveAs Filename:= _
Chemin & NomFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
else
Msgbox "Ce fichier existe déjà. Fichier non enregistré sous un
nouveau nom"
exit sub
end if

End Sub
'----------------------------------------

Salutations!




"Rogebe" a écrit dans le message de news:

Bonjour, je suis un grand débutant et j'ai quelques soucis avec le code
VBA.

J'ai créer des Usrform et notamment une qui me permet à l'ouverture de
mon
fichier d'avoir une zone de texte renseigner par l'utilisateur qui va
donner
son nom.
J'aimerais que ce nom soit utiliser pour enregistrer le fichier mais je
n'y
arrive pas, voila les codes que j'utilise :

Private Sub CommandButton1_Click()
ChDir "Pc-christinebureautiqueTESTS RESEAUNouveau D48"
ActiveWorkbook.SaveAs Filename:= _
"Pc-christinebureautiqueTESTS RESEAUNouveau D48D48
Beneficiaire.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Userform2.Hide
End Sub

Private Sub TextBox1_Change()
Beneficiaire = TextBox1.Text
End Sub

Si vous aviez une idée pour me dépanner, je cherche mais je trouve pas
.

Merci