Se connecter avec
S'enregistrer | Connectez-vous

EXCEL: copier coller le contenu d'un autre fichier VBA

Dernière réponse : dans Programmation

Slt à tous,

Voilà mon soucis... Le tout est en VBA. L'idée est d'ouvrir un fichier (via le voisinage réseau), et de faire un copier des cellules remplies (de A1 à A145 pour l'instant mais ça grossit toute les semaines) et les coller dans mon fichier d'origine...

Voici le code:

Workbooks.OpenText Filename:="\\Gemserver\stss\active_sits.txt"

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

ActiveWorkbook.Close

Etc... Seulement à la ligne "Range("A1").Select" je reçoit une erreur:'1004':La méthode Select de la classe Range a échoué...

Si kinkun peut m'aider...

Sauc'

Autres pages sur : excel copier coller contenu fichier vba

Lassé par la pub ? Créez un compte

j'ai pas travaillé avec les fichiers .Txt sous excel, alors je peux pas te dire si c'est faisable.
après une petite recherche sur :google: je peux te dire d'aller voir là:

http://vlohr.free.fr/veriti/articles.php?lng=fr&pg=164
http://ericrenaud.free.fr/droitefichiers.htm

je sais pas ce que ça vaut, mais si ca peut t 'aider à résoudre ton problème. n'oublie pas google: avec une question bien posée, t'as une réponse...


EDIT:
un site pas mal, avec plein de code VBA:
http://frederic.sigonneau.free.fr/office.htm

Salut, à ma connaissance, avant d'utiliser la mèthode 'Select' pour ton objet 'Range("A1")', tu dois activer la feuille excel qui le contient, mais ici il s'agit d'un fichier TXT!

UNE IDEE:
laisse tomber 'copier coller' et essaye plutôt de "redistribuer ton fichier TXT(active_sits.txt) dans une feuille de calcul de ton classeur active" et ce grace tjrs à la méthode 'OpenText' que tu as utilisée mais avec plus d'options.
Voilà l'exemple de l'aide excel2000 qui m'a fourni cette idèe:
---------
OpenText, méthode - Exemple

Cet exemple montre comment ouvrir le fichier Data.txt et utiliser les tabulations comme séparateurs pour redistribuer ce fichier texte dans une feuille de calcul.

Workbooks.OpenText filename:="DATA.TXT", _
dataType:=xlDelimited, tab:=True
--------

Donc il te suffira de bien étudier cette méthode 'OpenText' dans la doc excel, et tu auras ce que tu veux avec moins d' instructions (une seule je crois!).

Moi, je ne l'ai pas vérifié. J'éspère que cela t'aidera. %Bonne chance %.
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde