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,

 

[Etoto]

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]

Merci tout de même

 

[Excellerateur]

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]

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

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]

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]

@D.D.

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

 

[Excellerateur]

@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

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]

En effet j'ai vu un truc du genre

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

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

Ta ligne est bloquée, non ?

 

[D.D.]

En effet j'ai vu un truc du genre

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]

Re,

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]

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]

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

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]

Re,

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