Discussion :

[mike2302]

bonjour,

Voila en fait dans une zone de texte, j'ai le chemin d'un fichier excel que je veux importer à l'aide d'un bouton.Seulement , selon le fichier excel que je choisit, le chemin change.Alor je voudrai ne pas a avoir a changé le chemin dans le code vba a chaque fois...

je voudrai qu'a partir du chemin qu'il y a dans la zone de texte l'import se fasse automatiquement lorsque j'appuie sur le bouton "import".

Avez vous compris?
Pouvez vous m'aider s'il vous plait?

[Invité]

Bonjour

Que dois faire le code sur le bouton import ?

Starec

[mike2302]

desolé pour le retard, j'ai eut des quelques soucis concernant internet...

En fait au bouton "import" j'ai mis le code suivant :

"DoCmd.TransferSpreadsheet acImport, 7, "le chemin contenue dans la zone de texte", True, "" "

Mon souci se trouve entre les " " je voudrai qu'il y ait le chemin contenue dans une zone de texte

m'avez-vous compris? est ce possible?

[DMboup]

Tu déclares une variable String et tu lui affecte la valeur de la zone de texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim Bcible as String
BCible=TaZonedeTexte 'du genre "C:\chemin\fichierExcel"
DoCmd.TransferSpreadsheet acImport, 7, BCible, True, ""

[Lou Pitchoun]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadsheet acImport, 7, Me.NomChamp, True, ""

[mike2302]

Merci beaucoup DMboup et Kikof d'avoir consulté ma discussion et d'y avoir répondu.

J'ai éssayé vos 2 solutions


Celle de DMboup j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Bcible as String
BCible=TaZonedeTexte

<= A la place de "TaZonedeTexte" j'ai mit le nom de la zone de textes qui été "Texte5"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadsheet acImport, 7, BCible, True, ""

Mais sa n'a pas fonctionné. J'ai peut etre mal compris ce que tu m'avais dit...


Puis j'ai essayé celle de kikof :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadsheet acImport, 7, Me.NomChamp, True, ""

<= j'ai renommé ma zone de texte en "NomChamp" mais sa n'a pas fonctionné non plus...


Pouvez vous m'apportez plus de precision s'il vous plait? je vous en remercie d'avance pour votre aide