A voir également:
- Utiliser un string pour ouvrir un fichier
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir un fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment réduire la taille d'un fichier - Guide
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
20 févr. 2015 à 18:02
Bonsoir
Peut-être :
au lieu de
A+
Peut-être :
Worksheets("Allo").Select
au lieu de
Workbooks (allo)
A+
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..
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