Bonjour,
j'ai deja post=E9 plusieurs fois a ce sujet, mais aucune=20
solution propos=E9e n'a encore r=E9ussi a r=E9soudre ce probleme.
Je dois vraiment faire quelquechose de non conventionnel,=20
et pourtant, je ne souhaite juste importer des donn=E9es=20
d'un fichier texte dans un fichier excel.
voici mon code ramen=E9 au plus simple, mais qui g=E9n=E8re=20
quand m=EAme l'erreur :
Sub Main()
Dim TemplateWB As Workbook
Dim OutQtyWB As Workbook
Dim OpenFileName As String, SaveFile As String
=20
OpenFileName =3D "D:\fichier template.xlt"
Workbooks.Open Filename:=3DOpenFileName, ReadOnly:=3DFalse,=20
IgnoreReadOnlyRecommended:=3DTrue
Set TemplateWB =3D ActiveWorkbook
Application.DisplayAlerts =3D False
With TemplateWB
.Sheets("Sheet1").Activate
.Sheets("Sheet2").Delete
.Sheets("Sheet3").Delete
.Sheets("Sheet4").Delete
End With
Application.DisplayAlerts =3D True
=20
SaveFile =3D "D:\fichier resultat.xls"
TemplateWB.Close SaveChanges:=3DTrue, Filename:=3DSaveFile
Set OutQtyWB =3D Nothing
Set TemplateWB =3D Nothing
End Sub
Le code se deroule sans aucun probleme, mais lorsque=20
j'ouvre le fichier sauvegard=E9 alors, j'ai une erreur et=20
excel ce ferme.
j'ai test=E9 avec un fichier template vide en .xls, j'ai la=20
meme erreur :/
alors je suppose qu'une chose dans mon code ne lui plait=20
pas, mais je vois pas du tout ou est ce. J'ai le m=EAme type=20
de fonction deja utilis=E9 dans la macro, et celle ci=20
fonctionne...
Je suis prenneur de toute id=E9e relative a ce sujet, et=20
vous remercie d'avance pour celle ci
++
Blaster
Je viens de tester avec des _ à la place des espaces, et le résultat est le même. Merci pour ton idée ++ Blaster
-----Message d'origine----- Bonjour Blaster
Une idée comme ça : As-tu essayé avec un nom de fichier sans espace dedans ?
j-p
.
Jp Pradier
Bon j'ai essayé ton code qui fonctionne chez moi.( Un essai avec un petit fichier txt de 10 lignes mais ca doit pas faire de différences ). Une remarque : Tu copies tes données sur la feuille 3 pour la supprimer ensuite ?
j-p
Bon j'ai essayé ton code qui fonctionne chez moi.( Un essai avec un petit fichier txt de 10 lignes mais ca doit pas
faire de différences ). Une remarque :
Tu copies tes données sur la feuille 3 pour la supprimer ensuite ?
Bon j'ai essayé ton code qui fonctionne chez moi.( Un essai avec un petit fichier txt de 10 lignes mais ca doit pas faire de différences ). Une remarque : Tu copies tes données sur la feuille 3 pour la supprimer ensuite ?
j-p
Blaster
Salut, Merci pour ton test, je vais tester sur un autre pc, j'ai peut etre un autre probleme.
Oui en fait, je copie les données qui me servent de base de calcul, ensuite j'ai un tas de scripts qui tournent et qui me sortent un tas de statistiques, que je sauvegarde, et je supprime toutes les données de base qui ne font que prendre de la place sur le fichier excel, et non utile pour les utilisateurs. Mais pour tester, j'ai supprimé toutes les étapes intermédiaires, et malheureusement j'ai toujours le bug :/
J'ai essayé en limitant a 100 les données dans le fichier texte, j'ai la meme erreur. Je test sur un autre pc pour voir :)
je te remercie pour ton aide ++ Blaster
-----Message d'origine----- Bon j'ai essayé ton code qui fonctionne chez moi.( Un essai avec un petit fichier txt de 10 lignes mais ca doit
pas
faire de différences ). Une remarque : Tu copies tes données sur la feuille 3 pour la supprimer ensuite ?
j-p
Salut,
Merci pour ton test, je vais tester sur un autre pc, j'ai
peut etre un autre probleme.
Oui en fait, je copie les données qui me servent de base
de calcul, ensuite j'ai un tas de scripts qui tournent et
qui me sortent un tas de statistiques, que je sauvegarde,
et je supprime toutes les données de base qui ne font que
prendre de la place sur le fichier excel, et non utile
pour les utilisateurs.
Mais pour tester, j'ai supprimé toutes les étapes
intermédiaires, et malheureusement j'ai toujours le bug :/
J'ai essayé en limitant a 100 les données dans le fichier
texte, j'ai la meme erreur.
Je test sur un autre pc pour voir :)
je te remercie pour ton aide
++
Blaster
-----Message d'origine-----
Bon j'ai essayé ton code qui fonctionne chez moi.( Un
essai avec un petit fichier txt de 10 lignes mais ca doit
pas
faire de différences ). Une remarque :
Tu copies tes données sur la feuille 3 pour la supprimer
ensuite ?
Salut, Merci pour ton test, je vais tester sur un autre pc, j'ai peut etre un autre probleme.
Oui en fait, je copie les données qui me servent de base de calcul, ensuite j'ai un tas de scripts qui tournent et qui me sortent un tas de statistiques, que je sauvegarde, et je supprime toutes les données de base qui ne font que prendre de la place sur le fichier excel, et non utile pour les utilisateurs. Mais pour tester, j'ai supprimé toutes les étapes intermédiaires, et malheureusement j'ai toujours le bug :/
J'ai essayé en limitant a 100 les données dans le fichier texte, j'ai la meme erreur. Je test sur un autre pc pour voir :)
je te remercie pour ton aide ++ Blaster
-----Message d'origine----- Bon j'ai essayé ton code qui fonctionne chez moi.( Un essai avec un petit fichier txt de 10 lignes mais ca doit
pas
faire de différences ). Une remarque : Tu copies tes données sur la feuille 3 pour la supprimer ensuite ?
j-p
Frédéric Sigonneau
Bonsoir,
Je n'arrive pas non plus à reproduire ton erreur.. Juste une suggestion, même si je ne pense pas qu'elle résoudra ton problème. Pour créer un classeur basé sur un modèle, tu peux utiliser une syntaxe plus courte et qui n'utilise pas le modèle comme un classeur "ordinaire" :
Ma contribution est bien maigre, mais je suis à court d'idées. Désolé :-(
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, j'ai deja posté plusieurs fois a ce sujet, mais aucune solution proposée n'a encore réussi a résoudre ce probleme.
Je dois vraiment faire quelquechose de non conventionnel, et pourtant, je ne souhaite juste importer des données d'un fichier texte dans un fichier excel.
voici mon code ramené au plus simple, mais qui génère quand même l'erreur :
Sub Main() Dim TemplateWB As Workbook Dim OutQtyWB As Workbook Dim OpenFileName As String, SaveFile As String
Application.DisplayAlerts = False With TemplateWB .Sheets("Sheet1").Activate .Sheets("Sheet2").Delete .Sheets("Sheet3").Delete .Sheets("Sheet4").Delete End With Application.DisplayAlerts = True
Set OutQtyWB = Nothing Set TemplateWB = Nothing End Sub
Le code se deroule sans aucun probleme, mais lorsque j'ouvre le fichier sauvegardé alors, j'ai une erreur et excel ce ferme. j'ai testé avec un fichier template vide en .xls, j'ai la meme erreur :/
alors je suppose qu'une chose dans mon code ne lui plait pas, mais je vois pas du tout ou est ce. J'ai le même type de fonction deja utilisé dans la macro, et celle ci fonctionne...
Je suis prenneur de toute idée relative a ce sujet, et vous remercie d'avance pour celle ci ++ Blaster
Bonsoir,
Je n'arrive pas non plus à reproduire ton erreur..
Juste une suggestion, même si je ne pense pas qu'elle résoudra ton problème.
Pour créer un classeur basé sur un modèle, tu peux utiliser une syntaxe plus
courte et qui n'utilise pas le modèle comme un classeur "ordinaire" :
Ma contribution est bien maigre, mais je suis à court d'idées. Désolé :-(
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
j'ai deja posté plusieurs fois a ce sujet, mais aucune
solution proposée n'a encore réussi a résoudre ce probleme.
Je dois vraiment faire quelquechose de non conventionnel,
et pourtant, je ne souhaite juste importer des données
d'un fichier texte dans un fichier excel.
voici mon code ramené au plus simple, mais qui génère
quand même l'erreur :
Sub Main()
Dim TemplateWB As Workbook
Dim OutQtyWB As Workbook
Dim OpenFileName As String, SaveFile As String
Application.DisplayAlerts = False
With TemplateWB
.Sheets("Sheet1").Activate
.Sheets("Sheet2").Delete
.Sheets("Sheet3").Delete
.Sheets("Sheet4").Delete
End With
Application.DisplayAlerts = True
Set OutQtyWB = Nothing
Set TemplateWB = Nothing
End Sub
Le code se deroule sans aucun probleme, mais lorsque
j'ouvre le fichier sauvegardé alors, j'ai une erreur et
excel ce ferme.
j'ai testé avec un fichier template vide en .xls, j'ai la
meme erreur :/
alors je suppose qu'une chose dans mon code ne lui plait
pas, mais je vois pas du tout ou est ce. J'ai le même type
de fonction deja utilisé dans la macro, et celle ci
fonctionne...
Je suis prenneur de toute idée relative a ce sujet, et
vous remercie d'avance pour celle ci
++
Blaster
Je n'arrive pas non plus à reproduire ton erreur.. Juste une suggestion, même si je ne pense pas qu'elle résoudra ton problème. Pour créer un classeur basé sur un modèle, tu peux utiliser une syntaxe plus courte et qui n'utilise pas le modèle comme un classeur "ordinaire" :
Ma contribution est bien maigre, mais je suis à court d'idées. Désolé :-(
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, j'ai deja posté plusieurs fois a ce sujet, mais aucune solution proposée n'a encore réussi a résoudre ce probleme.
Je dois vraiment faire quelquechose de non conventionnel, et pourtant, je ne souhaite juste importer des données d'un fichier texte dans un fichier excel.
voici mon code ramené au plus simple, mais qui génère quand même l'erreur :
Sub Main() Dim TemplateWB As Workbook Dim OutQtyWB As Workbook Dim OpenFileName As String, SaveFile As String
Application.DisplayAlerts = False With TemplateWB .Sheets("Sheet1").Activate .Sheets("Sheet2").Delete .Sheets("Sheet3").Delete .Sheets("Sheet4").Delete End With Application.DisplayAlerts = True
Set OutQtyWB = Nothing Set TemplateWB = Nothing End Sub
Le code se deroule sans aucun probleme, mais lorsque j'ouvre le fichier sauvegardé alors, j'ai une erreur et excel ce ferme. j'ai testé avec un fichier template vide en .xls, j'ai la meme erreur :/
alors je suppose qu'une chose dans mon code ne lui plait pas, mais je vois pas du tout ou est ce. J'ai le même type de fonction deja utilisé dans la macro, et celle ci fonctionne...
Je suis prenneur de toute idée relative a ce sujet, et vous remercie d'avance pour celle ci ++ Blaster
