Erreur dans Chemin d accés (Enregistrer)

[Ben&Bee]

bONJOUR fORUM

J´ai un petit pb avec cette macro
Je voudrai que celle-ci enregistre le fichier.

F30 = A ou B
CEs 2 répertoires ' A' et 'B' sont deja crées par défaut..
Mais lorsque j´actionne la macro:
un message d erreur 'ne trouve pas l acces a ce fichier' apparaît..
Qq un a le remède??

Temp = 'X:\\Modelos\\' + Range('F30').Value + ' \\' + Range('F32').Value + ''
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False

Merci d avance pour votr aide

Ben&Bee

 

[guitarde]

Il semble te manquer les / dans ton path et tu dois remplacer les + par des &

Ceci devrait fonctionner...

Temp = 'X:/Modelos/' & Range('F30').Value & '/' & Range('F32').Value

Salutations
Eric

 

[Ben&Bee]

Bonjour Forum et merci Eric de ton aide

MAis j ai un autre pb...

Si je lance ma macro une deuxième fois (la première fois ma macro a été enregistré ds le chemin d accés indiqué) une fenêtre apparaît m´indiquant si je souhaite remplacer le fichier (que j ai enregistré lors de mon premier clique sur la macro).
Si j´indique oui il n´ya pas de pb, mais si j´indique non ou annuler, ca bug..

Comment éviter ce bug et l intrusion ds le programme VBA de la macro...

Voici la macro
Private Sub DatosComerciales_Click()
Dim Asunto As String
Dim Prueba As Range
Dim Prueba1 As String
Dim Temp As String
Asunto = Range('C19') & ' - ESTANDARES - Comercial->Jefe de Mercado'

For Each Prueba In Range('PRUEBA1')
If Prueba.Value = '' Then
texte = texte & vbNewLine & Prueba.Offset(0, -1).Value
End If
Next Prueba

If texte <> '' Then
MsgBox texte, vbCritical, 'Celdas que rellenar :'
Else

Temp = 'X:/Modelos/' & Range('F30').Value & '/' & Range('F32').Value
ActiveWorkbook.SaveAs Filename:=Temp, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False
MANDAREMAILCONVINCULO (Asunto)
End If

Ben&Bee