Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ouvrire un fichier

ouvrire un fichier

3 réponses
Avatar
pellet15
Bonsoir =E0 tous.
Avec la macro suivante je voudrait a la place de
changer de fen=EAtre ouvrir un dossier,
en le s=E9lectionnent dans la liste de mon disque dur.
cela a plusieur reprise 3 ou 4 et sauvegarder.

Sub Rasembler()
** Windows("Doney 42S-2 16-03-06.nurg").Activate
Application.Run "Model.xls!Convertir"
Windows("Model.xls").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell(3, 1).Select
Application.Run "Model.xls!sauve_et_onglet"
End Sub

MERCI
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Sub modif_jour()
Application.ScreenUpdating = False
dossier = ChoixDossier()
If dossier = "" Then Exit Sub
Range("A2").Select
nf = Dir("*.xls")
Do While nf <> ""
ActiveCell = nf
nf = Dir
Loop
Range("A2").Select
End Sub

Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & ""
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function

http://cjoint.com/?dthgaxHeOY

Cordialement JB
Avatar
Daniel
Bonjour JB

Cette macro va mètre utile mais pas tout de suite.

Dans Excelabo(http://www.excelabo.net/xl/fichiers.php#dernmodif Affichier
des nom de fichiers et les ouvrir )
j'ai trouver la macro suivante mais je ne comprend pas pourquoi elle ne
fonctionne pas?
le fichier un fois sélectionner n'est pas ouvert??

Sub test()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.xls), *.xls")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub


Merci


Ma question est comment faire pour ouvrire et choisir
"JB" a écrit dans le message de news:

Bonjour,

Sub modif_jour()
Application.ScreenUpdating = False
dossier = ChoixDossier()
If dossier = "" Then Exit Sub
Range("A2").Select
nf = Dir("*.xls")
Do While nf <> ""
ActiveCell = nf
nf = Dir
Loop
Range("A2").Select
End Sub

Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & ""
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function

http://cjoint.com/?dthgaxHeOY

Cordialement JB
Avatar
JB
Bonjour,

http://cjoint.com/?dtsgWSASkB

Sub choisir_fichier()
Filtre = "Excel (*.xls),*.xls,All Files (*.*),*.*"
nf = Application.GetOpenFilename(FileFilter:=Filtre,
FilterIndex:=5, Title:="Sélection")
If nf = False Then Exit Sub
MsgBox nf
Workbooks.Open FileName:=nf
End Sub

Cordialement JB