Macre enregistrer sous - ajout du répertoire ?

[niobium]

'abuse de vous, je sais mais bon.....

Qui pourrais me modifier cette macro pour qu'elle enregistre le fichier dans un sous répertoire reprenant la valeur de B2 (nom_client) pour obtenir : "D:\Mes Documents\nom_client\fichier.xls"
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii.................

Sub Enregistrement01()

Dim Rep As String, Fich As String, C As Byte, Cancel, Q As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Rep = "D:\Mes Documents\"

With ActiveWorkbook
Fich = Range("B2") & "_" & "_" & Range("C2") & "_" & "_" & Range("D1")
For C = 1 To Len(Fich) 'test caractères interdits
If InStr("\/:*?""""<>|", Mid(Fich, C, 1)) > 0 Then
MsgBox "Attention, il y a des des caractères interdits !"
Cancel = True
Exit Sub
End If
Next
If dir(Rep & Fich & ".xls") <> "" Then 'test existence fichier
Q = MsgBox(Fich & " Existe déjà, voulez-vous le remplacer ?", vbYesNo)
If Q = 7 Then GoTo Ligne1 Else GoTo Ligne2
Else: GoTo Ligne2
End If

Ligne1:
Cancel = True
Exit Sub
Ligne2:
.SaveAs Rep & Fich & ".xls"

End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Bonjour à tous,

Pour remettre XL comme tu l'as ouvert :


[/code]A+ à tous

Super, merci tout est ok sous 2007 mais sous 2003 mes onglets sont cachés sous la barre des tâches !!!! Une petite solution ?

Sous Xl2007
http://img13.imageshack.us/i/00001r.png/

Sous XL2003
http://img200.imageshack.us/i/002zqf.png/

Sous XL2003, avec barre des taches qui se masque automatiquement
http://img13.imageshack.us/i/003gvf.png/

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Pour l'enregistrement, trouvé d'où vient le problème mais il faut la solution... 🙄

O:\ et P:\ sont des disques mappés \\Pc-de-mimi\Mes documents\ 😀

A vous de jouer.... et mille fois merci encore !

 

[Cousinhub]

Re : Macre enregistrer sous - ajout du répertoire ?

Re,

un essai, avec le code que Kiki29 a fourni dans ce fil

Pas pu testé, pas de réseau chez moi....

Remplace les quelques lignes qui testaient l'existence du répertoire, et le créait le cas échéant par ces 2 lignes :

If Range("C2").Value = "" And Range("D1").Value = "" Then Exit Sub

[COLOR="Red"]Rep = "\\Pc-de-mimi\Mes documents\" & Range("B2").Value
CreationDossier Rep[/COLOR]

With ActiveWorkbook

et dans le module Fonctions, efface tout, et met le code de Kiki :

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
 (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long

Private Sub CreationDossier(sRepertoire As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sRepertoire, 0&)
    ' Pour valeur retournée dans Rep
    ' Voir http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
End Sub

Je précise, non testé...

pour tes onglets, clic droit sur la barre des tâches, Propriétés et coche "Conserver la barre des tâches au-dessus des autres fenêtres"

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Re,

Pas pu testé, pas de réseau chez moi....
Je précise, non testé...

Tu peux maperé un de tes propres disques > Partage un répertoire > Tout le réseau > clic droit sur le répertoire partagé > connecter un lecteur réseau

Pour info et c'est ce que j'ai fait pour mes test. 🙂
Bon j'ai refait autrement mon mappage et cela à l'air de tourner rond cette fois..... Wait and see !

pour tes onglets, clic droit sur la barre des tâches, Propriétés et coche "Conserver la barre des tâches au-dessus des autres fenêtres"

Mais justement c'est ce que je ne veux pas, je dois voir les onglets de ma feuille et pas la barre des tâche tout comme en XL2007 cfr image !

En tout cas chapeau à tous pour votre aide c'est super !!!!! Merci encire.
Niobium qui est très content ! 😛

 

[Cousinhub]

Re : Macre enregistrer sous - ajout du répertoire ?

Re-,

Mais justement c'est ce que je ne veux pas,

tu as essayé?

Merci pour l'info du mappage...

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Re-,



tu as essayé?

...

Non je vais voir cela.

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Encore une fois mille fois merci pour vos aides précieuses, c'est vraiment rès gentil !

Un dernier petit problème à régler et je vais laisse en paix !

Ma feuille de calcul faire référence à de multiples pages pour des sous-calculs et tout cela avec des boucles. je rencontre un problème, si par erreur, j'introduis une lettre à la place d'un chiffre dans une cellule de calcul et malgré que j'ai mis une Validation de données "Nombre", si je fait Enter, le message me dis bien que je ne peux mettre que des chiffres mais trop tard, l'erreur est envoyée dans l'ensemble des pages et toutes des erreurs de type #VALEUR# apparaisse sans plus aucun moyen de revenir en arrière (du fait du côté cyclique des calcul je suppose), comment donc éviter l'envoi de cette erreur dans mes calcul ?

 

[Cousinhub]

Re : Macre enregistrer sous - ajout du répertoire ?

Re,

je suppose que tu déclenches ta macro par un évènement de feuille du style :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
'ton code
End If
End Sub

teste également dans ce code, si la cellule modifiée est numérique :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Not IsNumeric(Target) Then Exit Sub
'ton code
End If
End Sub

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Je ne déclenche en fait aucune macro, la données introduite est ensuite ensuite transmise par "collage spécial avec liaison" dans les autres feuilles de calcul. C'est peut-être pas la bonne manière mais je m'y connais pas trop dans XL, j'ai démarrer cet exercice il y a 10 jours seulement ! Donc je ne vois pas trop ce que tu veux dire et/ou me faire faire.... 😀

 

[JCGL]

Re : Macre enregistrer sous - ajout du répertoire ?

Bonjour à tous,

Je ne déclenche en fait aucune macro, la données introduite est ensuite ensuite transmise par "collage spécial avec liaison"

Bon ben moi, je vais me faire un citron vert à la santé de Mimi, d'Hub, de Ges et de Spit 🙂 ...

A++ BH² 😛😛 et 🙂🙂 de nous tous Arf... Arf...
A+ à tous

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Bonjour à tous,



Bon ben moi, je vais me faire un citron vert à la santé de Mimi, d'Hub, de Ges et de Spit 🙂 ...

A++ BH² 😛😛 et 🙂🙂 de nous tous Arf... Arf...
A+ à tous

????????????????, c'est à dire ?

 

[JCGL]

Re : Macre enregistrer sous - ajout du répertoire ?

Bonjour à tous,

Je voulais dire que je ne comprenais pas :

Je ne déclenche en fait aucune macro, la données introduite est ensuite ensuite transmise par "collage spécial avec liaison"

Alors que depuis le début tu utilises du code...

Le reste est du Private Joke...😛 Désolé d'avoir eu un style un peu trop lapidaire

A+ à tous

 

[niobium]

Re : Macre enregistrer sous - ajout du répertoire ?

Bonjour à tous,

Je voulais dire que je ne comprenais pas :
Alors que depuis le début tu utilises du code...

Le reste est du Private Joke...😛 Désolé d'avoir eu un style un peu trop lapidaire

A+ à tous

Oui effectivement mais pas dans le cadre d'échange de données entre feuilles de calcul où j'utilise le copier coller avec liaisons t c'est là je crois mon problème.

Comment faire une macro en feuill2 pour dire que je prends la valeur "A10" de la Feuill1 SSI cette valeur est numérique ?