Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment enregister dans un dossier du réseau interne entreprise ?

A

anthony.unac

XLDnaute Occasionnel
Bonjour,

Est il possible d'enregistrer dans un dossier se trouvant sur le réseau local de l'entreprise ?

Voici mon code actuel qui ne fonctionne pas hélas :

Sub Image6_QuandClic()

Feuil1.PrintPreview

Dim nomfichier
chemin = "\\PGN00040\Public\VISA 2009\Réception Visa"
nomfichier = "Visa du" & Format([N3], "dd_mm_yyyy") & ".xls"
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
.Close
End With


End Sub

Cordialement
Anthony
 
Trier par date Trier par votes

Pierrot93

XLDnaute Barbatruc
Re : Comment enregister dans un dossier du réseau interne entreprise ?

Bonsoir Anthony

essaye peut être en rajoutant un "\" à la fin du chemin :

Code: 
chemin = "\\PGN00040\Public\VISA 2009\Réception Visa\"

bonne soirée
@+
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Comment enregister dans un dossier du réseau interne entreprise ?

Autre soucis également :

Le code "Feuil1.PrintPreview" m imprime la totalité du contenu de feuil1 (meme ce qui ne m interresse pas). Serait il possible d imprimer uniquement la premiere page de l apercu avant impression. Comment cela se codifie ?

Feuil1.PrintPreview.1 ???
 
Vote positif 0 Vote négatif
A

anthony.unac

XLDnaute Occasionnel
Re : Comment enregister dans un dossier du réseau interne entreprise ?

Merci a vous les gars on reconnait les chevronnés
Je suis un peu ridicule à coté mais comme je dis souvent : je fais que du excel pratique qui répond ponctuellement a un réel besoin.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…