Macro VBA copie valeur cellule excel et colle dans doc word

Version imprimable

Voir 40 message(s) de cette discussion en une page

02/06/2009, 09h39
tony020422

Macro VBA copie valeur cellule excel et colle dans doc word

Bonjour à tous amis forumistes, :ccool:

Je souhaiterais que ma macro excel recopie (copie/colle) la valeur d'une cellule de mon fichier excel dans 1 emplacement précis et prédéfini d'une feuille ISO (qui est un fichier .doc protégé en écriture sauf à 2 endroits modifiables ou c'est la qu'il faudrait réinjecter les valeurs excel)

Je ne sais pas quel code VBA permettrait ceci :calim2:, sachant que ma macro ouvre dores et déjà le fichier.doc..

Merci par avance pour votre aide, car je suis incompétent pour le coup.

Edit :

j'ai remarqué qu'en faisant (Ctrl+C) sur excel, puis directement (Ctrl+V) aprés avoir ouvert le .doc, la valeur désirée se colle à l'endroit voulue....
la 2eme valeur a copier/coller se fait également par Ctrl+C depuis Excel et Ctrl+V sur word aprés avoir fait "une tabulation" sur le .doc qui fait directement passer à l'autre zone modifiable du fichier...

peut etre est ce plus simple à programmer avec cette configuration la.........

..Antony..

Bonjour Tony
Voici un petit bout de code qui te prend une info dans Excel(ThisWorkbook.Worksheets("Nom Onglet").Range("I2").Copy) et qui te la recopie dans un doc Word(With ActiveDocument.Tables(2).Cell(1, 2))
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 With docword Set appword = Word.Application Application.DisplayAlerts = True appword.ShowMe appword.Visible = True Set docword = appword.Documents.Open("C:\Ton fichier.doc", ReadOnly:=False) End With With appword ThisWorkbook.Worksheets("Nom Onglet").Range("I2").Copy With ActiveDocument.Tables(2).Cell(1, 2) .Range.Paste .Select End With
Tables et cell correspondent à des emplacement sur le doc word

Bonne journée

02/06/2009, 10h38
tony020422

j'ai une erreur a ce niveau la : (erreur 424 objet requis)

Code:

With ActiveDocument.Tables(2).Cell(1, 2)

il manquait également un End with, et j'avais aussi une erreur ici:

Code:

Set AppWord = word.Application

il fallait mettre ca:

Code:

Set AppWord = CreateObject("Word.Application")

maintenant la cellule se copie, le .doc s'ouvre mais il y a l'erreur 424....

on y est persque ;-)

sinon qu'est ce que ca représente "Tables(2).Cell(1, 2)" ?!

merci pour votre aide !!
02/06/2009, 10h43
aalex_38

Bonjour à tous,

A mon avis Babybell a donné un exemple de code à adapter.

Code:

Tables(2).

doit être un tableau (le deuxième) dans world, si tu n'en as pas l'erreur s'explique, à toi de coller là ou tu veux.
02/06/2009, 10h47
tony020422

euuh....vi mais comment savoir mon numéro de tableau?! car c'est un .doc avec 2 emplacements modifiables où coller les valeurs de 2 cellules excel...

ce .doc est une fiche ISO, pas un tableau.........comprends plu :roll:
02/06/2009, 10h48
casefayere

Bonjour,

Citation:

il manquait également un End with

juste une petite remarque, il ne manque pas de end with mais il y a un with inutile, placé à l'endroit actuel

Code:

With appword
02/06/2009, 10h50
babybell

salut le forum
Effectivement, comme le dit aalex_38 que je salut, c'est une partie de tableau déjà défini dans mon doc word. En ce qui concerne ton .iso, je ne sais que te répondre
02/06/2009, 10h56
aalex_38

bonjour casefayere, babybell, tony020422 le forum

Citation:

2 emplacements modifiables où coller les valeurs de 2 cellules

A toi de trouver dans word comment se placer dans ces emplacements pour faire le collage, ensuite il ne restera plus qu'a traduire ton action en code.

Salut à toi également babybell
02/06/2009, 10h58
tony020422

je vous poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

aalex_38 tu as bien compris mon pb!!

comment savoir la facon de savoir où se placer dans ces emplacements pour faire le collage ?! (c'est clair cette phrase ??!!):P
02/06/2009, 11h09
aalex_38

Bonjour,

Trouves un moyen de parcourir tes champs (exemple CTRL + B : ATTEINDRE)
tout en utilisant l'enregsitreur de macro, tu auras un code qui pourra être adapté.

Si tu n'y arrive pas, met ton document word en pièce jointe je le ferrai.
02/06/2009, 11h19
tony020422

voici le doc en PJ...

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

je vais devoir faire la mm chose (réinjecter des valeurs de cellules excel (surmement les mm) dans d'autres fiches ISO similaires) donc j'aimerais bien que tu m'expliques ce que tu vas faire histoire que je puisse le reproduire...

merci!!
02/06/2009, 11h43
aalex_38

Re,

Difficile de travailler sur ton document, car il est protègé par mot de passe.
02/06/2009, 11h44
tony020422

ici la PJ si l'autre lien ne fonctionne pas:

http://www.megaupload.com/?d=5Q288WKZ

aa m....e !!

tu sais comment faire ou non?!

essai "AgrupuG2" sinon mais je ne pense pas.......

un simple "Ctrl+V" sur le .doc permet de coller le contenu de la cellule excel au bon endroit....
une tabulation permet de se mettre sur l'autre endroit du fchier .doc où coller le contenu d'une autre cellule excel...
02/06/2009, 12h02
aalex_38
A mon avis lorsque tu ouvres ton document, tu est déja positionné sur le premier champ.
essai

Code:

ActiveDocument.paste

Le mieux evidemment est de se placer directement sur le champ.

Je te laisse regarder ce lien qui peut servir ici

Bon finalement j'ai trouvé comment se placer sur ta zone:
Code:

1 2 Selection.GoTo What:=wdGoToBookmark, Name:="Texte1" Selection.GoTo What:=wdGoToBookmark, Name:="Texte2"
Le reste ne devrait pas poser de problème. Sinon tu dis

Tu peux voir ça en faisant ATTEINDRE/SIGNET

Code:

1 2 Selection.GoTo What:=wdGoToBookmark, Name:="Texte1" Selection.GoTo What:=wdGoToBookmark, Name:="Texte2"
c'est pr atteindre mes 2 zones c'est ca?! (nommée Teste1 et Texte2)

et pr coller le contenu de ma cellule je mets quoi et ou (dsl mais je ss pas brillant ;)) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With DocWord Set AppWord = CreateObject("Word.Application") Application.DisplayAlerts = True AppWord.ShowMe AppWord.Visible = True Set DocWord = AppWord.Documents.Open("Y:\TKAF\R04\A422\_Commun-Agence\Roger\Fiches ISO\Suivi chantier mod.doc", ReadOnly:=False) End With With AppWord ThisWorkbook.Worksheets("Feuil1").Range("C9").Copy With ActiveDocument.Tables(2).Cell(1, 2) .Range.Paste .Select
et pr ttes les autres fiches ISO que je dois faire de la meme facon ca sera pareil pr les endroits a remplir:

Texte1
Texte2
Texte3
.......

Merci de tte facon pr ta patience et tes coméptences!!

ok j'ai compris le coup des signets.......

je met comme code VBA pr coller le contenu de la cellule C9 d'Excel:

Code:

With ActiveDocument.Texte1

?! c'est ca ca suffit?!

Voici ce que j'ai tapé:
Code:

1 2 3 4 5 6 With AppWord ThisWorkbook.Worksheets("Feuil1").Range("C9").Copy Selection.Goto What:=wdGoToBookmark, Name:="Texte1" With ActiveDocument.Texte1 .Range.Paste .Select
et bim::oops:

Citation:

erreur d'executiion 438 Propriété ou méthode non gérée par cet objet

Voici un début, mais je n'arrive pas à tabuler automatiquement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub transfert()
  With DocWord
  Set AppWord = CreateObject("Word.Application")
    Application.DisplayAlerts = True
    AppWord.ShowMe
    AppWord.Visible = True
    Set DocWord = AppWord.Documents.Open("D:\Macros\cijm2CCfL5.doc", ReadOnly:=False)
        End With
ThisWorkbook.Worksheets("Feuil1").Range("A1").Copy
AppWord.Selection.Paste
ThisWorkbook.Worksheets("Feuil1").Range("B1").Copy
AppWord.Selection.Paste
 End Sub

pour envoyer le contenu de ma cellule B1. Si quelqu'un peut y remédier ?

Voila je viens d'ecrire un code qui fonctionne a adapter :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub WordII() Dim Wchemin As String Dim wrdApp As Object Dim wrdDoc As Object Wchemin = "D:\...\VBA Excel\...\essai.doc" Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.documents.Open(Wchemin) wrdApp.Visible = True wrdApp.Selection.HomeKey Unit:=wdStory Cells(1, 1).Copy wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte1" wrdApp.Selection.Paste Cells(2, 1).Copy wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte2" wrdApp.Selection.Paste End Sub
Citation:

erreur d'executiion 438 Propriété ou méthode non gérée par cet objet

Evidemment car tu dois faire référence a word au lieu de :

Code:

Selection.Goto What:=wdGoToBookmark, Name:="Texte1"

Tu dois mettre :

Code:

.Selection.Goto What:=wdGoToBookmark, Name:="Texte1"

rraaaaa je viens de prendre une erreur 4120 paramètre incorrect dans ce script la:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
 
Wchemin = "Y:\TKAF\R04\A422\_Commun-Agence\Roger\Fiches ISO\Suivi chantier mod.doc"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Open(Wchemin)
wrdApp.Visible = True
 
 
wrdApp.Selection.HomeKey Unit:=wdStory  <--ICI  !!!!!!!
 
Cells(3, 9).Copy
wrdApp.Selection.Goto What:=wdGoToBookmark, Name:="Texte1"
wrdApp.Selection.Paste
Cells(3, 7).Copy
wrdApp.Selection.Goto What:=wdGoToBookmark, Name:="Texte2"
wrdApp.Selection.Paste
   
End Sub

en tt cas merci a tous pour votre implication et votre patience!!!!:ccool:

02/06/2009, 13h07
aalex_38

regarde si tu as bien coché la référence word.
02/06/2009, 13h10
tony020422

Désolé, mais je ne sais pas en quoi cela sert... Ou de fait ou cela se trouve :oops:

Bonjour à tous,

le mot de passe n'est pas le bon... !!

tony020422,

pour ce que tu souhaites faire,

* il peut être préférable d'utiuliser un modèle (.DOT au lieu de .DOC)
* Il vaut mieux utiliser des champs que des bookmark car le contenu du champ est écrasé à la prochaine initialisation, mais le bookmark cumule les valeurs..... donc il nécessite un clear.

Un exemple avec champ et bookmark extrait d'une boucle.
Remarque la boucle pour faire delete des char insérés dans le bookmark "Target", nécessaire car à l'itération suivante de la boucle, le bookmark doit être de nouveau vierge de tout contenu. Avec les champs, pas ce soucis.

Code:

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
 
    Dim Myrange           As Variant
    Dim Bookstart         As Long
    Dim Bookend           As Long
    Dim Bonus_Word              As Word.Document
 
'......
      With Workbooks(Personal_workbook).Sheets(Pers_Information_Sheet)
         'Personal_workbook
            'Populate Word Fields
            'Name (1)
             Bonus_Word.Fields(1).Result.Text = .Range("D" & Idx)
            'Référence (3)
            Bonus_Word.Fields(2).Result.Text = .Range("E" & Idx)
            'Objectif (4)
            Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Detail_SheetName_Location) = Workbooks(Detailled_workbook).Sheets(Details_Sheet).name
            Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Range_Detail).Copy
            Bonus_Word.Bookmarks("Target").Range.PasteSpecial _
             Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine
            'Montant (5)
            Bonus_Word.Fields(4).Result.Text = Round(Range("H" & Idx), 2)
            'Période (6)
            Bonus_Word.Fields(5).Result.Text = Range("J" & Idx)
           '************************
              Bonus_Word.PrintOut
 
            ' Clear at "Target" bookmark position
            'Bonus_Word.Characters(Bonus_Word.Bookmarks("Target").Start + 1).Delete
            'Remove Inserted Contents at "Target" bookmark
             With Bonus_Word.Bookmarks("Target")
               Bookstart = .Start
               Bookend = .End
             End With
 
            Set Myrange = Bonus_Word.Range(Start:=Bookstart, End:=Bookend)
              Myrange.Delete
            End If
      End With

