Discussion :

[nomade333]

Bonsoir,
J'ai un classeur avec un bouton auquel est affecté une macro (code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub workbook_open()
Application.ScreenUpdating = False
   ' Désinstalle les macro complementaires
AddIns("Solveur").Installed = False
AddIns("Utilitaire d'analyse").Installed = False
AddIns("Utilitaire d'analyse - VBA").Installed = False
 
Dim i As Long
Dim caract As String * 1
Dim filebox As OPENFILENAME
Dim fname As String
Dim result As Long
'Range("D5") = ""
With filebox
        .lStructSize = Len(filebox)
        .hInstance = 0
        .lpstrFilter = "Data module" & vbNullChar & "*.xls" & vbNullChar & _
                       "Tout fichier (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
        .nMaxCustomFilter = 0
        .nFilterIndex = 1
        .lpstrFile = Space(256) & vbNullChar
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = "C:\pubm88\utils" & vbNullChar
        .lpstrTitle = "Selectionner le fichier à visualiser" & vbNullChar
        .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0
        .nFileExtension = 0
        .lCustData = 0
        .lpfnHook = 0
End With
result = GetOpenFileName(filebox)

lorsque je clique sur le bouton la fenetre choix du fichier s'ouvre, je selectionne mon fichier (Excel), je clique sur ouvrir, mais celui-ci ne s'ouvre pas.
Ce que je voudrais en fait c'est de copier les données d'une feuille d'un classeur A, dans une feuille d'un classeur B.
Quelqu'un pourrait il m'aider à partir du code ci dessus.
Merci par avance

[alsimbad]

tien, ça sera peut-etre plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub ouvrir_un_fichier()
Filename = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Selectionnez un fichier")
    If Filename = True Then
        Workbooks.Open (Filename)
        End If
End Sub

ps : Sub workbook_open() ne signifie pas macro qui ouvre un fichier mais macro qui s'execute a l'ouverture du fichier

[nomade333]

Bonjour et merci
Effectivement c'est plus simple que mon usine à gaz, j'ai testé, mais le fichier Excel choisi ne s'ouvre pas, du moins il ne s'affiche pas.
Comment faire copier les données d'une feuille Excel d'un classeur vers une feuille d'un autre classeur
merci

[alsimbad]

oups
j'avais un peu trop simplifié le code initial peut etre, je te le donne en integral, merci a l'auteur, ce n'est pas moi, meme si je ne me rappelle plus ou je l'ai eu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub getopenfilname()
Filename = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Selectionnez un fichier")
    If Filename = False Then
          MsgBox "pas de fichier selectionné"
        Exit Sub
    Else
        Workbooks.Open (Filename)
        End If
End Sub