apostrophe dans une macro

Bonjour à tous et merci à tous ceux qui contribuent à éclairer les "grands débutants" qui viennent glaner des infos sur ce forum!


J'ai un petit pb :(:

la société pour laquelle je travaille s'appelle : 3' (pour Trois Prime)

vous notez l'apostrophe après le 3...

Et bien mon pb se situe là, comment saisir le chemin complet dans une macro avec ce fichu " ' " qui me me plante tout.

Je vous donne un exemple de code qui ne fonctionne pas à cause du ' :

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

Sub macrocompilation() Range( _ "A5:X500,Z5:AE500,AG5:AI500,AK5:AM500,AO5:AQ500,AS5:AU500,AW5:AY500,BA5:BC500,BE5:BG500,BI5:BK500" _ ).Select Selection.ClearContents Dim X As Integer, NbFichiers As Integer, Y As Integer Dim Tableau() As String Dim Direction As String Application.ScreenUpdating = False Direction = Dir("C:\Users\guillaume\Desktop\3'\Médecine Générale\Logistique\Compilation\*.xls") Do While Len(Direction) > 0 NbFichiers = NbFichiers + 1 ReDim Preserve Tableau(1 To NbFichiers) Tableau(NbFichiers) = Direction Direction = Dir() Loop If NbFichiers > 0 Then Y = 4 For X = 1 To NbFichiers If Tableau(X) <> ThisWorkbook.Name Then Y = Y + 1 With ActiveSheet.Cells(Y, 1) .Formula = "=("C:\Users\guillaume\Desktop\3'\Médecine Générale\Logistique\Compilation\[" & Tableau(X) & "]Sheet1" & "'!" & "D2" .Value = .Value End With End If Next X End If Application.ScreenUpdating = True End Sub

---

J4ai essayé de remplacer mes chemins par
ThisWorkbook.Path
ce qui serait l'idéal pour moi puisque je suis amené à changer fréquemment l'emplacement du fichier excel, mais ça ne marche pas non plus...

une idée?

merci d'avance

bonsoir,

dit à ta boite de changer de nom :roll:

j'ai fait un essai en doublant cela à l'air de passer :

Code:

---

.Formula = "='C:\Users\guillaume\Desktop\3''\Médecine Générale\Logistique\Compilation\[" & Tableau(X) & "]Sheet1" & "'!" & "D2"

---

Merci JackOuYA!

oui, oui j'y ai pensé...

J'imagine assez bien un employé de Total aller voir son pdg en lui demandant de changer le nom de la société en Totol parce que le "a" ne lui convient pas pour une raison lambda...;)

malheureusement ça, ça na va pas être possible...

D'autres idées?

pourquoi est-ce qu'en remplacant
C:\Users\guillaume\Desktop\3'\Médecine Générale\Logistique\Compilation
par :
ThisWorkbook.Path
ça ne fonctionne pas?

Ton probléme n'est pas un probléme de code VBA mais un probléme de formule excel.

essai de creer, par copier coller de cellule (avec lien) une formule qui marche, et affiche la dans VBE en te plaçant sur la cellule puis dans fenêtre exécution tu tape "debug.print ActiveCEll.Formula"
et ensuite on pourra comparer la formule que tu génére à celle que tu dois générer..

Re JackOuYA


En fait il n'y a pas de problème de formule dans mon fichier!

Tout fonctionne parfaitement dès lors que je place mon fichier en dehors du dossier nommé " 3' " et que je n'ai donc pas " 3' " dans le chemin dans ma macro.


Le problème c'est que ce dossier " 3' " est le dossier partagé de ma boite et que je ne peux ni modifier son nom ni me passer de mettre mon fichier dans ce dossier...

Encore une fois ne peut-on par remplacer, normalement, un chemin absolu par ThisWorkbook.Path

ou faire en sorte que l'apostrophe soit prise en compte comme du texte et pas comme un bout d'expression?

Merci en tout cas de te pencher sur mon pb!

Tu n'as pas compris ce que je veux dire au lieu de te battre avec VBA pour écrire ta formule, regarde ce qu'écrit excel lorsque tu fais cela directement dans excel, et tu verra qu'il y as bien un probléme de formule, il me semble qu'excel double les ' ce que tu ne fais pas .

