Microsoft 365 Créer une macro qui va dans un dossier récupérer un fichier

Excellerateur · 22 Juin 2021

Bonjour chers membres!

Je voudrais pourvoir faire une macro qui va aller dans un dossier de mon pc, puis récupérer un fichier qui se trouve dans un dossier, l'ouvrir et copier toute une plage de ce fichier et venir la coller dans l'onglet de destination prévu dans mon fichier (celui de la macro).

Je ne sais pas si il faudrait que je produise le fichier , mais je n'en suis pas sûr.

Néanmoins voici ce que j'ai obtenu comme code:

VB:

Sub maj_extraction_de_donnees()

'

' maj_extraction_de_données Macro

'


'

    Sheets("Donnees").Select

    Range("A2:E3138").Select

    Selection.ClearContents

    Range("A1:E2644").Select

    Selection.Copy

    Windows("Outil de franchissement.xlsm").Activate

    Sheets("Donnees density").Select

    Range("A2").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("A1").Select

    Windows("Equity.csv").Activate

    Application.CutCopyMode = False

    Windows("Outil de franchissement.xlsm").Activate

End Sub

Mais mon code n'est pas optimal car quand je ferme et qu'une autre personne l'ouvre, il ne part pas ans le réseau chercher le ficher dans lequel la copie doit être faite.

Merci de votre aide.

Bien cordialement,

D.D. · 28 Juin 2021

Très puissant est le Array.

Etoto · 28 Juin 2021

D.D. à dit:
Très puissant est le Array.

Re,

Mais il peut soulever certains problème, vu la taille de certaines discussion qui parlent de ça

.

D.D. · 28 Juin 2021

Etoto à dit:
Mais il peut soulever certains problème, vu la taille de certaines discussion qui parlent de ça .

Le problème, dans le cas présent, est que l'on perd le formatage des cellules.
Dans le cas de données brutes, bah, ce n'est pas trop grave.

Excellerateur · 28 Juin 2021

Okayyy ! Que de belles informations que vous m'avez donné là.

Merci à tous les deux @D.D. et @Etoto pour vos contributions oh combien riches.

Je vais faire ce qu'il y a de plus intelligent, c'est à dire fusionner vos deux contributions.

Après, je vous avoue que je n'ai pas encore compris le truc du aray que je ne connaissais pas. Je ne connais que le copier/coller

.

Merci encore, vous êtes Géniaux

Etoto · 28 Juin 2021

Re,

Le Array est un chaîne de mots ou de données en gros (@D.D. si c'est faux mon explication, tu peut me gronder

).

D.D. · 28 Juin 2021

Etoto à dit:
Le Array est un chaîne de mots ou de données en gros

Disons plutôt des données sous forme tabulaire.
Le tableau peut avoir plusieurs dimensions en plus.

Etoto · 28 Juin 2021

D.D. à dit:
Disons plutôt des données sous forme tabulaire.
Le tableau peut avoir plusieurs dimensions en plus.

Re,

Oui Exact qui sont définissable avec aussi le To, merci du rappel, j'avais oublié que c'était un tableau multidimensionnel.

Excellerateur · 28 Juin 2021

D.D. à dit:
Disons plutôt des données sous forme tabulaire.
Le tableau peut avoir plusieurs dimensions en plus.

Ok je vois

Etoto · 28 Juin 2021

Excellerateur à dit:
Ok je vois

Re,

D'ailleurs ça a réussi ou pas ? Je préfère être sur que moi et @D.D. ai fait une bourde (même si y'a plus de chance que ce soit moi qui ai fait la bourde

).

Etoto · 28 Juin 2021

Re,

Petite info ! Si tu utilises ce code :

VB:

Sub Import_Data()
    Dim Chemin As String
    Dim NomFichier As String
    Chemin = [B1]
    NomFichier = [B2]
    Workbooks.Open Filename:= Chemin & NomFichier, ReadOnly:=True
    Sheets("Deliveries").Select
    last = Range("A1048576").End(xlUp).Row
    oArray = Range("A2:S" & last)
    Workbooks("Fichier.xlsx").Close SaveChanges = 0
    Windows(NomFichier).Activate
    Sheets("Data").Select
    On Error Resume Next
    Sheets("Data").ShowAllData
    On Error GoTo 0
    Range("T3:AG1048576").Clear
    Range("A2:S1048576").ClearContents
    Range("A2:S" & last) = oArray
    Erase oArray
    Range("T2:AG2").AutoFill Destination:=Range("T2:AG" & last)
End Sub

Tu ne dois pas oublier de mettre "\" à la fin du chemin dans la cellule B1. Ou alors tu utilises ce code :

VB:

