Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Probleme de passage de Word a Excel [ Langages dérivés / VBA ] (xaeris)

mardi 5 août 2008 à 17:12:35 | Probleme de passage de Word a Excel

xaeris

Bonjour tout le monde !

J'ai un soucis avec une macro vba que je suis en train d'écrire et qui doit permettre de tranférer tous les onglets d'un fichier Excel sous Word.

Voici ma macro :

Sub ExcelToWord(chemin_fichier_word As String, chemin_fichier_excel As String)

Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim MyWorkSheet As Worksheet
Set AppWord = New Word.Application

Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True

'ouvre le document word
Set DocWord = AppWord.Documents.Open(chemin_fichier_word, readonly:=False)

'copie les données excel et les colle dans word
activer_workbook (chemin_fichier_excel)
For Each MyWorkSheet In ActiveWorkbook.Worksheets
      
MyWorkSheet.Activate
        ActiveSheet.UsedRange.Copy
        DocWord.Range.PasteExcelTable False, False, False
        DocWord.Select
        Selection.InsertBreak Type:=wdPageBreak
        Application.CutCopyMode = False

Next

DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit

End Sub

Le problème que je rencontre c'est qu'au lieu de créer une nouvele feuille word pour chaque onglet, il se contente d'écrire par dessus, toujours sur la meme page.
Ce que j'extrait du word semble etre une image.Et ces images se collent les unes au dessus des autres.
Je ne m'y connais pas vraiment en VBA -Word ( plus en Excel) donc si quelqu'un pouvait me montrer comment éviter cette erreur...

En attendant je vais continuer a chercher!

Merci d'avance.
-xaeris-

mercredi 6 août 2008 à 18:58:13 | Re : Probleme de passage de Word a Excel

alosamoelle

Bonjour,
le probleme est ici
'ouvre le document word
Set DocWord = AppWord.Documents.Open(chemin_fichier_word, readonly:=False)

tu n'ouvre qu'un document word au lieu de l'ouvrir dans ta boucle

For Each MyWorkSheet In ActiveWorkbook.Worksheets
Set DocWord = AppWord.Documents.Open(chemin_fichier_word, readonly:=False)

bien sur il faut mettre un nom different de chemin_fichier_word pour chaque retour de boucle et fermer ton word avant le next sinon cela va mal se passer.
Voilà la piste à suivre.
Bon courage

jeudi 7 août 2008 à 11:09:12 | Re : Probleme de passage de Word a Excel

xaeris

bonjour! merci de ta réponse! mais elle ne répond pas tout a fait a ce que je recherche.
En fait j'aimerais que chaque onglet excel que je vais importer s'importe dans le meme fichier word, mais avec un saut de page afin que chaque onglet soit disposé sur une seule page.

J'ai utilisé la piste que tu m'a donnée, mais cela me fait la meme chose, a savoir que ca colle tout dans la premier page, les uns au dessus des autres...

En fait je ne comprend pas pourquoi je dois changer le nom de chemin_fichier_word...

Ma procédure récupère le nom du Word dans lequel je veux importer le excel, ce nom ne change donc pas pour chaque passage de boucle...

je pense qu'il me manque la ligne de code qui me dit, aprés avoir coller le premier élément, tu sélection la premiere ligne vide au dessous, et tu fais un saut de page.

je vais la chercher!






Cette discussion est classé dans : fichier, application, excel, word, appword


Répondre à ce message

Sujets en rapport avec ce message

fichier word et excel [ par mell01 ] bonjour, je travaille actuellement avec des fichiers exel et word dans mon appli vb,je lance ces deux application et ouvre dans chacune d'elle un fich fichier word et excel [ par mell01 ] bonjour, je travaille actuellement avec des fichiers exel et word dans mon appli vb,je lance ces deux application et ouvre dans chacune d'elle un fich Détection si excel est déjà ouvert [ par MarieNoob ] Bonjour tout le monde,Voici mon petit problème, lors du lancement de mon application en VBA je cache excel pour utiliser seulement les Userform avec c Enregistrement fichier depuis VB2008 [ par SeKo54 ] Bonjour,A partir d'une application VB2008 j'ouvre un fichier Excel, effectue diverses opérations puis enregistre les modifications. Le problème est qu comment faire migrer des données structurées de Word vers Excel? [ par rek1201 ] Salut tout le monde.j'ai recu un document au format word de chez mon client, le document contient des données structurés au format suivant :enregistre Fichiers XLS sans Excel [ par LaNono ] Bonjour bonjour, J'ai un soucis sur une application qui doit réaliser des fichier au format XLS. le problème est que certains utilisateurs de l'appli Recherche d'un texte word à partir d'excel [ par Bullrot94 ] Bonjour à tous,   <p class="MsoNor Impossible ouvrir excel par create.object("Excel.Application") [ par ratzmo ] Bonjour,Je suis pas certain d'être dans le bon forum. Si ce n'est pas le cas pouvez vous m'orienter.Mon problème est simple:Je crée un fichier excel p Retrouver le chemin d'un fichier Word (ou Excel) avec uniquement son nom [ par LUSTRUCRU ] Bonjour et tous mes voeux pour cette nouvelle année Voici mon petit problème Dans une appli Excel  je souhaite ouvrir un fichier word "Toto.doc" , Application nécessitant le contenu d'un fichier Excel [ par binedz ] Bonjour à tous,J'essaie depuis quelques jours d'avancer mon application et je me butes à ceci. Voici ce que je désire accomplir:À partir de l'applicat


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 6,256 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.