Bonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Bonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Bonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Bonjour,
pour convertir la 1re lettre d'une chaîne en majuscule, tu peux utiliser:
strconv(Nom, vbProperCase)
ou
strconv(Nom, 3)
ce qui devrait te donner
... strconv(Nom, vbProperCase) & Lcase(Left(Prenom, 3)) ...
DomBonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Bonjour,
pour convertir la 1re lettre d'une chaîne en majuscule, tu peux utiliser:
strconv(Nom, vbProperCase)
ou
strconv(Nom, 3)
ce qui devrait te donner
... strconv(Nom, vbProperCase) & Lcase(Left(Prenom, 3)) ...
Dom
Bonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Bonjour,
pour convertir la 1re lettre d'une chaîne en majuscule, tu peux utiliser:
strconv(Nom, vbProperCase)
ou
strconv(Nom, 3)
ce qui devrait te donner
... strconv(Nom, vbProperCase) & Lcase(Left(Prenom, 3)) ...
DomBonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Gulp ! Pas vu que tu voulais aussi l'initiale du début du prénom en majuscule.
Mais ce n'est pas plus compliqué, tu as ce qu'il faut pour corriger :)
DomBonjour,
pour convertir la 1re lettre d'une chaîne en majuscule, tu peux utiliser:
strconv(Nom, vbProperCase)
ou
strconv(Nom, 3)
ce qui devrait te donner
... strconv(Nom, vbProperCase) & Lcase(Left(Prenom, 3)) ...
DomBonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Gulp ! Pas vu que tu voulais aussi l'initiale du début du prénom en majuscule.
Mais ce n'est pas plus compliqué, tu as ce qu'il faut pour corriger :)
Dom
Bonjour,
pour convertir la 1re lettre d'une chaîne en majuscule, tu peux utiliser:
strconv(Nom, vbProperCase)
ou
strconv(Nom, 3)
ce qui devrait te donner
... strconv(Nom, vbProperCase) & Lcase(Left(Prenom, 3)) ...
Dom
Bonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
Gulp ! Pas vu que tu voulais aussi l'initiale du début du prénom en majuscule.
Mais ce n'est pas plus compliqué, tu as ce qu'il faut pour corriger :)
DomBonjour,
pour convertir la 1re lettre d'une chaîne en majuscule, tu peux utiliser:
strconv(Nom, vbProperCase)
ou
strconv(Nom, 3)
ce qui devrait te donner
... strconv(Nom, vbProperCase) & Lcase(Left(Prenom, 3)) ...
DomBonjour à,
J’ai créé une UserForm qui transmet dans un document à l’écran les
informations tout en majuscules.
J’aimerais pouvoir enregistrer le document sous un nom qui sera généré par
le contenu des signets mais que ce contenu soit transformé pour obtenir la
première lettre en majuscules et les autres lettres en minuscules.
Par exemple, pour LUCILLE RIVARD 6/10/70 je voudrais que le document
s’enregistre sous RivardLuc1970-10-06.
Je n’arrive pas à trouver comment faire la conversion en FirstCaps. Voici
les instructions que j’ai écrites jusqu’à maintenant et j’y suis
presqu’arrivée mais cette conversion manque.
Sub Enr()
Dim Nom As String
Dim Prenom As String
Dim DateNais As String
Prenom = ActiveDocument.Bookmarks("PrenomP").Range.Text
Nom = ActiveDocument.Bookmarks("NomP").Range.Text
DateNais = ActiveDocument.Bookmarks("DateNais").Range.Text
With Dialogs(wdDialogFileSaveAs)
‘ici j’ai mis en lettres minuscules car je ne sais pas la commande pour la
première lettre et majuscules
.Name = LCase(Nom) & LCase(Left(Prenom, 3)) & Format(DateNais, "yyyy/mm/dd")
.Show
End With
End Sub
Merci de votre aide
Jocelyne
ChDir "C:UsersPropriétaireDocumentsConsultations"
'MkDir StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) &
Format(DateNaisRep, "yyyymmdd")
ChDir "C:UsersPropriétaireDocumentsConsultations"
'MkDir StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) &
Format(DateNaisRep, "yyyymmdd")
ChDir "C:UsersPropriétaireDocumentsConsultations"
'MkDir StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) &
Format(DateNaisRep, "yyyymmdd")
BonjourChDir "C:UsersPropriétaireDocumentsConsultations"
'MkDir StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) &
Format(DateNaisRep, "yyyymmdd")
Pour mettre au point il est plus facile de passer par des variables.
Faites :
Dim Dossier as string
Dossier = "C:UsersPropriétaireDocumentsConsultations" _
& StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) _
& Format(DateNaisRep, "yyyymmdd")
Debug.print Dossier
Mkdir Dossier
A défaut ajoutez avant le mkdir :
Debug.print "Nom:" &<StrConv(NomRep, vbProperCase)
Debug.print "Prénom:" & StrConv(PrenomRep, vbProperCase)
Debug.print "Date:" Format(DateNaisRep, "yyyymmdd")
--
A+
Bonjour
ChDir "C:UsersPropriétaireDocumentsConsultations"
'MkDir StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) &
Format(DateNaisRep, "yyyymmdd")
Pour mettre au point il est plus facile de passer par des variables.
Faites :
Dim Dossier as string
Dossier = "C:UsersPropriétaireDocumentsConsultations" _
& StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) _
& Format(DateNaisRep, "yyyymmdd")
Debug.print Dossier
Mkdir Dossier
A défaut ajoutez avant le mkdir :
Debug.print "Nom:" &<StrConv(NomRep, vbProperCase)
Debug.print "Prénom:" & StrConv(PrenomRep, vbProperCase)
Debug.print "Date:" Format(DateNaisRep, "yyyymmdd")
--
A+
BonjourChDir "C:UsersPropriétaireDocumentsConsultations"
'MkDir StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) &
Format(DateNaisRep, "yyyymmdd")
Pour mettre au point il est plus facile de passer par des variables.
Faites :
Dim Dossier as string
Dossier = "C:UsersPropriétaireDocumentsConsultations" _
& StrConv(NomRep, vbProperCase) & StrConv(PrenomRep, vbProperCase) _
& Format(DateNaisRep, "yyyymmdd")
Debug.print Dossier
Mkdir Dossier
A défaut ajoutez avant le mkdir :
Debug.print "Nom:" &<StrConv(NomRep, vbProperCase)
Debug.print "Prénom:" & StrConv(PrenomRep, vbProperCase)
Debug.print "Date:" Format(DateNaisRep, "yyyymmdd")
--
A+
Merci de m’aider à résoudre ce problème.
Merci de m’aider à résoudre ce problème.
Merci de m’aider à résoudre ce problème.
Re
Voici ce que dit la doc DOS sur Mkdir :
If path$ includes an parent folder that does not exist, a run-time
Error 76 occurs ("Path not found").
En clair, si vous voulez créer le dossier c:xxxxyyyyy
et que le dossier c:xxxx n'existe aps, il faut d'abord créer
c:xxxx
puis
c:xxxxyyyyy
D'où une nouvelle hypothèse est qu'il y aurait un "/" ou un "" qui
traîne.
--
A+
Re
Voici ce que dit la doc DOS sur Mkdir :
If path$ includes an parent folder that does not exist, a run-time
Error 76 occurs ("Path not found").
En clair, si vous voulez créer le dossier c:xxxxyyyyy
et que le dossier c:xxxx n'existe aps, il faut d'abord créer
c:xxxx
puis
c:xxxxyyyyy
D'où une nouvelle hypothèse est qu'il y aurait un "/" ou un "" qui
traîne.
--
A+
Re
Voici ce que dit la doc DOS sur Mkdir :
If path$ includes an parent folder that does not exist, a run-time
Error 76 occurs ("Path not found").
En clair, si vous voulez créer le dossier c:xxxxyyyyy
et que le dossier c:xxxx n'existe aps, il faut d'abord créer
c:xxxx
puis
c:xxxxyyyyy
D'où une nouvelle hypothèse est qu'il y aurait un "/" ou un "" qui
traîne.
--
A+
Bonjour
Merci pour le retour.
Vous pourriez une fonction qui regroupe le traitement des caractères
interdits ou à risque, comme cela votre macro sera moins fragile.
Exemple :
Function Convertir(A as string)
Dim T as string
T = A
'Supprimer les tabulations
T = Replace(T, vbTab, "", , , vbTextCompare)
'Supprimer les retours à la ligne
T = Replace(T, vbCr, "", , , vbTextCompare)
'Supprimer les fins de ligne
T = Replace(T, vbLf, "", , , vbTextCompare)
'Remplacer les / et
T = Replace(T, "/", "_", , , vbTextCompare)
T = Replace(T, "", "_", , , vbTextCompare)
' etc.
Convertir = T
end function
Pour l'utiliser :
Dossier = "C:UsersPropriétaireDocumentsConsultations" _
& Convertir(StrConv(NomRep, vbProperCase) _
& StrConv(PrenomRep, vbProperCase) _
& Format(DateNaisRep, "yyyymmdd"))
Pas testé tel quel.
--
A+
Bonjour
Merci pour le retour.
Vous pourriez une fonction qui regroupe le traitement des caractères
interdits ou à risque, comme cela votre macro sera moins fragile.
Exemple :
Function Convertir(A as string)
Dim T as string
T = A
'Supprimer les tabulations
T = Replace(T, vbTab, "", , , vbTextCompare)
'Supprimer les retours à la ligne
T = Replace(T, vbCr, "", , , vbTextCompare)
'Supprimer les fins de ligne
T = Replace(T, vbLf, "", , , vbTextCompare)
'Remplacer les / et
T = Replace(T, "/", "_", , , vbTextCompare)
T = Replace(T, "", "_", , , vbTextCompare)
' etc.
Convertir = T
end function
Pour l'utiliser :
Dossier = "C:UsersPropriétaireDocumentsConsultations" _
& Convertir(StrConv(NomRep, vbProperCase) _
& StrConv(PrenomRep, vbProperCase) _
& Format(DateNaisRep, "yyyymmdd"))
Pas testé tel quel.
--
A+
Bonjour
Merci pour le retour.
Vous pourriez une fonction qui regroupe le traitement des caractères
interdits ou à risque, comme cela votre macro sera moins fragile.
Exemple :
Function Convertir(A as string)
Dim T as string
T = A
'Supprimer les tabulations
T = Replace(T, vbTab, "", , , vbTextCompare)
'Supprimer les retours à la ligne
T = Replace(T, vbCr, "", , , vbTextCompare)
'Supprimer les fins de ligne
T = Replace(T, vbLf, "", , , vbTextCompare)
'Remplacer les / et
T = Replace(T, "/", "_", , , vbTextCompare)
T = Replace(T, "", "_", , , vbTextCompare)
' etc.
Convertir = T
end function
Pour l'utiliser :
Dossier = "C:UsersPropriétaireDocumentsConsultations" _
& Convertir(StrConv(NomRep, vbProperCase) _
& StrConv(PrenomRep, vbProperCase) _
& Format(DateNaisRep, "yyyymmdd"))
Pas testé tel quel.
--
A+