Pb Boucle VB6.3 Excel

Fermé
juju112 Messages postés 3 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 27 mai 2008 - 22 mai 2008 à 14:44
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 27 mai 2008 à 14:57
Bonjour tout le monde,

Je suis un peu un novice dans le domaine de la programmation vba sous excel mais je m'entete tout de meme...
Voila mon pb:
J'ai une premiere combobox qui lorsque je selectionne une item a l'interieur me fait une serie de calcul et me met la somme dans un label.
Ensuite j'ai une deuxieme combobox qui reprend tous les clients. Ensuite lorsque je selectionne un de ces client, son nom est automatiquement transforme en un pseudo et mis dans un deuxieme label.

Ce que je souhaiterai c'est mettre en place une boucle qui en fonction des deux labels ouvrent un fichier excel, rangé par exemple dans C:\Mes Documents\.

Merci d'avance de vos réponses

2 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
23 mai 2008 à 09:00
bonjour

Pour ouvrir un classeur avec ton nom choisi et sauvegardé dans "C:\Mes Documents" tu peux utiliser cette instruction

 Workbooks.Add.SaveAs Filename:="C:\Mes Documents\" & Label1.Caption & Label2.Caption & ".xls"

et tu rajoutes ceci pour fermer le classeur créé

ActiveWorkbook.Close

0
juju112 Messages postés 3 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 27 mai 2008
27 mai 2008 à 13:03
salut gbiforme,

Merci de cette reponse mais je ne souhaite pas creer un nouveau classeur.

En fait, ce que je souhaite c'est ouvrir un fichier rangé dans "C:\Mes Documents\" avec les informations contenues dans mes deux Labels....

Je ne connais pas l'instruction et en plus de cela, je souhaite mettre en place une boucle.
Et oui car apres avoir ouvert ce fichier, j'ai deja une instruction pour faire une serie de calculs...

Merci de ton aide.
@+
juju112
0
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
27 mai 2008 à 14:57
bonjour

Simplement pour ouvrir un classeur :
 Workbooks.Open("C:\Mes Documents\" & Label1.Caption) & Label2.Caption & ".xls"
0