Discussion :

[ikalimero]

Bonjour,
Mes recherche n'ayant rien donné j'ouvre une discussion.
des que je veux créer un nom de répertoire comportant plus de 32 caractères Excel me retourne une erreur 76.
a ma connaissance cette limitation n'est pas documentée.

Code :

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

1
2
3
nom_SE = "100 097 797"
article =  "SE PNEUMATIQUE DETECTION CADRE"
MkDir ("MBP HD:Users:RBE:Documents:" & article & "-" & article)

il ne faut s'inquiété des ":" à la place du "/" car je suis sur Mac

merci de vos réponses

[jackborogar]

Bonjour,

Déjà à quoi sert ton nom_SE puisqu'il n'est pas utilisé? Je ne comprends pas trop ce que tu veux faire, enfin je pense que tu veux créer un nouveau dossier c'est ça?

Envoi moi l'adresse complète que tu veux avoir au finale (repertoire + fichier)

De plus retire tes parenthèses après MkDir

Cdt

[nchal]

Bonjour

Je ne sais pas si elle est documentée mais j'ai rencontré également ce problème mais je suis tombé sur un autre type d'erreur :



Et je l'ai réglé avec ce bout de code :

Code :

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

1
2
3
If Len(NomFeuille) > 31 Then 'on compte le nombre de caractère si supérieur à 31
NomFeuille = Left(NomFeuille, 31) 'on coupe ! (Excel ne tolère pas un nom de feuille > 31
End If

EDIT: Bon, ce code ne répond pas à ta question, j'ai dû mal lire :S

[ikalimero]

j'ai fais une erreur en postant le code mais cela ne change rien au problème.

Code :

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

1
2
3
article = "100 097 797"
nom_SE =  "SE PNEUMATIQUE DETECTION CADRE"
MkDir ("MBP HD:Users:RBE:Documents:" & article & "-" & nom_SE)

nchal> j'ai envisagé ta solution, mais surtout passé beaucoup de temps a essayer de comprendre d'ou venait le bug.

En plus la fonction aide de la version Mac d'Excel est inexistante.

Et je ne parle pas du copier coller qui génère des bugs sur les variables.

ceci dit il y a aussi certain avantage à la version OSX

[jackborogar]

Bonjours,

Essayes avec ça!
Mais tu veux faire quoi dis moi, sauvegarder ou juste créer un fichier pour le fun?

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
With ActiveSheet
 
	article = "100 097 797"
	Dossier = "Users:RBE:Documents:" & article
    	Fichier = "SE PNEUMATIQUE DETECTION CADRE"
 
End with
 
 
CreerDossier:
 
If Err.Number = 1004 Then
                            'Création du dossier
 
MkDir "MBP HD:" & Dossier & "-" & Fichier
 
Resume
 
Else
 
MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
 
End If

Puis :

Code :

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

On Error GoTo CreerDossier

Pour appeler ton "CréerDossier"

Sinon sur MAC le "C:/" est remplacé par "MBP HD:" ??

Cdt,