A partir d'un fichier word [j'ai bien vu que c'est le forum excel ;-)],=20
je souhaite cr=E9er un fichier excel avec la macro ci-dessous.
La finalit=E9 =E9tant d'avoir un fichier excel portant le nom du fichier =
word, comportant 6 colonnes =E0 renseigner dont 3 le seraient avec des=20
liste de choix. Ces choix =E9tant en page 2.
L'ouverture d'excel, la cr=E9ation du fichier, son enregistrement, le=20
titrage des colonnes, l'=E9criture des choix (en seconde page) ; tout cel=
a=20
fonctionne et se d=E9roule parfaitement.
La cr=E9ation du nom des listes semble se faire correctement mais pourtan=
t=20
je ne suis pas certain que cela se fasse comme il faut car avant la mise =
en place des validations (qui ne fonctionnent pas), si je vais dans le=20
fichier excel (au point d'arr=EAt indiqu=E9 dans la macro), j'ai bien les=
3=20
noms de cr=E9=E9s pour les 3 plages, mais lorsque je s=E9lectionne chaque=
=20
plage, le nom n'apparait pas dans la zone de nom (en haut =E0 gauche).=20
Ceci explique peut =EAtre pourquoi les validations ne fonctionnent pas ap=
r=E8s.
En restant dans le fichier et en tentant de mettre manuellement les=20
validation en place =E0 partir des noms enregistr=E9s pour les plages de =
choix, il y a une erreur de source corrompue....
L'un ou l'une d'entre vous pourrait-il me venir en aide ?
merci d'avance.
Daniel
Pr=E9cision : C'est excel et Word 2003.
Sub ouvrir_excel_new()
'R=E9cup=E9ration du nom par le nom du fichier word
Dim stName As String
Dim NomClas As String
Dim chemin As String
Dim fichier As String
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
MichD
Bonjour,
Pour la création des plages nommées, c'est plus simple de cette manière :
'-------------------------------------------------- '....nomination des listes de choix With exl.ActiveWorkbook.Sheets(2) .Range("A1:A2").Name = "ListAge" .Range("B1:B2").Name = "ListSexe" .Range("C1:C2").Name = "ListLieu" End With '--------------------------------------------------
Bonjour,
Pour la création des plages nommées, c'est plus simple de cette manière :
'--------------------------------------------------
'....nomination des listes de choix
With exl.ActiveWorkbook.Sheets(2)
.Range("A1:A2").Name = "ListAge"
.Range("B1:B2").Name = "ListSexe"
.Range("C1:C2").Name = "ListLieu"
End With
'--------------------------------------------------
Pour la création des plages nommées, c'est plus simple de cette manière :
'-------------------------------------------------- '....nomination des listes de choix With exl.ActiveWorkbook.Sheets(2) .Range("A1:A2").Name = "ListAge" .Range("B1:B2").Name = "ListSexe" .Range("C1:C2").Name = "ListLieu" End With '--------------------------------------------------