M
Mefi
Guest
Bonjour,
je voudrais pouvoir enregistrer automatiquement mes devis dans un dossier sur notre serveur mais je n'y arrive pas, voila deja ce que j'ai
Sub Saved()
Dim N As String
Dim MA As String
Dim No As String
N = Range('NomClient')
MA = Range('NoDevis1')
No = Range('NoDevis2')
ChDrive ('c')
ChDir '\\\\Serveur\\mac-pc\\XXL DOSSIERS\\Maintenant\\Devis\\'
'Changer le nom du répertoire s'il y a lieu!
ActiveWorkbook.SaveAs Filename:=(N) & ' ' & (MA) & (No)
End Sub
sur mon bouton 'enregistrer'
ca dois coincer au niveau de ChDrive mais je ne sais pas ce qu'il faut mettre comme lettre car notre serveur n'a pas de lettre ....
je voudrais pouvoir enregistrer automatiquement mes devis dans un dossier sur notre serveur mais je n'y arrive pas, voila deja ce que j'ai
Sub Saved()
Dim N As String
Dim MA As String
Dim No As String
N = Range('NomClient')
MA = Range('NoDevis1')
No = Range('NoDevis2')
ChDrive ('c')
ChDir '\\\\Serveur\\mac-pc\\XXL DOSSIERS\\Maintenant\\Devis\\'
'Changer le nom du répertoire s'il y a lieu!
ActiveWorkbook.SaveAs Filename:=(N) & ' ' & (MA) & (No)
End Sub
sur mon bouton 'enregistrer'
ca dois coincer au niveau de ChDrive mais je ne sais pas ce qu'il faut mettre comme lettre car notre serveur n'a pas de lettre ....