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

[Excellerateur]

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:

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.]

Très puissant est le Array.

 

[Etoto]

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.]

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]

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]

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.]

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]

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]

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

Ok je vois

 

[Etoto]

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]

Re,

Petite info ! Si tu utilises ce code :

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 :

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]

Re,

Petite info ! Si tu utilises ce code :

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 :

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]

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.]

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]

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.]

Essaye....