Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Demande d'aide sur macro

Demande d'aide sur macro

15 réponses
Avatar
gandi
Bonjour,

Ci-dessous une macro placée dans un document "word" et qui éxécute les
fonctions suivantes:
1. Sélection du document word
2. Copie du document Word dans le presse-papier
3. Ouverture d'un classeur excel nommé corriger.xls et placé dans le
répertoire correcauto.
Ma question est la suivante:
Comment prolonger cette macro de telle sorte que ce qui est dans le
presse papier, vienne se mettre dans la colonne A, à partir de A1

Mercid'avance

Sub versExcel()
'
'
Selection.Wholestory
Selection.Copy
Shell "Excel.exe ""c:\correcauto\corriger.xls""", vbNormalFocus

End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Frédéric Sigonneau
Bonjour,

Ce code (dans un module standard de ton document word) semble faire ce que tu
souhaites :

Sub CopieVersExcel()
Dim xl, Classeur
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set Classeur = xl.workbooks.Open("c:correcautocorriger.xls")
Classeur.sheets("Feuil1").Range("a1").Select
Selection.WholeStory
Selection.Copy
Classeur.sheets("Feuil1").Paste
End Sub

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,

Ci-dessous une macro placée dans un document "word" et qui éxécute les
fonctions suivantes:
1. Sélection du document word
2. Copie du document Word dans le presse-papier
3. Ouverture d'un classeur excel nommé corriger.xls et placé dans le
répertoire correcauto.
Ma question est la suivante:
Comment prolonger cette macro de telle sorte que ce qui est dans le
presse papier, vienne se mettre dans la colonne A, à partir de A1

Mercid'avance

Sub versExcel()
'
'
Selection.Wholestory
Selection.Copy
Shell "Excel.exe ""c:correcautocorriger.xls""", vbNormalFocus

End Sub



Avatar
gandi
Bonjour Frédéric,
Commen vas-tu depuis les mots croisés?
Ca y est c'est ça la solution. Ca marche exactement comme je l'espérais.
Mille fois merci.
Bonne journée àtoi!
Michel!

Frédéric Sigonneau a écrit:
Bonjour,

Ce code (dans un module standard de ton document word) semble faire ce
que tu souhaites :

Sub CopieVersExcel()
Dim xl, Classeur
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set Classeur = xl.workbooks.Open("c:correcautocorriger.xls")
Classeur.sheets("Feuil1").Range("a1").Select
Selection.WholeStory
Selection.Copy
Classeur.sheets("Feuil1").Paste
End Sub

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,

Ci-dessous une macro placée dans un document "word" et qui éxécute les
fonctions suivantes:
1. Sélection du document word
2. Copie du document Word dans le presse-papier
3. Ouverture d'un classeur excel nommé corriger.xls et placé dans le
répertoire correcauto.
Ma question est la suivante:
Comment prolonger cette macro de telle sorte que ce qui est dans le
presse papier, vienne se mettre dans la colonne A, à partir de A1

Mercid'avance

Sub versExcel()
'
'
Selection.Wholestory
Selection.Copy
Shell "Excel.exe ""c:correcautocorriger.xls""", vbNormalFocus

End Sub





Avatar
gandi
Rebonjour,
Bon courage! Notre ami Frédéric a fait une belle avancée (voir son message!)
@+

LeSteph a écrit:
Bonjour,
je cherche aussi
Visiblement:
Ca refuse même sur un nouveau fichier de selectionner une cellule
en revanche on peut coller et enregistrer
ceci par exemple fonctionne avecun nouveau classeur.
../..

Sub wRdExel()
Selection.WholeStory
Selection.Copy
Dim xlApp As Object
Set xlApp = CreateObject("excel.application")
xlApp.Visible = True
Set mf = xlApp.Workbooks.Add

xlApp.Worksheets("Feuil2").Select

xlApp.SendKeys "^v"

xlApp.ActiveWorkbook.SaveAs ("c:/testreussi.xls")
xlApp.Quit
Set xlApp = Nothing
End Sub

...

LeSteph


"Hervé" a écrit dans le message de
news:

Salut Gandi,
Essai ceci et à mettre juste avant le collage :
Classeur.Worksheets("Feuil1").[A1].Select
Hervé.

"gandi" a écrit dans le message news:


Resalt Hervé,
Déjà un immense progrès. Ca arrive bien dasn la feuile , mais de façon
aléatoire en C10. Comment le faire arriver en "A1" stp?
@+










Avatar
LeSteph
Bonjour Frédéric,
Regarde un peu plus haut... il ya les mêmes ou presque
Le prob c'est que cele ne veut pas atteindre une cellule
la feuille d'accord mais une cellule non.
;~)
merci de te joindre à nos cogitations..

LeSteph

"Frédéric Sigonneau" a écrit dans le
message de news:
Bonjour,

Ce code (dans un module standard de ton document word) semble faire ce que
tu

souhaites :

Sub CopieVersExcel()
Dim xl, Classeur
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set Classeur = xl.workbooks.Open("c:correcautocorriger.xls")
Classeur.sheets("Feuil1").Range("a1").Select
Selection.WholeStory
Selection.Copy
Classeur.sheets("Feuil1").Paste
End Sub

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,

Ci-dessous une macro placée dans un document "word" et qui éxécute les
fonctions suivantes:
1. Sélection du document word
2. Copie du document Word dans le presse-papier
3. Ouverture d'un classeur excel nommé corriger.xls et placé dans le
répertoire correcauto.
Ma question est la suivante:
Comment prolonger cette macro de telle sorte que ce qui est dans le
presse papier, vienne se mettre dans la colonne A, à partir de A1

Mercid'avance

Sub versExcel()
'
'
Selection.Wholestory
Selection.Copy
Shell "Excel.exe ""c:correcautocorriger.xls""", vbNormalFocus

End Sub





Avatar
Frédéric Sigonneau
Bonjour,

Si si, essaye.. Remplace a1 par une autre adresse de cellule et lance la
procédure (testée avec Excel 2002 je le rappelle).

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 Frédéric,
Regarde un peu plus haut... il ya les mêmes ou presque
Le prob c'est que cele ne veut pas atteindre une cellule
la feuille d'accord mais une cellule non.
;~)
merci de te joindre à nos cogitations..

LeSteph

"Frédéric Sigonneau" a écrit dans le
message de news:

Bonjour,

Ce code (dans un module standard de ton document word) semble faire ce que


tu

souhaites :

Sub CopieVersExcel()
Dim xl, Classeur
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set Classeur = xl.workbooks.Open("c:correcautocorriger.xls")
Classeur.sheets("Feuil1").Range("a1").Select
Selection.WholeStory
Selection.Copy
Classeur.sheets("Feuil1").Paste
End Sub

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,

Ci-dessous une macro placée dans un document "word" et qui éxécute les
fonctions suivantes:
1. Sélection du document word
2. Copie du document Word dans le presse-papier
3. Ouverture d'un classeur excel nommé corriger.xls et placé dans le
répertoire correcauto.
Ma question est la suivante:
Comment prolonger cette macro de telle sorte que ce qui est dans le
presse papier, vienne se mettre dans la colonne A, à partir de A1

Mercid'avance

Sub versExcel()
'
'
Selection.Wholestory
Selection.Copy
Shell "Excel.exe ""c:correcautocorriger.xls""", vbNormalFocus

End Sub










1 2