> Tous les forums > Forum Bureautique
 Ouvrir tous les fichiers excel sur un serveur
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Germouse
  Posté le 31/05/2010 @ 18:46 
Aller en bas de la page 
Nouvel astucien

Bonjour,

Connaissez vous un code VBA dans un fichier excel qui me permettrait d'ouvrir et fermer tous les fichiers Excel contenus dans un dossier situé sur un serveur distant( avec login et mot de passe)?

Merci d'avance!

Publicité
Bérylion
 Posté le 31/05/2010 à 22:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par Germouse

Bonjour,

Connaissez vous un code VBA dans un fichier excel qui me permettrait d'ouvrir et fermer tous les fichiers Excel contenus dans un dossier situé sur un serveur distant( avec login et mot de passe)?

Merci d'avance!

Salut

euh... chui pas sur...?!

si les fichiers requierent un mot de passe alors :

Sub test()
Set fso = CreateObject("scripting.filesystemobject")
Set rep = fso.GetFolder("\\X\rep1\rep2")
For Each f In rep.Files
If fso.GetExtensionName(f) = "xlsx" Then Workbooks.Open f, , , , "test"
Next
End Sub

à conditions que tous les fichiers aient le même mot de passe (ici = "test")

si la connexion requiert le mot de passe, faut que je potasse un poil, et je reviens après mon mégot (bin oui, le forum est non fumeur !!)



Modifié par Bérylion le 31/05/2010 23:06
Bérylion
 Posté le 31/05/2010 à 23:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bérylion a écrit :

si la connexion requiert le mot de passe...

... et bin je sais pas (encore) faire

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
16 €Clé USB 3.0 Sandisk Ultra 128 Go à 16 €
20 € -20%

Amazon propose la clé USB Sandisk Ultra d'une capacité de 128 Go à 16 €. On la trouve ailleurs à partir de 20 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


Voir l'offre
202,99 €Nettoyeur haute pression Karcher K5 Power Control (145 bar, 2100W) à 202,99 € (via ODR)
279 € -27%

Cdiscount fait une promotion sur le nettoyeur haute pression Karcher K5 Power Control à 242,99 € alors qu'on le trouve ailleurs à partir de 279 €. Or Karcher rembourse actuellement 40 € pour l'achat de ce nettoyeur qui vous reviendra à 202,99 € après remboursement.

Le Nettoyeur haute pression K5 Full Power est livré avec un pistolet ergonomique, un flexible 10 m, un nez de robinet pour raccorder un tuyau d’arrosage, une lance Vario Power et une rotabuse. 

Avec sa poignée télescopique rétractable, l'appareil peut être déplacé et rangé facilement. Le K5 Power Control est idéal pour une utilisation intensive et pour nettoyer vélos, outils de jardin, meubles de jardin, etc. Pression max 145 bar, débit max 500 L/h, puissance 2100 Watts, surface conseillée ≈ 40m²/h, moteur universel, pompe Ncor.


Voir l'offre
32,90 €Clé USB 3.1 Sandisk Ultra Luxe 256 Go à 32,90 €

Cdiscount propose la clé USB Sandisk Ultra Luxe d'une capacité de 256 Go à 32,90 €. Cette clé USB 3.1 toute en métal est compatible USB 2.0 et offre de bons débits d'environ 150 Mo/s en lecture et en écriture. Elle inclut le logiciel SanDisk SecureAccess pour un cryptage et une protection par mot de passe de vos données sensibles. 


Voir l'offre
14,50 €Sandales Crocs Crocband III Slide à 14,50 €
29,99 € -52%

Amazon fait une promotion sur les sandales Crocs Crocband III Slide à bout ouvert qui passent à 14,50 € au lieu de 29,99 €. Nombreuses tailles disponibles.


Voir l'offre

Sujets relatifs
Ouverture de fichiers excel sur serveur très lente
COMMENT REPARER TOUS MES FICHIERS EXCEL ET WORD
Fichiers Excel impossibles à ouvrir
logiciel pour ouvrir tous les fichiers et images
Impossible d'ouvrir mes anciens fichiers Excel
Ouvrir des fichiers pdf avec excel ?
Ouvrir fichiers excel par interface
Impossible d'ouvrir des fichiers Word, Excel...
Fichier EXCEL ne peut s'ouvrir
impossible d'ouvrir microsoft excel et word
Plus de sujets relatifs à Ouvrir tous les fichiers excel sur un serveur
 > Tous les forums > Forum Bureautique