Discussion :

[tony020422]

Bonjour tout le monde,

je suis actuellement en train de finir de développer ma macro excel en VB et j'ai besoin de vous pour finir ca nikel......

je ne sais pas comment faire pour que ma macro copie le contenu de certaines cellules excel de mon fichier "Création de dossiers.xls" vers mon fichier .doc intitulé "demande de ligne EDF"...

J'ai déjà fait des choses dans ce genre mais ici le fichier .doc n'est pas protégé en écriture ou quoi que ce soit, et il faut arriver a coller le contenu des cellules excel a des endroits "précis" de mon .doc (par exemple aprés la ou serait écrit: expéditeur: à destination de: ...)

et c'est la le souci....comment faire pour se placer dans un endroit particulier d'un fichier .doc ?!


Merci a tous par avance pour votre aide !

[casefayere]

Bonjour,
et pourquoi ne pas passer, à partir de word, par l'outil publipostage ?

[tony020422]

Bonjour,

je suis désolé mais je ne suis pas trés doué en informatique, alors je ne sais pas du tout de quoi il s'agit!!

[casefayere]

Si tu envoies tes deux fichiers allégés (avec données bidons, si tu veux), peut-etre je pourrai te guider

[tony020422]

Mr casefeyere,

je fais ca des que je peux, sachant que je suis en train d'élaborer le modèle .doc

En revanche j'ai déjà le .xls...

http://www.cijoint.fr/cjlink.php?fil...cijIdIVJhc.xls


le voici si tu veux en attendant (un gros scipt VBA s'y trouve faisant référence a des fiches ISO a remplir automatiquement,a un tableau avec nouvellesl ignes a incrémenter.....)

je t'envoi le .doc quand je peux!

[casefayere]

1ère chose : pas de Monsieur, ça me vieillit

2ème chose : je viens de voir ton fichier excel, pour un gars qui n'y connait pas grand-chose, je trouve ton fichier élaboré

3ème chose : je ne pourrai travailler que quand j'aurais le fichier .doc, je ne pourrai rien faire sur le fichier excel car il faudrait que je change tous les chemins en référence et je ne veux pas surcharger mon PC.

donc une fois le .doc obtenu, ce ne sezra qu'un exemple de base à adapter

Bonne journée

[tony020422]

alors voila le .doc

http://www.cijoint.fr/cjlink.php?fil...cijKzYL2uf.doc

sur l'excel de tout a l'heure, j'ai réussi a faire ca a grace aux nombreuses aides charitables de forum informatiques!!

je viens de rajouter sur mon excel une case a cocher....je ne sais pas comment faire mais il faudrait qu'elle permette SI ELLE EST COCHEE de lancer le publipostage..et si elle demeure non cochée de ne rien faire....

en espérant que tout ca puisse t'aider!!

[DeaD78]

Bonjour,

Et que dirais-tu de lancer ton enregistreur de macros dans Word puis d'y coller un truc bidon où tu veux ? Tu verrais alors où ça se situe simplement

Et si jamais tu as besoin de faire quelques trucs dynamiquement, il suffira d'adapter le code obtenu (par exemple, pour coller après certains mots précis). Mais la encore, l'enregistreur couplé à la fonction rechercher (Ctrl + F) devrait t'aider à t'en sortir. Et si jamais ça devient un peu compliqué (ce dont je doute vu qu'il ne s'agit que de copier/coller), vas voir du côté du forum VBA Word

Une fois ton code obtenu comme tu le souhaites, tu le mets dans ton Excel bien comme il faut

PS : je propose cela vu que je ne connais rien au publipostage que propose casefayere que je salue

[casefayere]

Ca va être difficile de t'aider car je n'ai aucune donnée sur ton fichier excel, tout ce que je peux faire, c'est mettre des données bidons sur une de tes feuilles juste pour te montrer comment fonctionne le publipostage, mais il est évident que si je t'envoie les fichiers .doc et .xls il faudra changer toutes les références du publipostage

pour la deuxième question

je viens de rajouter sur mon excel une case a cocher....je ne sais pas commment faire mais il faudrait qu'elle permette SI ELLE EST COCHEE de lancer le publipostage..et si elle demeure non cochée de ne rien faire....

d'autres utilisateurs pourront t'aider, perso je préfère y aller gentiment

Si tu es OK, et pas pressé, je m'en occupe dès que j'ai 5 mm

à +

[tony020422]

alors casefayere deja merci pour tout vraiment!!

le model .dot est ok....

voici le fichier excel modifié avec le code qui va bien (code écrit aprés
'!!!!!!!!!!!EXEMPLE PUBLIPOSTAGE:::::::::::::: ) mais ca ne marche pas pr l'instant...

http://www.cijoint.fr/cjlink.php?fil...cijmWlk11u.xls

peut etre parce qu'il faut que je me décale pas en terme de colonne mais en terme de ligne depuis Curcell...et que j'ai tenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
apWord.Selection.Goto What:=-1, Name:="Adresse Client"
'curCell décalé de 6 lignes
apWord.Selection.TypeText curCell.Offset(6, 0).Value

tu as donc le .xls....

juste un truc aussi:
le .dot se trouvera comme référence toujours stocké ici par défaut;
Y:\TKAF\R04\A422\_Commun-Agence\Evelyne-carine\Dossier MOD\ISO + Doc type

et mon .doc devra se stocker finalement dans le fichier que je crée au début de mon script (regardes bien!)
si tu peux m'éclaircir tout ca car doucement doucement je me noies.......

[tony020422]

ca y est ca tourne!!! j'ai réussi........

par contre je ne sais toujours pas comment programmer le fait que ce morceau de script ne se lance à l'exécution de ma macro seulement si la case a cocher de mon excel a bien été coché avant d'avoir appuyé sur le bouton......

*Si t'as une idée pour ca ce serait super !!

[DeaD78]

Un petit UserForm avec une CheckBox résoudrait ton problème

Si tu ne sais pas comment cela fonctionne, y'a un tuto mieux que très bien fait sur le site

[tony020422]

Salut!

ca m'a pas l'air simplissime ce que tu me racontes, surtout quand comme moi on est pas une bete en VB mais je vais approfondir cette piste......

merci beaucoup!!

[DeaD78]

Tu crées un UserForm avec une Checkbox (et la petite légende qui va bien) et un bouton OK. Si la Checkbox est cochée lorsque tu cliques sur OK alors tu appelles ta procédure. Dans le cas contraire, tu ne l'appelles pas et c'est réglé.

Ca peut paraître compliqué mais je te promets qu'étant débutant ou pas, si tu suis le tuto, pour le peu que tu as à mettre dans ton UserForm, tu plies ça en 30 mins (sans connaître). C'est vraiment suivre le tuto pas à pas (le tuto en question est celui sur les contrôles des UserForms).

Passe ici si tu n'as pas réussi avec le tuto et montre nous le code que tu as fait

[tony020422]

en fait j'ai peut etre pas été trés clair!

Mon formulaire excel est déjà fait, avec des champs a renseigner...et une seule case a cocher (ou non!)

A la fin se trouve un bouton "Valider" qui lance une macro (assez baleze)....
il faut que si la case est cochée tout mon script s'exécute..si elle ne l'est pas, une petite partie du script ne se réalise pas.

En l'ocurrence je comptais mettre quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If CheckBox1.Value = True Then
'MON SCRIPT 
Else

Et c'est la que je ne sais pas trop comment faire......

[tony020422]

voila le script qui doit ou non se lancer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim apWord, docWord, curCell As Range, chemin
chemin = "Y:\TKAF\R04\A422\_Commun-Agence\Evelyne-carine\Dossier MOD\ISO + Doc type\"
'créer une application Word
Set apWord = CreateObject("word.application")
 
'curCell = première entrée (C11)
Set curCell = ThisWorkbook.Sheets("Feuil1").Range("C11")
 
'tant que quelque chose est écrit dans curCell
While curCell.Value <> vbNullString
 
    'créer un nouveau document à partir du modèle "modele\invitation.dot"
    'PS: - le fichier "invitation.dot" est créé avec des Signets (appelés plus tard dans la macro)
    '      ils renvoient à un emplacement ou une sélection de texte
    '      dans cet exemple, ils renvoient aux diférents textes entre <>
    '    - pour créer un signet dans word, Insertion --> Signet
    Set docWord = apWord.Documents.Add(Template:=chemin & "modele lettre FT.dot")
 
   'aller au signet "date" dans le doc Word
apWord.Selection.Goto What:=-1, Name:="DateJour"
'y écrire la date d'aujourd'hui formatée
apWord.Selection.TypeText Format(Now, "dd/mm/yyyy")
 
'aller au signet "NomChantier" dans le doc Word
apWord.Selection.Goto What:=-1, Name:="NomChantier"
'y écrire la valeur de C11
apWord.Selection.TypeText ThisWorkbook.Sheets("Feuil1").Range("C11").Value
 
apWord.Selection.Goto What:=-1, Name:="NomClient"
apWord.Selection.TypeText ThisWorkbook.Sheets("Feuil1").Range("C15").Value
 
 
apWord.Selection.Goto What:=-1, Name:="AdresseClient"
apWord.Selection.TypeText ThisWorkbook.Sheets("Feuil1").Range("C17").Value
 
    'sauver le fichier Word (en lui donnant le nom souhaité
    apWord.ChangeFileOpenDirectory (MonRep)
    apWord.ActiveDocument.SaveAs Filename:="Plannification +Dde ligne EDF - " & curCell.Value & ".doc"
    'fermet le document Word
    docWord.Close
 
 
    'décaler curCell d'une cellule vers le bas
    Set curCell = curCell.Offset(1, 0)
Wend
 
'fermer l'application Word
apWord.Quit
 
'détruire les objets
Set apWord = Nothing: Set docWord = Nothing: Set curCell = Nothing
Windows.Application.Quit
Workbooks("Création dossier chantiers.xls").Close savechanges:=False

[aalex_38]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If CheckBox1.Value = True Then
MON SCRIPT

Ce code me semble bon.

il faut que si la case est cochée tt mon script s'exécute..si ell ne l'est pas, une petite partie du script ne se réalise pas..

Tu peux séparer le code qui s'execute chaque fois et l'autre dans 2 macros.
ensuite dans le code du bouton quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CommandButton1_Click()
 
Call macro1
 
If CheckBox1.Value = True Then
   Call macro2
End If
 
End Sub

[tony020422]

Salut aalex_38 certes ton idée semble la plus logique mais je ne l'ai pas fait avant car j'ai peur de faire un mélange entre les modules (1,2,3) les feuilles(1,2,3) et le ThisWorkBook....

En plus, je ne comprends plus rien entre le nom de mon bouton et les
Public Sub....

Alors je le sens pas trop.......

[tony020422]

J'ai suivi tes recommandations...

Mon module1 commencant comme ca et qui doit s'exécuter tout le temps marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub FICHES_ISO()

Mon module2 qui commence comme ca et qui doit s'exécuter si la case est cochée ne marche pas (objet requis)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub DDE_LIGNE_EDF()

enfin dans thisworkbook il y a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CommandButton1_Click()
 
Call FICHES_ISO
 
If CheckBox1.Value = True Then
   Call DDE_LIGNE_EDF
End If
 
End Sub

Le truc que je ne comprends pas c'est que quand je fais click droit sur le bouton, puis affecter macro, il y a :

nom de la macro:'Création dossier chantiers.xls'!ThisWorkbook.CommandButton1_Click

Et en desssous ca que je ne comprends pas!

DDE_LIGNE_EDF
FICHES_ISO
ThisWorkBook.CommandButton1.Click

en meme temps je ne sais pas si CommandButton1_Click correspond bien a mon bouton (a priori oui) et si ma case à cocher s'appelle bien CheckBox1 (je ne trouve pas l'info!)

[aalex_38]

Tu as excel 2007, moi j'utilise les contrôles activex et pas les contrôles formulaire.

Sur la feuille, je me met en mode création (barre d'outil macro), je clique sur le bouton et le code du click s'ecrit tout seul !
Pareil pour tout les objets.
Sinon click droit et propriété permet d'afficher une fen^^etre et par exemple de renommer des objets.

Je te conseil de lire des tutoriaux si tu veux t'autoformer même si tu connais deja beaucoup de chose, les rappels sont parfois utiles !