Bonjour à tous,
J'ai suivi le tutoriel disponible dans la page Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel) afin d'exporter un contenu de cellule dans un fichier .txt
C'est exactement ce que je souhaite mais avec un ensemble de cellules.
Si je modifie le code original suivant :
Sub excelVersFichierTexte_V02()
Dim Fichier As String
Fichier = "C:\Documents and Settings\michel\dossier\general\excel\Fichier.Txt"
Open Fichier For Output As #1
Print #1, Range("A1") 'renvoie la valeur cellule A1 dans le fichier txt
Close
End Sub
Par :
Private Sub CommandButton1_Click()
Dim Fichier As String
Fichier = "C:\Documents and Settings\***\Bureau\TEST.txt"
Open Fichier For Output As #1
Print #1, Sheets("feuil2").Range("A1:J10")
Close
End Sub
Ça ne marche pas (Erreur d'exécution '13' sur la ligne "Print #1...").
Pourriez-vous m'expliquer pourquoi et m'aiguiller vers une solution?
Merci d'avance à tous
J'ai suivi le tutoriel disponible dans la page Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel) afin d'exporter un contenu de cellule dans un fichier .txt
C'est exactement ce que je souhaite mais avec un ensemble de cellules.
Si je modifie le code original suivant :
Sub excelVersFichierTexte_V02()
Dim Fichier As String
Fichier = "C:\Documents and Settings\michel\dossier\general\excel\Fichier.Txt"
Open Fichier For Output As #1
Print #1, Range("A1") 'renvoie la valeur cellule A1 dans le fichier txt
Close
End Sub
Par :
Private Sub CommandButton1_Click()
Dim Fichier As String
Fichier = "C:\Documents and Settings\***\Bureau\TEST.txt"
Open Fichier For Output As #1
Print #1, Sheets("feuil2").Range("A1:J10")
Close
End Sub
Ça ne marche pas (Erreur d'exécution '13' sur la ligne "Print #1...").
Pourriez-vous m'expliquer pourquoi et m'aiguiller vers une solution?
Merci d'avance à tous