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 Pour JLuc ... réponse

Pour JLuc ... réponse

1 réponse
Avatar
michdenis
Bonjour JLuc,


Désolé, mais j'ai perdu le fil original.


Pour faire simple et compléter l'explication que je t'avais transmis,
tu aurais pu seulement ajouter la ligne de code suivante à ta procédure.

ActiveSheet.Select

'----------------------------------------
Sub print_var()

Set Oapp = CreateObject("word.application")
'oapp.Visible = True
Oapp.documents.Open ("c:\Fax.doc")

Oapp.ActiveDocument.InlineShapes(1).Activate
Set MyXL = Oapp.ActiveDocument.InlineShapes(1).OLEFormat.Object
Application.Wait (Now + TimeValue("0:00:02"))
For x = 2 To MyXL.ActiveSheet.Range("A11").End(xlUp).Row
ActiveSheet.Select ' Ligne ajoutée.
ActiveSheet.Range("C" & x - 1).Value = MyXL.ActiveSheet.Range("A" & x).Value
ActiveSheet.Range("D" & x - 1).Value = MyXL.ActiveSheet.Range("B" & x).Value
ActiveSheet.Range("E" & x - 1).Value = MyXL.ActiveSheet.Range("C" & x).Value
ActiveSheet.Range("F" & x - 1).Value = MyXL.ActiveSheet.Range("D" & x).Value
Next
Oapp.ActiveDocument.Close False
Oapp.Quit
Set Oapp = Nothing

End Sub
'----------------------------------------


Salutations!
Signaler un problème avec ce contenu

1 réponse

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
Avatar
JLuc
*Bonjour michdenis*,
C'est vrai que j'ai pas teste le fait de forcer l'appli a aller sur une
cellule. Merci de tous ces tuyaux

Bonjour JLuc,


Désolé, mais j'ai perdu le fil original.


Pour faire simple et compléter l'explication que je t'avais transmis,
tu aurais pu seulement ajouter la ligne de code suivante à ta procédure.

ActiveSheet.Select

'----------------------------------------
Sub print_var()

Set Oapp = CreateObject("word.application")
'oapp.Visible = True
Oapp.documents.Open ("c:Fax.doc")

Oapp.ActiveDocument.InlineShapes(1).Activate
Set MyXL = Oapp.ActiveDocument.InlineShapes(1).OLEFormat.Object
Application.Wait (Now + TimeValue("0:00:02"))
For x = 2 To MyXL.ActiveSheet.Range("A11").End(xlUp).Row
ActiveSheet.Select ' Ligne ajoutée.
ActiveSheet.Range("C" & x - 1).Value = MyXL.ActiveSheet.Range("A" &
x).Value ActiveSheet.Range("D" & x - 1).Value =
MyXL.ActiveSheet.Range("B" & x).Value ActiveSheet.Range("E" & x -
1).Value = MyXL.ActiveSheet.Range("C" & x).Value
ActiveSheet.Range("F" & x - 1).Value = MyXL.ActiveSheet.Range("D" & x).Value
Next Oapp.ActiveDocument.Close False
Oapp.Quit
Set Oapp = Nothing

End Sub
'----------------------------------------


Salutations!



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O