Création et copie de donnée dans un fichier texte
Bonjour,
Je voudrais récupérer toutes les données de la colonne A de l'onglet compte, crée une fichier .txt et coller dans le fichier texte que je nommerais e : 1107513.txt (le nom du fichier n'est jamais le même, on trouve cette info dans le classeur 1 en D2
J'arrive à le faire sauf que je doit mettre dans la macro le chemin d’accès du dossier et le nom du fichier .txt n'est pas le bon, hors ce chemin n'est jamais le même mais je veux tout de même enregistré le fichier txt dans le même dossier que mon fichier excel.
Et ça je n'y arrive pas.
merci pour votre aide
BOnjour,
Si tu enregistres dans le même dossier que ton fichier excel alors
ton chemin est facile:
Chemin=Thisworkbook.pathBOnjour,
Si tu enregistres dans le même dossier que ton fichier excel alors
ton chemin est facile:
Chemin=Thisworkbook.path
Bonjour,
Je ne vois pas ou inserez ton code
Voilà le mien qui crée mon fichier .txt et qui le remplie (sauf que je n'arrive pas à modifier le nom du fichier, il faudrais dans ce cas précis qu'il se nomme comme le fichier excel.
Sub krakite()
ActiveWorkbook.SaveAs Filename:= _
"\\INDUS-DATAS\Industron\Fabrication\1-Activités\0-Activités Geophysique\0-Sercel\1-Produits fabriqués\Assemblage 508\1-Modéle dossier fabrication\1xxxxxx\" & [A1] & ".txt", FileFormat:= _
xlTextMSDOS, CreateBackup:=False
End Sub
J'ai fini par trouvé la solution
Merci