Sub Import_Data()
    Dim Chemin As String
    Dim NomFichier As String
    Chemin = [B1]
    NomFichier = [B2]
    Workbooks.Open Filename:= Chemin & "\" & NomFichier, ReadOnly:=True
    Sheets("Deliveries").Select
    last = Range("A1048576").End(xlUp).Row
    oArray = Range("A2:S" & last)
    Workbooks("Fichier.xlsx").Close SaveChanges = 0
    Windows(NomFichier).Activate
    Sheets("Data").Select
    On Error Resume Next
    Sheets("Data").ShowAllData
    On Error GoTo 0
    Range("T3:AG1048576").Clear
    Range("A2:S1048576").ClearContents
    Range("A2:S" & last) = oArray
    Erase oArray
    Range("T2:AG2").AutoFill Destination:=Range("T2:AG" & last)
End Sub

Cordialement mon cher

Excellerateur · 28 Juin 2021

Etoto à dit:

Re,

Petite info ! Si tu utilises ce code :

VB:

Sub Import_Data()
    Dim Chemin As String
    Dim NomFichier As String
    Chemin = [B1]
    NomFichier = [B2]
    Workbooks.Open Filename:= Chemin & NomFichier, ReadOnly:=True
    Sheets("Deliveries").Select
    last = Range("A1048576").End(xlUp).Row
    oArray = Range("A2:S" & last)
    Workbooks("Fichier.xlsx").Close SaveChanges = 0
    Windows(NomFichier).Activate
    Sheets("Data").Select
    On Error Resume Next
    Sheets("Data").ShowAllData
    On Error GoTo 0
    Range("T3:AG1048576").Clear
    Range("A2:S1048576").ClearContents
    Range("A2:S" & last) = oArray
    Erase oArray
    Range("T2:AG2").AutoFill Destination:=Range("T2:AG" & last)
End Sub

Tu ne dois pas oublier de mettre "\" à la fin du chemin dans la cellule B1. Ou alors tu utilises ce code :

VB:

Sub Import_Data()
    Dim Chemin As String
    Dim NomFichier As String
    Chemin = [B1]
    NomFichier = [B2]
    Workbooks.Open Filename:= Chemin & "\" & NomFichier, ReadOnly:=True
    Sheets("Deliveries").Select
    last = Range("A1048576").End(xlUp).Row
    oArray = Range("A2:S" & last)
    Workbooks("Fichier.xlsx").Close SaveChanges = 0
    Windows(NomFichier).Activate
    Sheets("Data").Select
    On Error Resume Next
    Sheets("Data").ShowAllData
    On Error GoTo 0
    Range("T3:AG1048576").Clear
    Range("A2:S1048576").ClearContents
    Range("A2:S" & last) = oArray
    Erase oArray
    Range("T2:AG2").AutoFill Destination:=Range("T2:AG" & last)
End Sub

Cordialement mon cher

Justement je suis en train d'essayer d'intégrer le code que vous avez proposé mais je crois que dois m'y prendre mal car j'ai des erreurs de débogage à chaque fois.

Je vais essayer avec le dernier que tu viens d'ajouter avec le "\" puis je reviens vous dire plus

Etoto · 28 Juin 2021

Excellerateur à dit:
Justement je suis en train d'essayer d'intégrer le code que vous avez proposé mais je crois que dois m'y prendre mal car j'ai des erreurs de débogage à chaque fois.

Je vais essayer avec le dernier que tu viens d'ajouter avec le "\" puis je reviens vous dire plus

Re,

N'oublie pas !! Le nom du fichier comporte aussi son extension (exemple : .xlsx, .xlsm, .xls, etc....)

D.D. · 28 Juin 2021

Le plus simple:
dans l'explorateur, sélectionner le fichier puis

Acceuil / Copier le chemin d'accès (dans le groupe presse papier)

ou

Shift + clic droit et "Copier en tant que chemin d'accès"

Etoto · 28 Juin 2021

D.D. à dit:
Le plus simple:
dans l'explorateur, sélectionner le fichier puis

Acceuil / Copier le chemin d'accès (dans le groupe presse papier)
ou

Shift + clic droit et "Copier en tant que chemin d'accès"

Regarde la pièce jointe 1109558

Re,

Et ton chemin d'accès comporte le nom du fichier ou pas ?

D.D. · 28 Juin 2021

Essaye....

Effectuez une recherche sur Excel Downloads...

Microsoft 365 Créer une macro qui va dans un dossier récupérer un fichier

Excellerateur

XLDnaute Occasionnel

Etoto

D.D.

XLDnaute Impliqué

Etoto

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Excellerateur

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Etoto

XLDnaute Barbatruc

Excellerateur

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Excellerateur

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Etoto

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums