Convertir dans un autre classeur
Résolu/Fermé
A voir également:
- Convertir dans un autre classeur
- Convertir youtube en mp3 avec audacity - Guide
- Convertir pdf en word excel gratuit - Guide
- Convertir epub en kindle - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment convertir un fichier en pdf - Guide
4 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
24 oct. 2016 à 16:09
24 oct. 2016 à 16:09
Bonjour,
Comme ceci, c'est élémentaire!
Comme ceci, c'est élémentaire!
Range("D1").Value
non, ça ne fonctionne pas ! J'ai même essayé ça:
Sub convertir()
'
' convertir Macro
'
Windows("Sheets("ZZZ").Range("D1").Value").Activate
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
qui ne fonctionne pas non plus :(
Sub convertir()
'
' convertir Macro
'
Windows("Sheets("ZZZ").Range("D1").Value").Activate
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
qui ne fonctionne pas non plus :(
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié par cs_Le Pivert le 24/10/2016 à 16:20
Modifié par cs_Le Pivert le 24/10/2016 à 16:20
En fait, je souhaite faire un convertir sur un fichier ouvert (dont j'ai identifié le nom en D1) qui ne doit pas être enregistré, car amené à être généré plusieurs fois par jours par différents utilisateurs. Donc pas de chemin...
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
24 oct. 2016 à 16:28
24 oct. 2016 à 16:28
Comme ceci:
Workbooks(Range("D1").Value).Worksheets("ZZZ").Activate
KatyKat
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
25 oct. 2016 à 11:14
25 oct. 2016 à 11:14
Non plus : Erreur d'execution 9 : L'indice n'appartient pas à la sélection :(
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
25 oct. 2016 à 12:03
25 oct. 2016 à 12:03
Cela fonctionne chez moi:
Jai 2 classeurs ouverts : Classeur1 qui contient ma macro et dans la cellule D1 de la Feuille1: Classeur2.xls
Et bien entendu le Classeur2
Ensuite je lance macro depuis la Feuille 1 du Classeur1:
je me retrouve sur la Feuille2 du Classeur2
Voilà. Si tu as un problème, c'est que tu ne me dis pas tout. Ou que tu n'as pas respecté l'ordre que je viens de te décrire.
Jai 2 classeurs ouverts : Classeur1 qui contient ma macro et dans la cellule D1 de la Feuille1: Classeur2.xls
Et bien entendu le Classeur2
Ensuite je lance macro depuis la Feuille 1 du Classeur1:
Workbooks(Range("D1").Value).Worksheets("Feuil2").Activate
je me retrouve sur la Feuille2 du Classeur2
Voilà. Si tu as un problème, c'est que tu ne me dis pas tout. Ou que tu n'as pas respecté l'ordre que je viens de te décrire.
KatyKat
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
25 oct. 2016 à 15:16
25 oct. 2016 à 15:16
Effectivement, la worksheet était incorrecte ;) j'avais mis celle de départ, dans laquelle était le nom du fichier à convertir (donc ZZZ) et non celle d'arrivée (Sheet1).
Maintenant, ça fonctionne !
Un immense merci !
Maintenant, ça fonctionne !
Un immense merci !