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

XL 2010 Mettre un fichier dans un dossier sur un serveur en vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion LOLO28
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

LOLO28

XLDnaute Nouveau
Bonjour.
j'ai un fichier qui se trouve sur un serveur sur Z qui s'appelle nantes$(\\s44 abcde 964)
j'ai une macro qui crée un fichier excel que je veux mettre sur le même serveur dans un dossier
1-rapport 2018\9-SEPTEMBRE mais cela ne fonctionne pas
Ma macro
Dim fichier As String 'création d'une feuil et mise en place dans fichier
Sheets("RAPPORT").Copy
fichier = "RJ" & Format(Range("k3"), "DDMMYYYY") & ".xls"
MsgBox fichier
ActiveWorkbook.SaveAs Filename:="D:\1-RAPPORT 2018\9-SEPTEMBRE\" & fichier
Merci de votre aide
 
Trier par date Trier par votes
Bonjour,
Ouvre un classeur situé sur ce serveur et lance cette macro
VB: 
Sub test()
MsgBox ThisWorkbook.Path
End Sub
Tu devrais obtenir le chemin complet à utiliser.
 
Vote positif 0 Vote négatif
RE..
Essaye comme ceci
Les dossiers "1-RAPPORT 2018" et "9-SEPTEMBRE" doivent exister.
Si "K3" n'est pas dans la feuille active, il faudra préciser le nom de feuille
VB: 
Sub test()
Dim Dossier As String, Fichier As String
Dossier = "Z:\1-RAPPORT 2018\9-SEPTEMBRE\""
Fichier = "RJ" & Format(Range("k3"), "DDMMYYYY")
Sheets("RAPPORT").Copy
ActiveWorkbook.SaveAs Dossier & Fichier, 56
ActiveWorkbook.Close
End Sub
Si les dossiers sont inexistants alors ceci
Si "K3" n'est pas dans la feuille active, il faudra préciser le nom de feuille
VB: 
Sub test()
Dim Dossier As String, Fichier As String
On Error Resume Next
'création des dossiers
MkDir "Z:\1-RAPPORT 2018\"
MkDir "Z:\1-RAPPORT 2018\9-SEPTEMBRE\"
Dossier = "Z:\1-RAPPORT 2018\9-SEPTEMBRE\"
On Error GoTo 0
Fichier = "RJ" & Format(Range("k3"), "DDMMYYYY")
Sheets("RAPPORT").Copy
ActiveWorkbook.SaveAs Dossier & Fichier, 56
ActiveWorkbook.Close
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
592
MarineU
M
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
399
job75
S
  • Question Question
Microsoft 365 VBA enregistrement dans dossier spécifique
Réponses
1
Affichages
470
vgendron
R
  • Résolu(e)
Microsoft 365 VBA Création dossier + sous dossier + enregistrer le fichier dans le dossier
2
Réponses
17
Affichages
1 K
raf26
R
I
  • Résolu(e)
XL 2021 VBA - importer des tableaux dans un fichier excel
2 3
Réponses
44
Affichages
1 K
fanch55
P
  • Question Question
Microsoft 365 VBA - Enregistrer un fichier en pdf dans un dossier dont on ne connait que les 4 premiers caractères
Réponses
2
Affichages
540
phil75016
P
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
T
  • Question Question
Microsoft 365 Code VBA - Enregistrement d'un fichier Excel déposé sur un serveur FTP
Réponses
1
Affichages
688
Oneida
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
984
Nico2978
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
675
arnoldbrice19
A
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
471
Casim
C
S
  • Question Question
XL 2019 Macro VBA enregistrement pdf plusieurs onglets dans un sens précis
Réponses
11
Affichages
1 K
sofmat
S
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
819
Liner77
L
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
5 K
LMOAL
L
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
1 K
ChristianJ
C
G
  • Question Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
1 K
Guillaumeg3
G
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
S
  • Résolu(e)
Microsoft 365 Renommer et Enregistrer un fichier dans un dossier
Réponses
2
Affichages
587
sebastien176
S
Y
  • Question Question
XL 2016 sélection du dernier fichier modifié dans un dossier+ pièce jointe
Réponses
1
Affichages
569
kiki29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…