Bonjour,
Je voudrais copier une feuille Excell dans un fichier texte. Cette feuille fait partie d'un classeur contenant plusieurs feuilles.
Malheureusement ca ne marche pas il marque erreur d'execution 424 pour la ligne Clipboard.Clear.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 'copie les résultats dans un fichier ext Sheets("EXT").Activate nomext = lien & nom & ".EXT" Set FSys = CreateObject("Scripting.FileSystemObject") Set fichext = FSys.CreateTextFile(nomext) Clipboard.Clear Sheets("EXT").Select Selection.Copy ficext.writeline Clipboard.GetText Clipboard.Clear Set FSys = Nothing
Quelqu'un pourrait m'aider ???
Merci
Partager