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,

Etoto · 30 Juin 2021

Exemple avec le code :

VB:

Sub Import_Data()
    Dim Chemin As String
    Chemin = [B1]
    Workbooks.Open Filename:= Chemin, 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)
    Range("la zone à convertir").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _...

Etoto · 5 Juillet 2021

Excellerateur à dit:
Justement je croyais qu'il était possible de protéger uniquement une plage dans une feuille. Mais je crois que c'est No-Way

Re,

Cela peut se faire mais pas officiellement, ce que je veut dire c'est qu'un code VBA peut faire se travail mais Excel ne reconnaitra pas ses cellules comme "protégée" mais désolé je ne m'y connais pas assez pour trouver un code du genre.

Excellerateur · 5 Juillet 2021

Merci tout de même

Excellerateur · 5 Juillet 2021

Etoto à dit:
Re,

Cela peut se faire mais pas officiellement, ce que je veut dire c'est qu'un code VBA peut faire se travail mais Excel ne reconnaitra pas ses cellules comme "protégée" mais désolé je ne m'y connais pas assez pour trouver un code du genre.

Merci tout de même

Etoto · 5 Juillet 2021

Excellerateur à dit:
Merci tout de même

Re,

Mais crées un nouveau fil rien que pour ce problème, tu auras surement une solution donnée.

D.D. · 5 Juillet 2021

Excellerateur à dit:
Salut chers compagnons de recherche Excel,

Juste une petite question. J'essaye de bloquer une ligne dans laquelle j'ai mis des formules afin d'y sauvegarder les formules pour les futures utilisateurs. Au cas où une erreur se serait infiltrée dans le reste du fichier.

Je voudrais la bloquer sans y mettre un MDP. tout juste la verrouiller (j'sais même pas quel est le terme exacte)

Merci à vous.

Bonjour,

Si on sélectionne toute la feuille (Ctrl A) , on décoche "verrouillé" on sélectionne que la ligne, on la verrouille puis on protège la feuille, ca devrait fonctionner, non ?

Excellerateur · 5 Juillet 2021

D.D. à dit:
Bonjour,

Si on sélectionne toute la feuille (Ctrl A) , on décoche "verrouillé" on sélectionne que la ligne, on la verrouille puis on protège la feuille, ca devrait fonctionner, non ?

J'essaye ça de suite

Etoto · 5 Juillet 2021

@D.D.

Par hasard, tu connais le VBA mieux que moi, il existe genre un Range("plage").protect ?

Excellerateur · 5 Juillet 2021

Etoto à dit:
@D.D.

Par hasard, tu connais le VBA mieux que moi, il existe genre un Range("plage").protect ?

En effet j'ai vu un truc du genre

VB:

Worksheets("Sheet1").Range("A1:G37").Locked = False
Worksheets("Sheet1").Protect

Mais il me semble que cela vérouille aussi la feuille par la même occasion.

Etoto · 5 Juillet 2021

Excellerateur à dit:
En effet j'ai vu un truc du genre

VB:

Worksheets("Sheet1").Range("A1:G37").Locked = False Worksheets("Sheet1").Protect

Mais il me semble que cela vérouille aussi la feuille par la même occasion.

Et si tu faisais un

VB:

Worksheets("Sheet1").Range("ta ligne").Locked = True

Ta ligne est bloquée, non ?

D.D. · 5 Juillet 2021

Excellerateur à dit:
En effet j'ai vu un truc du genre

VB:

Worksheets("Sheet1").Range("A1:G37").Locked = False Worksheets("Sheet1").Protect

Mais il me semble que cela vérouille aussi la feuille par la même occasion.

Ca fait ce que j'ai essayé de dire plus haut.

Etoto · 5 Juillet 2021

Re,

D.D. à dit:
Ca fait ce que j'ai essayé de dire plus haut.

Oui mais on ne connait malheureusement pas l'objectif final du fichier d'@Excellerateur. Je suis d'accord avec toi.

Etoto · 5 Juillet 2021

Excellerateur à dit:
Mais j'ai pu infine voir l'extension réelle en allant dans les paramètres du fichier

Re,

Désolé de te répondre que maintenant, mais tu as un paramètres sur Windows qui permet d'afficher les extensions des fichiers.

Excellerateur · 5 Juillet 2021

Etoto à dit:
Re,

Oui mais on ne connait malheureusement pas l'objectif final du fichier d'@Excellerateur. Je suis d'accord avec toi.

En fait moi je voulais juste avoir la possibilité de vérrouiller une ligne sur une feuille afin qu'elle ne soit pas modifiée par erreur par un utilisateur lambda,mais sans toute fois les empêcher d'apporter des modifs éventuelles sur le reste du fichier

D.D. · 5 Juillet 2021

Excellerateur à dit:
En fait moi je voulais juste avoir la possibilité de vérrouiller une ligne sur une feuille afin qu'elle ne soit pas modifiée par erreur par un utilisateur lambda,mais sans toute fois les empêcher d'apporter des modifs éventuelles sur le reste du fichierf

Alors ce que j'ai proposé devrait y répondre

Etoto · 5 Juillet 2021

Re,

Tiens voilà une image des paramètres pour montrer l'extension

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

Excellerateur

XLDnaute Occasionnel

Etoto

Etoto

XLDnaute Barbatruc

Excellerateur

XLDnaute Occasionnel

Excellerateur

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Excellerateur

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

Excellerateur

XLDnaute Occasionnel

Etoto

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Excellerateur

XLDnaute Occasionnel

D.D.

XLDnaute Impliqué

Etoto

XLDnaute Barbatruc

Discussions similaires