02/06/2009, 13h24
tony020422

Bonjour! et merci d'essayer de m'aider!:P

Euuhh je veux bien faire ce que tu dis... Mais ca m'a l'air compliqué d'autant plus si la solution proposée précédemment fonctionne à la seule condition que je coche Word dans référence d'Excel (comment faire d'ailleurs?!)

Sachant que je compte après avoir rempli le .doc l'enregistrer sous son nom par défaut "Suivi chantier mod" suivi du contenu de la cellule à copier dans Texte1 du .doc......

Sinon ton script à l'air puissant! 8-)

aalex_38 Sinon comment on fait ce que tu me dis (cocher référence word dans excel?!) Merci !!
02/06/2009, 13h43
babybell

le code d'aalex_38 fonctionne bien, mais comme il le signale, il faut cochet Word dans : outils puis références

Vous etes des Dieux!!!!!!

Ca y est ca marche avec ce script, et après avoir coché Word dans les références Excel!!

Je suis trop content c'est magnifique!!!!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim Wchemin As String Dim wrdApp As Object Dim wrdDoc As Object Wchemin = "Y:\TKAF\R04\A422\_Commun-Agence\Roger\Fiches ISO\Suivi chantier mod.doc" Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open(Wchemin) wrdApp.Visible = True wrdApp.Selection.HomeKey Unit:=wdStory Cells(9, 3).Copy wrdApp.Selection.Goto What:=wdGoToBookmark, Name:="Texte1" wrdApp.Selection.Paste Cells(7, 3).Copy wrdApp.Selection.Goto What:=wdGoToBookmark, Name:="Texte2" wrdApp.Selection.Paste End Sub
Par contre il faudrait désormais fermer le .doc (qui s'appelle par défaut Suivi chantier mod.doc), l'enregistrer dans un dossier spécifique tout en le renommant: Suivi de chantier + contenue de la cellule C7 (le même que j'ai collé dans le Texte1 en fait)):calim2:

Une idée du code VBA pour ça Messieurs svp?! :zoubi:

En fait non je voudrais faire autre chose:

J'ai crée au début de mon script ce dossier:
Code:

1 2 ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\" MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value
qui a le nom de ma cellule C9 de mon fichier excel......

Après se trouve votre merveilleux script... Et à la fin de ce script j'aimerais enregistrer le .doc Suivi de chantier mod que l'on a modifié sous ce même nom mais dans le dossier que j'ai créé juste au dessus... Quelle est la syntaxe pour faire appel à ce dossier précisément ?!

Petit plus: si je voulais que le dossier à créer s'appelle "Cells(9,3) - Cells (9,5)" qu'est ce que je dois mettre dans cette commande?!

Code:

MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value

Merci par avance :mouarf:

02/06/2009, 15h09
aalex_38

Citation:

aalex_38 sinon comment on fait a faire ce que tu me dis (cocher référence word dans excel?!) Merki !!

Dans L'editeur VBA, Outils/References=> coché Microsoft xx.x Object Library

Citation:

Il vaut mieux utiliser des champs que des bookmark

Je pense aussi, j'ai donné une réponse vite fait en utilisant l'enregistreur de macro.

Edit : désolé pas raffraichi

Pour ta sauvegarde du fichier . doc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub WordII()
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
Wchemin = "D:\Macros\cijm2CCfL5.doc"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Open(Wchemin)
wrdApp.Visible = True
wrdApp.Selection.HomeKey Unit:=wdStory
Cells(1, 1).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte1"
wrdApp.Selection.Paste
Cells(1, 2).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte2"
wrdApp.Selection.Paste
With wrdDoc
                 .Saved = True
nom_enr = "d:\Macros\TEST  .doc"
wrdApp.ActiveDocument.SaveAs (répertoire & nom_enr)
End With
wrdApp.Quit
End Sub

02/06/2009, 15h19
tony020422

babybell,

D'aprés mon post de 13h56 je ne pense pas que ce que tu me proposes convienne... le nom du fichier a enregistrer ne change pas certes (ce sera toujours "Suivi de chantier mod") mais l'emplacement oui....

Il faut que ca se fasse dans le dossier que j'ai créé préalablement dans mon script, et que je ne sais pas comment rappeler:

ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\"
MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value

D'ailleurs est-il possible de donner comme nom au dossier que j'ai créé pas seulement Cells(9, 3).Value mais en fait Cells(9, 3).Value - Cells(3,7).Value ?!

Merci pour tout messieurs, ca sent la fin :ccool:
02/06/2009, 15h21
babybell
mes excuses, il y a redondance dans mon affectation de répertoire. Dans
Code:

1 2 nom_enr = "d:\Macros\TEST .doc" wrdApp.ActiveDocument.SaveAs (répertoire & nom_enr)
soit tu ne donnes à nom_enr que le nom du fichier et tu as déclaré ailleurs le chemin du répertoire et à ce moment là la ligne suivante est OK
soit tu écris comme ici, et dans la ligne suivante, pas besoin de mettre répertoire.
02/06/2009, 15h32
tony020422
J'ai donc ça en haut de ma macro:
Code:

1 2 ChDir "\\angfs1\users$\baron\Bureau\Travail Antony\" MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)
qui crée mon nveau dossier... Et j'ai rajouté ça pour enregistrer mon .doc sous "Suivi de chantier Mod.doc" dans ce dossier.
Code:

1 2 nom_enr = "Suivi de chantier Mod.doc" wrdApp.ActiveDocument.SaveAs (nom_enr)
Et ça ne marche pas...
02/06/2009, 15h35
babybell

cela doit marcher, mais à mon avis cela l'enregistre dans le racine, vu que tu n'as pas indiqué de chemin, seulement le nom du fichier; vérifie
02/06/2009, 15h36
tony020422

En effet je pense qu'il se passe quelque chose quelque part mais je ne sais pas quoi ni où... Comment accède-t-on à la racine ?!
02/06/2009, 15h38
aalex_38

Tony, s'il te plait n'oublie pas les balises codes sinon c'est dur à lire.

sinon la syntaxe est :

Code:

ActiveDocument.SaveAs FileName:="chemin"
02/06/2009, 15h45
tony020422

ok excusez moi pr les balises codes maie je ne savais pas comment faire (je ss nouveau ici!)

j'ai bien viu ton script aalex mais "chemin" est ici pr moi un dossier que je viens juste de créer!! du coup je ne sais pas comment faire!

Code:

"MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

j'ai essayé

Code:

ActiveWorkbook.SaveAs Filename:="MkDir\Suivi de chantier mod"

ca aussi

Code:

ActiveWorkbook.SaveAs Filename:=("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

mais rien ne marche!

Essaye

Code:

1
2
3
chemin=("\\angfs1\users$\baron\Bureau\Travail Antony\")
nom_enr = Cells(9, 3).Value
wrdApp.ActiveDocument.SaveAs (chemin & nom_enr)

02/06/2009, 16h00
tony020422

Erreur d'execution '424' objet requis ici :

Code:

wrdApp.ActiveDocument.SaveAs (chemin & nom_enr)

Par contre on est bien d'accord:

Le .doc s'enregistre toujours sous le même nom (qui ne change pas et qui est donc Suivi de chantier mod) mais dans un dossier différent (nouveau dossier créé dans mon script, nommé comme le contenu de la cellule C9 --> Cells(9, 3).Value) et stocké ici :

\\angfs1\users$\baron\Bureau\Travail Antony\

Car je ne sais pas si ton script précédent permettait bien ceci......

Je viens de réessayer, le code suivant fonctionne bien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub WordII()
Dim Wchemin As String
Dim wrdApp As Object
Dim wrdDoc As Object
Wchemin = "D:\Macros\cijm2CCfL5.doc"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.documents.Open(Wchemin)
wrdApp.Visible = True
wrdApp.Selection.HomeKey Unit:=wdStory
Cells(1, 1).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte1"
wrdApp.Selection.Paste
Cells(1, 2).Copy
wrdApp.Selection.GoTo What:=wdGoToBookmark, Name:="Texte2"
wrdApp.Selection.Paste
With wrdDoc
                 .Saved = True
chemin = ("d:\Macros\")
nom_enr = "Test.doc"
wrdApp.ActiveDocument.SaveAs (chemin & nom_enr)
End With
wrdApp.Quit
End Sub

T'es-tu assuré de la bonne création de ton répertoire ?

une autre façon :

Code:

1
2
ChangeFileOpenDirectory "Nom du chemin"
    ActiveDocument.SaveAs FileName:="nom du fichier.doc"

02/06/2009, 16h19
tony020422

désolé mais le .doc se remplit correctement... Après ça mouline, le .doc se ferme sans qu'on me demande si je veux le fermer... Et après on revient sur mon excel avec la case C7 (Cells(3, 7) qui "clignote" comme si on venait de faire dessus un "copier".......

Il n'en demeure pas moins que le fichier ne se sauvegarde pas......

Pour aalex, le problème est toujours le même !!:calim2::calim2:

Code:

ChangeFileOpenDirectory "Nom du chemin"

Je ne sais pas quoi mettre pour le nom du chemin car mon dossier est créé comme ça:

Code:

MkDir ("\\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

Donc, il s'appelle comment le chemin? 8O8O8O8O
02/06/2009, 16h24
babybell

donne-nous ton chemin en entier

Code:

c:\...... ou d:\......
02/06/2009, 16h33
aalex_38

Et egalement :

Citation:

T'es-tu assuré de la bonne création de ton répertoire ?

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 22h28.