Bonjour à tous,
J'utilise actuellement un code (que j'ai trouvé) qui fonctionne mais qui a besoin d'une petite modification que je suis incapable d'accomplir.
Je m'explique:
Ce code implanté dans mon classeur "Recap" récupère des données dans un "classeur1" fermé et les importent dans "Recap".
Mes problemes sont les suivants:
- Les cellule vides de "classeur1" sont importer avec une valeur 0 dans "Récap"
- Je voudrais que dans "Recap" les données s'incrivent à partir de A5 afin de laisser le bouton en haut.
Voici le code:
Sub MonLecteurDeFichierFermes()
'Réinitialisation
Feuil1.[a:t].ClearContents
'Importation
Dim FileToRead As Variant
Dim SheetToWrite As Worksheet
Dim SheetToRead As String
Dim FileName As String, PathString As String
Dim y As Integer, X As Integer
Dim Cell As Variant
Set SheetToWrite = ThisWorkbook.Worksheets("Recap")
SheetToRead = ("Feuil1")
FileToRead = "W:\Données Communes\Classeur1.xls"
y = Len(FileToRead)
For X = y To 1 Step -1
If Mid(FileToRead, X, 1) <> Chr(92) Then
FileName = Mid(FileToRead, X, 1) & FileName
Else
Exit For
End If
Next X
PathString = Left(FileToRead, Len(FileToRead) - Len(FileName))
For Each Cell In Array("a:t")
On Error GoTo Out
SheetToWrite.Range(Cell) = "='" & PathString & "[" & FileName & "]" & SheetToRead & "'!" & Cell
Next Cell
Windows("Classeur1.xls").Activate
Sheets("Feuil1").Select
Range("a1").Select
Exit Sub
Out:
MsgBox "Opération Terminée"
End Sub
Je vous met en PJ les classeurs afin d'illustrer.
J'utilise actuellement un code (que j'ai trouvé) qui fonctionne mais qui a besoin d'une petite modification que je suis incapable d'accomplir.
Je m'explique:
Ce code implanté dans mon classeur "Recap" récupère des données dans un "classeur1" fermé et les importent dans "Recap".
Mes problemes sont les suivants:
- Les cellule vides de "classeur1" sont importer avec une valeur 0 dans "Récap"
- Je voudrais que dans "Recap" les données s'incrivent à partir de A5 afin de laisser le bouton en haut.
Voici le code:
Sub MonLecteurDeFichierFermes()
'Réinitialisation
Feuil1.[a:t].ClearContents
'Importation
Dim FileToRead As Variant
Dim SheetToWrite As Worksheet
Dim SheetToRead As String
Dim FileName As String, PathString As String
Dim y As Integer, X As Integer
Dim Cell As Variant
Set SheetToWrite = ThisWorkbook.Worksheets("Recap")
SheetToRead = ("Feuil1")
FileToRead = "W:\Données Communes\Classeur1.xls"
y = Len(FileToRead)
For X = y To 1 Step -1
If Mid(FileToRead, X, 1) <> Chr(92) Then
FileName = Mid(FileToRead, X, 1) & FileName
Else
Exit For
End If
Next X
PathString = Left(FileToRead, Len(FileToRead) - Len(FileName))
For Each Cell In Array("a:t")
On Error GoTo Out
SheetToWrite.Range(Cell) = "='" & PathString & "[" & FileName & "]" & SheetToRead & "'!" & Cell
Next Cell
Windows("Classeur1.xls").Activate
Sheets("Feuil1").Select
Range("a1").Select
Exit Sub
Out:
MsgBox "Opération Terminée"
End Sub
Je vous met en PJ les classeurs afin d'illustrer.