Bonjour tout le monde.
Qui peut me dire pourquoi et comment faire pour que le code suivant ne stop
pas.
ça bloc a partir '** ICI **' dans le code.
en faite a partir de cette ligne, c le code d'une macro word qui fonctionne
bien et que j'ai intégré ici mais....
ça bloc....
*******************************************************
Sub NewFileVersion(File As String, FileTemp As String)
Dim Wd As Object
Dim Dc As Object
Set Wd = CreateObject("Word.application")
With Wd
.Visible = True ' Optionnel, mettre à false
'pour ne rien voir ...
Set Dc = .Documents.Open(File) ' Ouvrrir le fichier
** ICI** Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes
vides
Selection.Delete Unit:=wdCharacter, Count:=2
Selection.Delete Unit:=wdCharacter, Count:=3
Selection.Delete Unit:=wdCharacter, Count:=4
Selection.Delete Unit:=wdCharacter, Count:=5
Selection.Delete Unit:=wdCharacter, Count:=6
Selection.Delete Unit:=wdCharacter, Count:=7
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes vides
.Documents(File).Select ' Tous selectionner
.Selection.Font.Size = 10 ' Change les hauteurs
.Selection.Copy ' Copier ce qui à été selectionné
Worksheets("Prix vitrage").Range("B25").Select ' Le coller
ActiveSheet.Paste
******************************************************
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
papou
Bonjour Ajoute un ".ActiveDocument" en début d'opération : .ActiveDocument.Selection.MoveUp Unit:=wdLine, Count:=1
Cordialement Pascal
"GARAULT" a écrit dans le message de news:
Bonjour tout le monde. Qui peut me dire pourquoi et comment faire pour que le code suivant ne stop pas. ça bloc a partir '** ICI **' dans le code. en faite a partir de cette ligne, c le code d'une macro word qui fonctionne bien et que j'ai intégré ici mais.... ça bloc....
******************************************************* Sub NewFileVersion(File As String, FileTemp As String)
Dim Wd As Object Dim Dc As Object
Set Wd = CreateObject("Word.application") With Wd .Visible = True ' Optionnel, mettre à false 'pour ne rien voir ... Set Dc = .Documents.Open(File) ' Ouvrrir le fichier ** ICI** Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes vides Selection.Delete Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=3 Selection.Delete Unit:=wdCharacter, Count:=4 Selection.Delete Unit:=wdCharacter, Count:=5 Selection.Delete Unit:=wdCharacter, Count:=6 Selection.Delete Unit:=wdCharacter, Count:=7 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes vides .Documents(File).Select ' Tous selectionner .Selection.Font.Size = 10 ' Change les hauteurs .Selection.Copy ' Copier ce qui à été selectionné
Worksheets("Prix vitrage").Range("B25").Select ' Le coller ActiveSheet.Paste ******************************************************
Bonjour
Ajoute un ".ActiveDocument" en début d'opération :
.ActiveDocument.Selection.MoveUp Unit:=wdLine, Count:=1
Cordialement
Pascal
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de
news: E0AA343A-6699-4CE9-AD34-108AC3F8F4C0@microsoft.com...
Bonjour tout le monde.
Qui peut me dire pourquoi et comment faire pour que le code suivant ne
stop
pas.
ça bloc a partir '** ICI **' dans le code.
en faite a partir de cette ligne, c le code d'une macro word qui
fonctionne
bien et que j'ai intégré ici mais....
ça bloc....
*******************************************************
Sub NewFileVersion(File As String, FileTemp As String)
Dim Wd As Object
Dim Dc As Object
Set Wd = CreateObject("Word.application")
With Wd
.Visible = True ' Optionnel, mettre à false
'pour ne rien voir ...
Set Dc = .Documents.Open(File) ' Ouvrrir le fichier
** ICI** Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes
vides
Selection.Delete Unit:=wdCharacter, Count:=2
Selection.Delete Unit:=wdCharacter, Count:=3
Selection.Delete Unit:=wdCharacter, Count:=4
Selection.Delete Unit:=wdCharacter, Count:=5
Selection.Delete Unit:=wdCharacter, Count:=6
Selection.Delete Unit:=wdCharacter, Count:=7
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes
vides
.Documents(File).Select ' Tous selectionner
.Selection.Font.Size = 10 ' Change les hauteurs
.Selection.Copy ' Copier ce qui à été selectionné
Worksheets("Prix vitrage").Range("B25").Select ' Le coller
ActiveSheet.Paste
******************************************************
Bonjour Ajoute un ".ActiveDocument" en début d'opération : .ActiveDocument.Selection.MoveUp Unit:=wdLine, Count:=1
Cordialement Pascal
"GARAULT" a écrit dans le message de news:
Bonjour tout le monde. Qui peut me dire pourquoi et comment faire pour que le code suivant ne stop pas. ça bloc a partir '** ICI **' dans le code. en faite a partir de cette ligne, c le code d'une macro word qui fonctionne bien et que j'ai intégré ici mais.... ça bloc....
******************************************************* Sub NewFileVersion(File As String, FileTemp As String)
Dim Wd As Object Dim Dc As Object
Set Wd = CreateObject("Word.application") With Wd .Visible = True ' Optionnel, mettre à false 'pour ne rien voir ... Set Dc = .Documents.Open(File) ' Ouvrrir le fichier ** ICI** Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes vides Selection.Delete Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=3 Selection.Delete Unit:=wdCharacter, Count:=4 Selection.Delete Unit:=wdCharacter, Count:=5 Selection.Delete Unit:=wdCharacter, Count:=6 Selection.Delete Unit:=wdCharacter, Count:=7 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ' Supprimer les lignes vides .Documents(File).Select ' Tous selectionner .Selection.Font.Size = 10 ' Change les hauteurs .Selection.Copy ' Copier ce qui à été selectionné
Worksheets("Prix vitrage").Range("B25").Select ' Le coller ActiveSheet.Paste ******************************************************