ouverture d'un fichier sur un serveur avec VBA

Créer une discussion
Répondre

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
Z

zizoufan

XLDnaute Occasionnel
Bonjour,

Je souhaiterais ouvrir un fichier qui sur un serveur pour en extraire des données et les mettre dans mon fichier cible. Seulement, j'ai toujours le même message d'erreur :
"le chemin n'existe pas"

voici mon code :


Sub Import()
Application.ScreenUpdating = 0

Workbooks.Open ("\\SRV-doc\Q-Titres\ind\ind1.xlsx")
Range("B2:F2").Copy
Windows("Tdb.xlsm").Activate
Range("B2:F2").Select
ActiveSheet.Paste


Workbooks.Open ("\\Srv-doc\Q-Titres\ind\ind2.xlsx")
Range("B2:F2").Copy
Windows("Tdb.xlsm").Activate
Range("B3:F3").Select
ActiveSheet.Paste

Application.DisplayAlerts = 0
Windows("ind1.xlsx").Activate
ActiveWindow.Close
Windows("ind2.xlsx").Activate
ActiveWindow.Close
Range("E1").Select
Application.DisplayAlerts = 1

Application.ScreenUpdating = 1

End Sub
Cliquez pour agrandir...


En vous remerciant d'avance
 
Trier par date Trier par votes
Re : ouverture d'un fichier sur un serveur avec VBA

Bonjour,

J'ai créé ce code et ca marche parfaitement maintenant, sauf qu'il y a beaucoup de données et ca risque d'être lent. comment pourrais-je l'optimiser en faisant une boucle ?

Merci beaucoup pour votre aide.

Cordialement,
 
Vote positif 0 Vote négatif
Re : ouverture d'un fichier sur un serveur avec VBA

Sub Import()
Application.ScreenUpdating = 0

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\01_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("C10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("01_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\02_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("D10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("02_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\03_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("E10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("03_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\04_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("F10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("04_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\05_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("G10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("05_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\06_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("H10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("06_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\07_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("I10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("07_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\08_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("J10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("08_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\09_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("K10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("09_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\10_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("L10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("10_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\11_2010_CS PS 06.xls")
Range("E15").Copy
Windows("TDB_titres").Activate
Range("M10").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("11_2010_CS PS 06.xls").Activate
ActiveWindow.Close

'Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\12_2010_CS PS 06.xls")
'Range("E15").Copy
'Windows("TDB_titres").Activate
'Range("N10").Select
'ActiveSheet.Paste
'Application.DisplayAlerts = 0
'Windows("12_2010_CS PS 06.xls").Activate
'ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\01_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("C11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("01_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\02_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("D11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("02_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\03_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("E11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("03_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\04_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("F11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("04_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\05_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("G11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("05_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\06_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("H11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("06_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\07_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("I11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("07_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\08_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("J11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("08_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\09_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("K11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("09_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\10_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("L11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("10_2010_CS PS 06.xls").Activate
ActiveWindow.Close

Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\11_2010_CS PS 06.xls")
Range("E16").Copy
Windows("TDB_titres").Activate
Range("M11").Select
ActiveSheet.Paste
Application.DisplayAlerts = 0
Windows("11_2010_CS PS 06.xls").Activate
ActiveWindow.Close

'Workbooks.Open ("\\SRV-doc\Q-Titres\Documents Communs\Résultats Carnets de Santé\2010\PS 06\12_2010_CS PS 06.xls")
'Range("E16").Copy
'Windows("TDB_titres").Activate
'Range("N10").Select
'ActiveSheet.Paste
'Application.DisplayAlerts = 0
'Windows("12_2010_CS PS 06.xls").Activate
'ActiveWindow.Close
Range("E1").Select
Application.DisplayAlerts = 1

Application.ScreenUpdating = 1

End Sub
 
Vote positif 0 Vote négatif
Re : ouverture d'un fichier sur un serveur avec VBA

Re,

en général, ce qui prend du temps dans une macro c'est d'ouvrir les fichiers, donc je te conseille déjà de regrouper toutes les modifications sur le même fichier ensemble (plutôt que de l'ouvrir et le fermer plusieurs fois)

Ensuite y a-t-il une règle qui permet de déterminer dans quelle cellule tu colles le contenu des cellules E15 et E16 ? Ce sont les cellules de quelle feuille, d'ailleurs ?
 
Vote positif 0 Vote négatif
Re : ouverture d'un fichier sur un serveur avec VBA

tototiti2008 à dit:
Re,

en général, ce qui prend du temps dans une macro c'est d'ouvrir les fichiers, donc je te conseille déjà de regrouper toutes les modifications sur le même fichier ensemble (plutôt que de l'ouvrir et le fermer plusieurs fois)

Ensuite y a-t-il une règle qui permet de déterminer dans quelle cellule tu colles le contenu des cellules E15 et E16 ? Ce sont les cellules de quelle feuille, d'ailleurs ?
Cliquez pour agrandir...

Malheureusement, les données sont dans des fichiers séparés. Sinon je peux les organiser dans des feuilles par mois, dans ce cas ce sera toujours des cellules Fixes E15 et E16 pour l'exemple du code.
Si je les organise par feuille dans un seul fichier, quelle boucle pourrais-je utiliser ?

Merci
 
Vote positif 0 Vote négatif
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

G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
303
sylvanu
sylvanu
P
  • Question Question
XL 2016 Compteur avec incrémentation de la ligne suivante
Réponses
11
Affichages
333
Pascal THIDET
P
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
562
TooFatBoy
TooFatBoy
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
691
Chaton77
Chaton77
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
933
telemarrk
T
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
442
safranien
S
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
461
JJ69
J
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
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
Dranreb
L
  • Résolu(e)
Microsoft 365 Ouverture d'un fichier sur sharepoint
Réponses
6
Affichages
1 K
lesoldat9
L
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
mouchtre
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
680
Staple1600
Staple1600
C
  • Question Question
XL 2019 1004 sur un ActiveSheet.Paste
Réponses
5
Affichages
533
Cheyenne_2021
C
looky62
  • Question Question
Microsoft 365 VBA creation d'un export vers un fichier CSV
Réponses
12
Affichages
723
vgendron
vgendron
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
545
Aldonanou
A
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
574
Quentin2106
Q
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
ERIC S
Gaalhad33
  • Résolu(e)
XL 2013 VBA - macro pour ouvrir un fichier en fonction de la valeur d'une cellule
Réponses
4
Affichages
880
Gaalhad33
Gaalhad33
J
  • Question Question
Microsoft 365 Formules
Réponses
2
Affichages
705
jper
J
A
  • Question Question
XL 2019 Faire un filtre sur deux dates
Réponses
0
Affichages
703
A-F
A
Retour