OVH Cloud OVH Cloud

import de données

6 réponses
Avatar
rick
bjr,

commentr donner le choix à l'utilisateur via une macro de pouvoir
selectionner la feuille d'un classeur choisi au préalable à importer sur le
classeur ouvert.

merci d'avance

6 réponses

Avatar
papou
Bonjour
Tu peux utiliser InputBox :
Dim LaF As String
LaF = InputBox("Feuille à copier :", "Quelle feuille ?")
Si tu es toujours dans le même contexte qu'hier, tu peux utiliser la
fonction FeuilleExiste que je t'ai transmise pour tester si la feuille est
bien présente :
If Not FeuilleExiste(Workbooks("Classeur1.xls"), LaF) Then _
MsgBox "Cette feuille n'existe pas", vbExclamation, "Erreur de nom"

Cordialement
Pascal

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

bjr,

commentr donner le choix à l'utilisateur via une macro de pouvoir
selectionner la feuille d'un classeur choisi au préalable à importer sur
le

classeur ouvert.

merci d'avance


Avatar
rick
le probleme est que je doit pas mettre en dur dans le code le nom du
classeur, et la feuille à importer sur le nouveau classeur.

car chaque utilisateur doit pouvoir choisir le classeur et la feuille à
importer sur le nouveau classeur à la bonne feuille correspondante.

au fait c'est lors de l'appui sur un bouton de commande import,il propose à
l'utilisateur quelle est le classeur et la feuille à importer, sur le
classeur et la feuille ou repose ce bouton de commande.

as tu une idée?

merci d'avance


Bonjour
Tu peux utiliser InputBox :
Dim LaF As String
LaF = InputBox("Feuille à copier :", "Quelle feuille ?")
Si tu es toujours dans le même contexte qu'hier, tu peux utiliser la
fonction FeuilleExiste que je t'ai transmise pour tester si la feuille est
bien présente :
If Not FeuilleExiste(Workbooks("Classeur1.xls"), LaF) Then _
MsgBox "Cette feuille n'existe pas", vbExclamation, "Erreur de nom"

Cordialement
Pascal

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

bjr,

commentr donner le choix à l'utilisateur via une macro de pouvoir
selectionner la feuille d'un classeur choisi au préalable à importer sur
le

classeur ouvert.

merci d'avance







Avatar
papou
Dans ces conditions, il faut que tu utilises une variable texte (par
exemple) pour faire référence au classeur.
Ex :
Dim LeNomCla As String
** Attention *** toutefois à y ajouter l'extension .XLS s'il elle n'y est
pas !
'puis ensuite plus loin tu utilises
Workbooks(LeNomCla)

Mais tu ne dis pas comment est proposé le choix du classeur ?
Cordialement

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

le probleme est que je doit pas mettre en dur dans le code le nom du
classeur, et la feuille à importer sur le nouveau classeur.

car chaque utilisateur doit pouvoir choisir le classeur et la feuille à
importer sur le nouveau classeur à la bonne feuille correspondante.

au fait c'est lors de l'appui sur un bouton de commande import,il propose
à

l'utilisateur quelle est le classeur et la feuille à importer, sur le
classeur et la feuille ou repose ce bouton de commande.

as tu une idée?

merci d'avance


Bonjour
Tu peux utiliser InputBox :
Dim LaF As String
LaF = InputBox("Feuille à copier :", "Quelle feuille ?")
Si tu es toujours dans le même contexte qu'hier, tu peux utiliser la
fonction FeuilleExiste que je t'ai transmise pour tester si la feuille
est


bien présente :
If Not FeuilleExiste(Workbooks("Classeur1.xls"), LaF) Then _
MsgBox "Cette feuille n'existe pas", vbExclamation, "Erreur de nom"

Cordialement
Pascal

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

bjr,

commentr donner le choix à l'utilisateur via une macro de pouvoir
selectionner la feuille d'un classeur choisi au préalable à importer
sur



le
classeur ouvert.

merci d'avance









Avatar
rick
le choix du classeur serait proposé par un userform qui irai chercher dans C.

Mais j'ai pas d'idee encore comment le faire?
as tu une idéé?

merci


Dans ces conditions, il faut que tu utilises une variable texte (par
exemple) pour faire référence au classeur.
Ex :
Dim LeNomCla As String
** Attention *** toutefois à y ajouter l'extension .XLS s'il elle n'y est
pas !
'puis ensuite plus loin tu utilises
Workbooks(LeNomCla)

Mais tu ne dis pas comment est proposé le choix du classeur ?
Cordialement

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

le probleme est que je doit pas mettre en dur dans le code le nom du
classeur, et la feuille à importer sur le nouveau classeur.

car chaque utilisateur doit pouvoir choisir le classeur et la feuille à
importer sur le nouveau classeur à la bonne feuille correspondante.

au fait c'est lors de l'appui sur un bouton de commande import,il propose
à

l'utilisateur quelle est le classeur et la feuille à importer, sur le
classeur et la feuille ou repose ce bouton de commande.

as tu une idée?

merci d'avance


Bonjour
Tu peux utiliser InputBox :
Dim LaF As String
LaF = InputBox("Feuille à copier :", "Quelle feuille ?")
Si tu es toujours dans le même contexte qu'hier, tu peux utiliser la
fonction FeuilleExiste que je t'ai transmise pour tester si la feuille
est


bien présente :
If Not FeuilleExiste(Workbooks("Classeur1.xls"), LaF) Then _
MsgBox "Cette feuille n'existe pas", vbExclamation, "Erreur de nom"

Cordialement
Pascal

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

bjr,

commentr donner le choix à l'utilisateur via une macro de pouvoir
selectionner la feuille d'un classeur choisi au préalable à importer
sur



le
classeur ouvert.

merci d'avance














Avatar
Clément Marcotte
Mais j'ai pas d'idee encore comment le faire?
as tu une idéé?


Voir dialogs dans l'Explorateur d'objets et dans l'aide de VBA.

ou

Voir GetOpenFileName dans l'aide de VBA


ou:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnovba00/html/CommonDialogsPartI.asp

http://search.microsoft.com/search/info.aspx?u=http%3A%2F%2Fmsdn.microsoft.com%2Flibrary%2Fen-us%2Fvbaxl11%2Fhtml%2Fxlobjdialogs1.asp&n=3&naQ&c&fp=3&st=b&na€&qu=excel+vba+dialogs&View=en-us

Avatar
rick
c'est vrai clement c'est une solution.

merci


Mais j'ai pas d'idee encore comment le faire?
as tu une idéé?


Voir dialogs dans l'Explorateur d'objets et dans l'aide de VBA.

ou

Voir GetOpenFileName dans l'aide de VBA


ou:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnovba00/html/CommonDialogsPartI.asp

http://search.microsoft.com/search/info.aspx?u=http%3A%2F%2Fmsdn.microsoft.com%2Flibrary%2Fen-us%2Fvbaxl11%2Fhtml%2Fxlobjdialogs1.asp&n=3&naQ&c&fp=3&st=b&na€&qu=excel+vba+dialogs&View=en-us