Publipostage à l'envers:

  • Initiateur de la discussion Initiateur de la discussion stp74
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stp74

XLDnaute Nouveau
Publipostage à l'envers:recuperer du word dans excel
Je voudrai recuperer dans excel un fichier d'etiquette adresse word.
C Possible?
 
Re : Publipostage à l'envers:

bonjour,

Ah ! non ! c'est un peu court, jeune homme !
On pouvait dire... Oh ! Dieu !.., bien des choses en somme...
En variant le ton, - par exemple, tenez
Agressif : " Moi, monsieur, si j'avais un tel fichier,
Il faudrait sur-le-champ que je vous l'envoyasse ! "
Amical : " Mais il doit trainer dans une place
Pour voir, cliquez-nous "envoyer" ou je zap ! "
Descriptif : " C'est un doc !... c'est une txt !... c'est un csv !
Que dis-je, c'est un csv ?... faisons appel au pendule ! "


.....

à +
><>
 
Re : Publipostage à l'envers:

re,

bon puisque ça plait :
Ô rage ! ô désespoir ! ô week end ennemi ! N'ai-je donc pas ce fichier honni ? Et ne puis-je envoyer ces étiquettes, et voir d'un seul coup répondre à ma requête ?

désolée mais boule en panne ce matin, donc j'irais au plus simple - copier coller 😀

sans connaitre la structure du fichier word, difficile de répondre à ta question, donc oui ton fichier word serait le bienvenue ou alors un très très très bon descriptif du fichier...

><>
 
Re : Publipostage à l'envers:

Titiak,
mon fichier word adresse comporte plusieurs centaines de pages .
comment faire pour traiter tout le fichier ,car la macro ne traite qu'une seule page.

Bravo et merci a Titiak pour son exellent travail
 
Re : Publipostage à l'envers:

j'ai une erreur de compilation avec le script quand je le modifie comme ci dessous:

Option Explicit

Sub Etiquettes_Word()
Dim NDF As String
Dim WordApp As Object
Dim WordDoc As Object
Dim i As Integer, j As Integer
Dim LigneXL As Integer
Dim tatiak As String
LigneXL = ActiveSheet.Range("A65000").End(xlUp).Row + 1
NDF = Application.GetOpenFilename
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
With WordApp
.Visible = False
For NbTableaux = 1 To WordDoc.tables.Count
With WordDoc.tables(1)
For i = 1 To .Rows.Count
For j = 1 To 3
tatiak = .Cell(i, j).Range.Text
ActiveSheet.Cells(LigneXL, 1).Value = PartieLigne(1, tatiak)
ActiveSheet.Cells(LigneXL, 2).Value = PartieLigne(2, tatiak)
ActiveSheet.Cells(LigneXL, 3).Value = Mid(PartieLigne(3, tatiak), 1, 5)
ActiveSheet.Cells(LigneXL, 4).Value = Mid(PartieLigne(3, tatiak), 7)
LigneXL = LigneXL + 1
Next j
Next i
End With
End With
Next NbTableaux
WordApp.Application.Quit
Set WordDoc = Nothing
Set WordApp = Nothing
MsgBox (" Acquisition Ok")
End Sub

Function PartieLigne(N As Byte, S As String) As String
Dim Caract As String
Dim i As Integer, j As Integer, nb13 As Integer
PartieLigne = ""
i = 1
nb13 = 0
Caract = Mid(S, i, 1)
Do
Do
Caract = Mid(S, i, 1)
i = i + 1
Loop Until Caract = Chr$(13)
nb13 = nb13 + 1
Loop Until nb13 = N
j = i
Do
Caract = Mid(S, j, 1)
j = j + 1
Loop Until Caract = Chr$(13)
PartieLigne = Mid(S, i + 1, j - i)
End Function
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
222
Réponses
7
Affichages
1 K
Réponses
10
Affichages
457
  • Question Question
Microsoft 365 Publipostage WORD
Réponses
2
Affichages
815
Retour