Utiliser un string pour ouvrir un fichier

Fermé
phil360 - Modifié par Whismeril le 20/02/2015 à 16:04
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 - 20 févr. 2015 à 18:40
Bonjour,

Je suis nouveau dans la programmation VBA. J'essais de créer un macro avec Excel pour "automatiser" la saisie de texte. je vous explique mon projet.

À chaque jour, je dois aller chercher des renseignements sur un ordinateur hors réseau à l'aide d'une clé USB. Les fichiers qui contiennent les renseignements sont en CSV.

Ainsi, j'ai créer un fichier Excel qui agit comme convertisseur. je sélectionne le nom du fichier, le feuille et la case ce qui permet de savoir qu'elle fichier doit être convertie.

Puis quand j'essais d'effectuer ma dé concaténation. je ne suis pas capable de prendre le nom de la case choisis.

voici mon code....

Sub Convertisseur()

Dim fichier1 As String
Dim nbfeuille1 As String
Dim fichier2 As String
Dim nbfeuille2 As String

fichier1 = Workbooks("Convertisseur.xlsx").Worksheets("Allo").Range("A3")
nbfeuille1 = Workbooks("Convertisseur.xlsx").Worksheets("Allo").Range("A4")



Workbooks (allo)   ***** J'ai toujours une erreur à ce niveau!!
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

'Workbooks("jour.CSV").Sheets("jour").Range("F2:F15").Copy
'Workbooks("Power Line 2010-2011.xls").Sheets("Runtime mars").Range ("G135")



End Sub


EDIT: Ajout de la coloration syntaxique.

A voir également:

2 réponses

Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019
20 févr. 2015 à 18:02
Bonsoir
Peut-être :

Worksheets("Allo").Select


au lieu de
Workbooks (allo)

A+
0
Bonjour,

En fait je me suis mal exprimé. Le nom de mes dossiers change toujours, ainsi, je créer un fichier convertisseur avec le nom du fichier(que j'entre à la main dans la cellule A3) et le nom de la page(que j'entre aussi à la main dans la cellule A4). Par la suite, je veux extraire le nom du fichier et de la page pour être en mesure d'ouvrir le fichier pour le dé concaténé. Et ces la que j'ai mon erreur..

Sub Convertisseur()

Dim fichier1 As String
Dim nbfeuille1 As String
Dim fichier2 As String
Dim nbfeuille2 As String

Application.Workbooks("Convertisseur.xlsx").Worksheets("feuil1").Activate

fichier1 = Range("A3")     *** je mets la cellule A3 du fichier convertisseur ( fichier)
'nbfeuille1 = Range("A4") ****** je mets la cellule A4 du fichier convertisseur dans fichier( plage)

'Range("A16") = fichier1     *** je peux mettre la valeur de fichier1 dans A16 mais je ne suis pas capable de mettre la valeur de fichier1 dans un workbooks.


*
**
*** plusieurs essais pour réussis a ouvrir le fichier 

Set objSheet = ThisWorkbook.Sheets(fichier1)  *** j'essais
Workbooks(fichier1).Select                              *** j'essais

'Workbooks (fichier1)                                      *** j'essais
'Columns("A:A").Select
'Selection.TextToColumns Destination:=Range("A1"),DataType:=xlDelimited, _
'TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
'Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
'        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

'Workbooks("jour.CSV").Sheets("jour").Range("F2:F15").Copy
'Workbooks("Power Line 2010-2011.xls").Sheets("Runtime mars").Range ("G135")


End Sub
0
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
20 févr. 2015 à 18:40
Bonsoir, merci de penser à la coloration syntaxique.
0