Ouverture classeur avec macro - mais sur choix utilisateur
Résolu
Maxxikilla
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
Maxxikilla Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Maxxikilla Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Ouverture classeur avec macro - mais sur choix utilisateur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante de choix excel - Guide
- Comment utiliser chromecast sur tv - Guide
- Page d'ouverture google - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
5 réponses
Bonjour,
voila comment faire :
___
'IMPORTATION D'UNE SEULE FEUILLE DE DONNEES
Sub ImportTextFile()
Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim Chemin As String
' Turn off screen updating.
Application.ScreenUpdating = False
'chemin en relatif du dossier ou se trouve tes données
Chemin = Sheets("Chemins").Cells(33, "D")
'ou en hard
'Chemin = "C:\...\dossier"
ChDir Chemin
' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestCell = Range("E59") 'active la cellule OU TU AIMERAIS COPIER LES DONNEES
' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub
' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
' Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
'OU copie un range défini
'Range("A1:AD2000").copy
' Activate the destination workbook and paste special the values
' from the text file.
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues
' Close the book containing the text file.
SourceBook.Close False
Application.ScreenUpdating = True
End Sub
______
Le chemin est en fait ou tu aimerais que la fenetre ouvrir soit initialement pointée. SI tu dois toujours te balader dans 150 dossiers sur le réseau avant d'arriver au bon, ta meilleur temps de pointer directement sur le bon ^^
Amicalement,
Régis
voila comment faire :
___
'IMPORTATION D'UNE SEULE FEUILLE DE DONNEES
Sub ImportTextFile()
Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim Chemin As String
' Turn off screen updating.
Application.ScreenUpdating = False
'chemin en relatif du dossier ou se trouve tes données
Chemin = Sheets("Chemins").Cells(33, "D")
'ou en hard
'Chemin = "C:\...\dossier"
ChDir Chemin
' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestCell = Range("E59") 'active la cellule OU TU AIMERAIS COPIER LES DONNEES
' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")
' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub
' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
' Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
'OU copie un range défini
'Range("A1:AD2000").copy
' Activate the destination workbook and paste special the values
' from the text file.
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues
' Close the book containing the text file.
SourceBook.Close False
Application.ScreenUpdating = True
End Sub
______
Le chemin est en fait ou tu aimerais que la fenetre ouvrir soit initialement pointée. SI tu dois toujours te balader dans 150 dossiers sur le réseau avant d'arriver au bon, ta meilleur temps de pointer directement sur le bon ^^
Amicalement,
Régis
Cela vient du fait que pour le Chdir ton adresse ne doit pas comporter de \ à la fin ;-)
Essaye de mettre "A:" ou juste avancer d'un dossier et "A:\dossier"
sinon tu peux carrément enlever l'intérieur du show() mais alors là, ton ouverture poitnera sur ton bureau ou dans "mes document"
Essaye de mettre "A:" ou juste avancer d'un dossier et "A:\dossier"
sinon tu peux carrément enlever l'intérieur du show() mais alors là, ton ouverture poitnera sur ton bureau ou dans "mes document"
Re,
Tout d'abord, merci pour ta réponse éclair !!
Pour le chemin, j'ai besoin d'un hard. J'ai donc mis Chemin = "A:\" car les fichiers sont directement là.
J'ai un petit soucis au niveau de ChDirChemin, il ne trouve pas le chemin
error "Path no found"
Aurais tu une idée du pourquoi ?
Amicalement, Maxime.
Tout d'abord, merci pour ta réponse éclair !!
Pour le chemin, j'ai besoin d'un hard. J'ai donc mis Chemin = "A:\" car les fichiers sont directement là.
J'ai un petit soucis au niveau de ChDirChemin, il ne trouve pas le chemin
error "Path no found"
Aurais tu une idée du pourquoi ?
Amicalement, Maxime.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ca fonctionne merci beaucoup !!!
Il y a juste un petit détail:
- il y a un message qui me demande si je veux garder la selection dans le "clipboard", parce qu'en fait, il ouvre le excel sélectionné, il copie,puis il le ferme. Ducoup il veut savoir s'il doit garder en mémoire le "ctrl+c" .. Y a t-il un moyen de lui dire oui par défaut ?
Cette commande serait elle la solution ? DisplayAlerts = False
Il y a juste un petit détail:
- il y a un message qui me demande si je veux garder la selection dans le "clipboard", parce qu'en fait, il ouvre le excel sélectionné, il copie,puis il le ferme. Ducoup il veut savoir s'il doit garder en mémoire le "ctrl+c" .. Y a t-il un moyen de lui dire oui par défaut ?
Cette commande serait elle la solution ? DisplayAlerts = False