Discussion :

[kernel57]

Bonjour à tous !
je voudrais accéder à des classeurs pour faire des manipulations (insérer des lignes, affacter des valeurs, etc...), je pourrais le faire en les ouvrant par l'intermédiaire de Workbook.Open mais je trouve cela compliqué vu le nombre de fichiers impactés. Y a t il une solution pour y accéder sans les ouvrir et les enregistrer ?
Merci

[SfJ5Rpw8]

Bonjour à tous !
je voudrais accéder à des classeurs pour faire des manipulations (insérer des lignes, affacter des valeurs, etc...), je pourrais le faire en les ouvrant par l'intermédiaire de Workbook.Open mais je trouve cela compliqué vu le nombre de fichiers impactés. Y a t il une solution pour y accéder sans les ouvrir et les enregistrer ?
Merci

soi un peu plus clair sur ce que tu veu faire et sur quels fichiers ( ? tous les classeurs excel d'un même répertoire ? .. dont le nom commence par ...???)

car modififier des fichiers sans les ouvrir c'st pas possible....

[leroissejp]

Bonsoir,
Tu n'est pas obligé de passer par un classeur à la fois avec WorkBowk.Open.
Ce code ouvre tous les classeurs que tu sélectionnes. Il te suffit de les traiter et de les fermer un à un.Pour sélectionner certains classeurs, fais Ctrl et sélectionne avec la souris.
]Code]
Sub OuvreClasseur()
Dim strFiles
Dim xlFiles
Dim blnOuvert As Boolean
Dim strMessage As String
Dim wbk As Workbook
Dim i As Integer
Dim j As Integer

'Affiche la boîte de dialogue Ouvrir
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichiers Excel (*.xls),*.xls", _
Title:="Sélectionnez les fichiers à ouvrir", _
MultiSelect:=True)

'Teste si des fichiers ont été sélectionnés
If TypeName(strFiles) = "Variant()" Then
ReDim xlFiles(UBound(strFiles))
For i = 1 To UBound(strFiles)

'Contrôle l'exention du fichiers
If Right(strFiles(i), 3) = "xls" Then

'Teste si le fichier est déjà ouvert
blnOuvert = False
For Each wbk In Workbooks
If wbk.Path & "\" & wbk.Name = strFiles(i) Then
blnOuvert = True
End If
Next wbk

'Stocke le nom de fichiers dans un tableau
If Not blnOuvert Then
j = j + 1
xlFiles(j) = strFiles(i)
strMessage = strMessage & strFiles(i) & vbCr
End If
End If
Next i

'Ouvre tous les fichiers Excel après confirmation
If j > 1 Then
strMessage = "Confirmez-vous l'ouverture des fichiers :" _
& vbCr & strMessage
If MsgBox(strMessage, vbYesNo + vbQuestion) = vbYes Then
For i = 1 To j
Workbooks.Open FileName:=xlFiles(i)
Next i
End If
End If
Else
MsgBox "Aucun fichier sélectionné"
End If
End Sub
[/Code]
tous les classeurs sont dans le menu Fenêtre.

jpleroisse