Microsoft 365 Importer via vba les données et la mise en forme d'une feuille dans un autre classeur

[Jefflet]

Bonjour à toutes et tous,

Je suis à la recherche d'une macro qui me permettrait d'importer les données présentes sur une feuille tout en gardant la mise en forme dans une feuille nommée CIBLE
Lorsque l'utilisateur active la macro sur le fichier cible cela lui importe l'ensemble des informations du fichier source (données et source)
En exemple le fichier source et cible.

Merci à vous,

Jean-François

 

[sylvanu]

Bonjour Jefflet,
Pas très parlantes vos PJ.

 

[Jefflet]

Bonjour Jefflet,
Pas très parlantes vos PJ.

Effectivement je pensais que vous aviez deviné avec la description

 

[sylvanu]

Bonsoir,

Lorsque l'utilisateur active la macro sur le fichier cible cela lui importe l'ensemble des informations du fichier source (données et source)

Cela revient à copier la feuille de Source vers Cible.
Un essai en PJ, les deux fichier doivent être dans le même dossier, avec :

Sub Importer()
    Application.ScreenUpdating = False
    NomFichier = "Source.xlsx"
    FichierCourant = ThisWorkbook.Name
    Workbooks.Open ThisWorkbook.Path & "\" & NomFichier
    Workbooks(FichierCourant).Activate
    Set Source = Workbooks(NomFichier)
    Set Cible = Workbooks(FichierCourant)
    Source.Sheets("Source").Copy after:=Cible.Sheets(Worksheets.Count)  ' Copie la feuille source
    Application.CutCopyMode = False
    Workbooks(NomFichier).Close Savechanges:=False                      ' Ferme le fichier source sans enregistrer
    Application.DisplayAlerts = False
    Sheets("Source").Delete                                             ' Supprime la feuille Source
    ActiveSheet.Name = "Source"                                         ' Renomme la nouvelle feuille Source
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[Jefflet]

Et quand les deux fichiers ne se trouvent pas dans le même dossier ?
Je souhaite avoir un dossier sur un serveur partagé et l'autre sur mon drive

Merci à vous

Bonsoir,

Cela revient à copier la feuille de Source vers Cible.
Un essai en PJ, les deux fichier doivent être dans le même dossier, avec :

Sub Importer()
    Application.ScreenUpdating = False
    NomFichier = "Source.xlsx"
    FichierCourant = ThisWorkbook.Name
    Workbooks.Open ThisWorkbook.Path & "\" & NomFichier
    Workbooks(FichierCourant).Activate
    Set Source = Workbooks(NomFichier)
    Set Cible = Workbooks(FichierCourant)
    Source.Sheets("Source").Copy after:=Cible.Sheets(Worksheets.Count)  ' Copie la feuille source
    Application.CutCopyMode = False
    Workbooks(NomFichier).Close Savechanges:=False                      ' Ferme le fichier source sans enregistrer
    Application.DisplayAlerts = False
    Sheets("Source").Delete                                             ' Supprime la feuille Source
    ActiveSheet.Name = "Source"                                         ' Renomme la nouvelle feuille Source
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[sylvanu]

Bonsoir,
Le chemin du fichier source est défini par la ligne :

Workbooks.Open ThisWorkbook.Path & "\" & NomFichier

vous remplacez par ex par :

Workbooks.Open "C:\Users\PC_PAPA\Desktop\XLD\" & NomFichier

En finissant bien par "\"

 

[Jefflet]

Bonjour,

Merci beaucoup pour l'aide.
Comme vous avez pu le constater je suis novice sur le sujet, pourriez-vous m'écrire le code avec les liens dans la formule svp car quand je le réalise cela ne fonctionne pas.

Merci à vous,


Le nom du fichier source est source.xlsm et cible.xlsm

exemple de lien pour les inclure dans le code
https://adressedufichiersource
https://adressedufichiercible

Merci à vous,

Jefflet

Sub Importer()
Application.ScreenUpdating = False
NomFichier = "Source.xlsx"
FichierCourant = ThisWorkbook.Name
Workbooks.Open ThisWorkbook.Path & "\" & NomFichier
Workbooks(FichierCourant).Activate
Set Source = Workbooks(NomFichier)
Set Cible = Workbooks(FichierCourant)
Source.Sheets("Source").Copy after:=Cible.Sheets(Worksheets.Count) ' Copie la feuille source
Application.CutCopyMode = False
Workbooks(NomFichier).Close Savechanges:=False ' Ferme le fichier source sans enregistrer
Application.DisplayAlerts = False
Sheets("Source").Delete ' Supprime la feuille Source
ActiveSheet.Name = "Source" ' Renomme la nouvelle feuille Source
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[sylvanu]

Bonjour,
Vos liens ne mènent nulle part.

 

[Jefflet]

Oui c'est pour illustrer

 

[sylvanu]

Tentez de remplacer cette ligne par :

Workbooks.Open "https://adressedufichiersource"

mais je ne suis pas certain que ça marche avec un fichier sur internet, fusse un serveur.
Si votre serveur est interne, il doit avoir une autre appellation avec le nom du serveur. A tester.