Essaie de remplacer ta chaine par ceci :

Code:

---

1 2	Replace(ThisWorkbook.Path ,"'","''")

---

Bonjour ,

1) pas d'espace devant un nom de répertoire ! (windows l'otera de toutes manières)

2)
regarde :

Code:

---

1 2 3 4 5 6 7 8

chemin = "C:\Users\guillaume\Desktop\3'\Médecine Générale\Logistique\Compilation\" filtre = "*.xls" direction = Dir(chemin & filtre, vbNormal Or vbHidden) Do While direction <> "" nbfichiers = nbfichiers + 1 Direction = Dir Loop MsgBox nbfichiers

---

(ce qui interfèrera bien évidemment avec tout ce qui suit et qui utilise nbfichiers !)

re..
Sauf que ...
avec ce qu'il a écrit : nbfichiers est vide ...
Alors ?
Alors ensuite :

Code:

---

For X = 1 To NbFichiers

---

ma foi ...;)

Excuse (fatigué)

Avec ce qu'il a écrit ===>> nbfichiers = 0 (essaye)

donc :

Code:

---

For X = 1 To NbFichiers

---

sera traduit par

Code:

---

For X = 1 To 0

---

et il ne passera donc jamais par le reste ...
Est-ce suffisamment clair ainsi ?

Citation:

---

Envoyé par ucfoutu

Excuse (fatigué)

Avec ce qu'il a écrit ===>> nbfichiers = 0 (essaye)

donc :

Code:

---

For X = 1 To NbFichiers

---

sera traduit par

Code:

---

For X = 1 To 0

---

et il ne passera donc jamais par le reste ...
Est-ce suffisamment clair ainsi ?

---

Ben... non, puisque le FOR est dans un IF qui teste si NbFichier > 0
Le For x=1 to 0 ne peut donc se produire.
Je postule pour la raison de JackOuYa...

je me fais visiblement mal comprendre ...
Citation, donc :

Citation:

---

dehors du dossier nommé " 3' " et que je n'ai donc pas " 3' "

---

On voit bien là un espace entre le " et le 3 (2 fois).
Ma crainte est qu'il ait également reproduit cet espace dans :

Code:

---

Direction = Dir("C:\Users\guillaume\Desktop\3'\Médecine Générale\Logistique\Compilation\*.xls")

---

(bien que là, on ne voie plus d'espace).
Car, si tel était le cas : nbfichiers serait = 0 ...

En copiant la chaine de son Dir, je ne vois aucun espace.
Et, je suppose qu'il ne s'est pas amusé à recopier tout son code et s'est contenté d'un copier-coller.
J'aurai donc plus tendance à croire en son code qu'en ses citations.

Et, dans tous les cas, il ne serait jamais arrivé jusqu'au FOR puisqu'il aurait été intercepté par le IF. Ceci ne ressort pas de ta remarque précédente, et c'est pour cela que je suis intervenu ici. C'est tout. Il ne POUVAIT pas atteindre le FOR si NbFichiers était = 0, contrairement à ce que laisse penser ton commentaire.

Citation:

---

Envoyé par JackOuYA

bonsoir,

dit à ta boite de changer de nom :roll:

j'ai fait un essai en doublant cela à l'air de passer :

Code:

---

.Formula = "='C:\Users\guillaume\Desktop\3''\Médecine Générale\Logistique\Compilation\[" & Tableau(X) & "]Sheet1" & "'!" & "D2"

---

---

Je viens de me "taper" la création complète de ton arborescence sur mon disque pour tester et ce code fonctionne bien .!!:(

NOTA :
Et donc si tu as bien des fichiers (ce qui me semble évident malgrés les dires de UC) sous ce répertoire Compilation ton code devrai fonctionner en modifiant cette ligne .

Citation:

---

Envoyé par gui333

Encore une fois ne peut-on par remplacer, normalement, un chemin absolu par ThisWorkbook.Path

---

Si ! si ! Je t'ai donné une solution de remplacement de ' par des '' dans le ThisWorkBook.Path un peu au-dessus ;)