Re : Aide pour placer des personnes dans des transports via des feuilles Excel
Bonjour tbft,
oui j'ai cherché mais peut être pas avec les mots clés "transfert", je continue j'ai trouvé sur ce code mais je n'arrive pas à fermer le fichier avant d'en ouvrir un autre il m'ouvre tout les fichiers !!!
Après il faut que je mette dans le code ma zone à copier et l'endroit ou il faut la coller je cherche si de l'aide je prends...
voici le code :
Sub Ouvre_Fichiers()
' Ouvre tous les fichiers excel contenus dans un répertoire.
'
Dim Système As Object 'Système de fichiers
Dim Dossier As Object 'Répertoire
Dim Fichiers As Object 'Collection de fichiers du répertoire
Dim Fichier As Object 'Fichier (élément de la collection Fichiers)
Dim Nom_Dossier As String 'Nom du répertoire
Dim Nom_Fichier As String 'Nom du fichier
'Lecture du répertoire
Nom_Dossier = "D:\Sauvegarde\.....\Essai"
Set Système = CreateObject("Scripting.FileSystemObject")
Set Dossier = Système.GetFolder(Nom_Dossier)
Set Fichiers = Dossier.Files
'Contrôler chaque fichier du répertoire
For Each Fichier In Fichiers
'- Vérifier s'il s'agit d'un fichier Excel...
If StrComp(Système.GetExtensionName(Fichier.Name), "xls", vbTextCompare) = 0 Then
'... dans l'affirmative, ouvrir le fichier et mettre à jour les liaisons
Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
Workbooks.Open Filename:=Nom_Fichier, UpdateLinks:=xlUpdateLinksAlways
'Workbooks.Close Filename:=Nom_Fichier
End If
Next Fichier
End Sub
merci
Cordialement
Christophe.