ouverture de fichier par macro

Version imprimable

Bonjour, j'ai un soucis, mon but est de récupérer dans une textbox, les cases choisies de mes combobox.

De ce fait, dans ma textbox, je forme un nom de fichier, par exemple : CHC02SERIEREP14BN12.

Jusqu'ici tout va bien j'ai reussi à récupérer tout. Maintenant je veux aller ouvrir le fichier que j'ai choisi grace a mes combobox et qui apparait dans ma textbox.

Dont le chemin est : c:\sesame\data_lecteur\C02\(valeur de la textbox).dat

Donc pour aller rechercher mon fichier, j'ai fait un enregistrement de macro ou j'ai ete le rechercher manuellement.

Maintenant je voudrais que quand je clique sur le bouton "commandbutton1" et que l'ouverture de fichier se fasse.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Private Sub CommandButton1_Click() Sub Maxime() ' ' Maxime Macro ' Macro enregistrée le 19/05/2011 par u395995 ' ' Touche de raccourci du clavier: Ctrl+Maj+M monfichier = txtAffichage.Text 'la je récupère ce qui se trouve dans la textbox txtAffichage.Text = "CH" & ComboBoxCP.Text & ComboBoxtype.Text & "REP" & ComboBoxREP.Text & "BN" & ComboBoxBN.Text ChDir "F:\PSA\sesame\data_lecteur\C02" Workbooks.OpenText Filename:= _ "F:\PSA\sesame\data_lecteur\C02\MONFICHIER.dat", Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _ TrailingMinusNumbers:=True Range("A1:B19").Select Range("B19").Activate Selection.Copy Windows("Copie de moulinette finale.xls").Activate Range("A6").Select ActiveSheet.Paste Windows("MONFICHIER.dat").Activate ActiveWindow.Close End Sub End Sub
Mais j'ai des message d'érreur comme il y'a un end sub en trop, quand j'en retire un, il me met encore un message d'erreur! Aidez-moi s'il vous plait.

Je vous ai mis le programme complet en PJ ( j'aimerai par ailleurs que les combobox se charge automatiquement car au depart il m'affiche des chiffres et tout dedans alors que j'aimerai voir directement ce qu'il y'a dedans sans cliquer sur le bouton choisir.

Cordialement

Bonjour,
sans avoir analysé ta macro, tu as deux choix. Ou tu appelles ta macro insérée dans un module, ou tu l'écris directement

Code:

1
2
3
Private Sub CommandButton1_Click()
 Maxime
end sub

dans un module :

Code:

1
2
3
4
5
6
Sub Maxime()
 
monfichier = txtAffichage.Text  'la je récupère ce qui se trouve dans la textbox
txtAffichage.Text = "CH" & ComboBoxCP.Text & ComboBoxtype.Text & "REP" & ComboBoxREP.Text & "BN" & ComboBoxBN.Text
.......
End Sub

choix 2 :

Code:

1
2
3
4
5
Private Sub CommandButton1_Click() 
monfichier = txtAffichage.Text  'la je récupère ce qui se trouve dans la textbox
txtAffichage.Text = "CH" & ComboBoxCP.Text & ComboBoxtype.Text & "REP" & ComboBoxREP.Text & "BN" & ComboBoxBN.Text
......
end sub

Merci beaucoup Monsieur, j'ai fais ce que vous m'avez dit, le code marche bien quand j'écrit le nom du fichier à ouvrir mais quand je mets :
Code:

1 2 3 monfichier = txtAffichage.Text 'la je récupère ce qui se trouve dans la textbox txtAffichage.Text = "CH" & ComboBoxCP.Text & ComboBoxtype.Text & "REP" & ComboBoxREP.Text & "BN" & ComboBoxBN.Text
Il me met des erreurs, pouvez-vous regarder à mon programme s'il vous plait, je l'ai mis en Pièce Jointe.

Merci d'avance

19/05/2011, 22h55
carden752
Bonjour,

Tu as mis Option Explicit en haut de ton code.
Cela implique que tu dois déclarer toutes tes variables.
Code:

1 2 3 4 5 6 sub maxime() Dim monfichier as string monfichier... end sub
21/05/2011, 17h13
Maxime082

oui maintenant ça a l'air de marcher mais j'ai encore un soucis il m'affiche une erreur avec la méthode select du range.

Quelqu'un peut-il m'ouvrir mon fichier et finir le code pour que quand j'aille ouvrir le fichier qui apparait dans la textbox, le contenu de celui-ci vienne s'afficher dans la plage A6:A23 de ma feuille s'il vous plait! c'est plus qu'important c'est pour mon stage