Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modi fier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ç a
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modi fier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ç a
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modi fier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ç a
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modi fier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ç a
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modi fier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ç a
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modi fier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ç a
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) 'ça
marche
Si kekun...
MERCI
Gilles
François,
ça ouvre word mais ça met un message d'erreur pour le fichier
merci
Gilles
a écrit dans le message de news:
On 11 fév, 08:28, "Gilles72" wrote:Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcr ée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera l a bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANG E
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) ' ça
marche
Si kekun...
MERCI
Gilles
Rebonjours Gilles
Pour ta 2° question avec ta variable c mets cette ligne :
MyAppID = Shell("""C:Program FilesMicrosoft Office
OFFICE11WINWORD.EXE"" &""" & c & "")
Celà devrait faire
Dis moi !!!!- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
François,
ça ouvre word mais ça met un message d'erreur pour le fichier
merci
Gilles
<francois.for...@wanadoo.fr> a écrit dans le message de news:
4548a9e4-b04c-4842-8dd5-017d6b52a...@v67g2000hse.googlegroups.com...
On 11 fév, 08:28, "Gilles72" <nospam-gle...@g-t.fr> wrote:
Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcr ée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera l a bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANG E
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) ' ça
marche
Si kekun...
MERCI
Gilles
Rebonjours Gilles
Pour ta 2° question avec ta variable c mets cette ligne :
MyAppID = Shell("""C:Program FilesMicrosoft Office
OFFICE11WINWORD.EXE"" &""" & c & "")
Celà devrait faire
Dis moi !!!!- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
François,
ça ouvre word mais ça met un message d'erreur pour le fichier
merci
Gilles
a écrit dans le message de news:
On 11 fév, 08:28, "Gilles72" wrote:Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcr ée
par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera l a bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANG E
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le
modifier
pour qu'il ouvre selon la liste crée de fichiers
MyAppID = Shell("Winword.EXE ""D:Article administratifs.doc""", 1) ' ça
marche
Si kekun...
MERCI
Gilles
Rebonjours Gilles
Pour ta 2° question avec ta variable c mets cette ligne :
MyAppID = Shell("""C:Program FilesMicrosoft Office
OFFICE11WINWORD.EXE"" &""" & c & "")
Celà devrait faire
Dis moi !!!!- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
le massage suivant s'affiche après l'ouverture de word:
word a rencontré une erreur lors de l'ouverture du fichier
essayez de:
verifier les autorisations du fichier/lecteur
verifier que la mémoire disque est suffisante
ouvrir le fichier avec le convertisseur recupération de texte
gilles
le massage suivant s'affiche après l'ouverture de word:
word a rencontré une erreur lors de l'ouverture du fichier
essayez de:
verifier les autorisations du fichier/lecteur
verifier que la mémoire disque est suffisante
ouvrir le fichier avec le convertisseur recupération de texte
gilles
le massage suivant s'affiche après l'ouverture de word:
word a rencontré une erreur lors de l'ouverture du fichier
essayez de:
verifier les autorisations du fichier/lecteur
verifier que la mémoire disque est suffisante
ouvrir le fichier avec le convertisseur recupération de texte
gilles
idem
je suis sous xp pro office 2003
mais ça ne fait rien : le code que tu as proposé marche bien
il me reste pdf à tester
encore merci François
Gilles
idem
je suis sous xp pro office 2003
mais ça ne fait rien : le code que tu as proposé marche bien
il me reste pdf à tester
encore merci François
Gilles
idem
je suis sous xp pro office 2003
mais ça ne fait rien : le code que tu as proposé marche bien
il me reste pdf à tester
encore merci François
Gilles