VBA Récupérer contenu cellule dans autre classeur

Pat78 · 6 Août 2005

Bonsoir le forum,

Je bloque sur un petit problème.
Le classeur1 est un fichier de consolidation dans lequel je récupère les données d'une seule cellule, (toujours la même) depuis plusieurs autres classeurs qui me sont adressés et dont je ne connais pas le nom, (appelons le classeur2 pour notre exemple).

Si je pars du principe de n'avoir que deux classeurs ouverts en même temps (classeur1 - classeur2), j'ai ce code qui me suffit, mon problème est de pouvoir remplacer le code de la première ligne pour automatiquement identifier le nom du classeur2 ouvert.

Windows('Classeur2').Activate
Range('D6').Select
Selection.Copy
Windows('Classeur1').Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Merci pour votre précieuse aide, ...il y a peut être plus simple.

Pat

Dan · 6 Août 2005

Bonsoir,

Suis ce Lien supprimé.

Cela devrait te convenir moyennant adaptation des références.

😉

_Thierry · 7 Août 2005

Bonsoir Pat, Dan, le Forum

Tiens, j'avais une demande cousine dans Lien supprimé

je dis 'cousine' car le but était de récupérer l'info sans ouvrir le classeur mais tout en pouvant choisir le fichier avec une boite de dialogue...

Sub MonLecteurDeFichierFermes()
Dim FileToRead As Variant
Dim RangeToRead As String, SheetToRead As String
Dim FileName As String, PathString As String
Dim y As Integer, X As Integer

SheetToRead = InputBox('Indiquer la Feuille à Lire' & vbCrLf & _
                      ' (sinon rien et vous pourrez choiser)', 'Sheet Address', 'Feuil1')
RangeToRead = InputBox('Indiquer la Cellule à Lire', 'Range Address', 'D6')

FileToRead = Application.GetOpenFilename('Classeurs Excel,*.xls')
If FileToRead = False Then Exit Sub

        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))

On Error GoTo Out
ActiveCell.Formula = '='' & PathString & '[' & FileName & ']' & SheetToRead & ''!' & RangeToRead
Exit Sub
Out:
MsgBox 'Opération Annulée'
End Sub

Bonne Nuit
[ol]@+Thierry[/ol]

Pat78 · 7 Août 2005

Merci Dan & Thierry de vous être penchés sur mon pb.
La solution de Thierry me convient en l'état, je vais simplement éliminer l'étape de choix par inputbox de la cellule D6 qui est dans mon cas inutile.
Dan, je vais creuser ta solution.

Bon dimanche, et merci encore.
Pat.

VBA Récupérer contenu cellule dans autre classeur

Pat78

Guest

Dan

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Pat78

Guest

Discussions similaires

VBA Récupérer contenu cellule dans autre classeur

Pat78

Guest

Dan

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Pat78

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency