liste déroulante dans userform
#1
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2009 11h03
boujour a tous
 JCGL et MDF mon fait un code qui recopier les informations de l'userform dans une feuille. pour plus de faciliter d'utilisation j'ai créer une liste déroulante dans l'userform,qui en selectionnant la référence me donne d'autre infos qui s'inscrive aussi dans la feuille, quand je clic sur enregistrer. par contre quand je veut enregistrer la feuille dans son sous dossier la un message d'erreur s'affiche qui et:(Erreur d'éxecution '1004':
la méthode' saveAs' de l'objet'_WorkBook a échoué.)
JCGL ma proposé une manipe que j'ai essayer sans succer.
 se serai peut etre la liste déroulante rajouter qui empecherer d'enregistré la feuille dans son fichier.

quelqu'un peut il jeter un oeil au fichier

merci d'avance


Pièce jointe:
zip Archive.zip   [ Taille: 31.03 Ko - Téléchargements: 549 ]
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#2
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-01-2009 11h35
Bonjour Claude, bonne année 2009!

le nom du fichier est vide car la case J2 de la feuille modèle sera toujours vide étant donné qu'elle est fusionnée avec I1!
Si  cette "zone" renseigne à la fois le sous-dossier + le nom du fichier (pas pu tester car je n'ai pas excel 2007) dans ce cas ceci devrait suffir:

F = ThisWorkbook.Path & "\" & Range("I1") & ".xml"


A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#3
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2009 12h40
bonjour Skoobi et  bonne année a toi aussi
 merci pour ton aide la manip marche sa enregistre bien la feuille mais pas dans son sous fichiers.
je t'envoi un zip pour que tu voit ou sa l'enregistre.

merci



Pièce jointe:
zip Archive.zip   [ Taille: 64.79 Ko - Téléchargements: 464 ]
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#4
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2009 12h50
re Skoobi

j'ai trouver pour enregistrer dans le sous dossier:
F = ThisWorkbook.Path & "\" & Range("I1") & "\" & Range("I1") & ".XML"

il faut juste doubler le "I1".

par contre sa me l'enregistre dans un format bizare que je ne peut pas ouvrir.

peut tu regarder merci
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#5
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-01-2009 17h19
Re,

essaye en remplaçant la valeur de FileFormat par celui-ci:

xlXMLSpreadsheet

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#6
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2009 17h23
merci pour tout skoobi

voici la version du code qui fonctionne:

F = ThisWorkbook.Path & "\" & Range("I1") & "\" & Range("I1") & ".xls"

merci
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#7
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2009 17h30
rebonjour
je vient de m'apercevoir d'un disfonctionnement je ne peut pas enregistrer plusieur feuilles dans le meme sous dossier.

quelqu'un pourrait il me dire pourquoi et se qu'il faut faire?

merci d'avance

Pièce jointe:
zip Archive.zip   [ Taille: 64.82 Ko - Téléchargements: 520 ]
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#8
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 03-01-2009 18h03
Bonjour à tous,

A l'origine, ton nom de fichier était le numéro de lot et l'extension soit :
F = ThisWorkbook.Path & "\" & Range("I1") & "\" & Range("D4") & ".xls"
Deux fichiers ne peuvent pas avoir le même nom
A le nom du Projet en nom de Répertoire et le nom du Lot en nom du Fichier, tu devrais pouvoir t'en sortir

A toi de voir si tu veux du *.xls ou du *.xlm
Si tu souhaites du *.xlm, prend en compte le dernier message de Skoobi (que t'avait déjà donné mDF, il me semble)

A+


Cordialement
Hors Ligne
Rapport   Haut 

Re: liste déroulante dans userform
#9
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 03-01-2009 18h21

re et merci JCGL et skoobi

ton code et le bon JCGL merci a vous deux pour votre aide.

bonne soirée

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes