Bonjour à tous,
Je suis un débutant en ce qui concerne le code VBA et Macro,
J'ai fait une macro qui permet à partir d'un fichier Excel (Model pour ne pas l'écraser) copier une ligne et la coller dans un autre fichier excel pas dans le même répertoire, et cette macro est activer a chaque fois qu'on utilise le fichier source (Model) et sans écraser les données collé auparavant,
Le soucis, c'est que le fichier ou je souhaiterai coller mes valeur se trouvant dans un dossier mais en réseaux dans mon entreprise, du coup le chemin de ce fichier diffère d'un PC à un autre, donc quand je lance la macro de mon PC elle le trouve, mais si un collègue souhaite réaliser la même opération, ça beugue, et elle duit genre (Chemin introuvable),
Je vous poste mon code,
Merci par avance de votre aide,
Sub Importer()
Sheets("Export").Select
Rows("1:1").Select
Selection.Copy
Workbooks.Open Filename:="Z:\ESSAI\4 - ETAL\DONNES EXPORTEE VERIFICATION\Export_Verif_Temp.xlsx"
Range("A1").Select
Do While ActiveCell.Value <> "" Or ActiveCell.Offset(0, 1).Value <> "" Or ActiveCell.Offset(0, 2).Value <> ""
ActiveCell.Offset(1#).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Données Métrologiques Brutes").Activate
Range("R87").Select
Application.ScreenUpdating = True
End Sub
Je suis un débutant en ce qui concerne le code VBA et Macro,
J'ai fait une macro qui permet à partir d'un fichier Excel (Model pour ne pas l'écraser) copier une ligne et la coller dans un autre fichier excel pas dans le même répertoire, et cette macro est activer a chaque fois qu'on utilise le fichier source (Model) et sans écraser les données collé auparavant,
Le soucis, c'est que le fichier ou je souhaiterai coller mes valeur se trouvant dans un dossier mais en réseaux dans mon entreprise, du coup le chemin de ce fichier diffère d'un PC à un autre, donc quand je lance la macro de mon PC elle le trouve, mais si un collègue souhaite réaliser la même opération, ça beugue, et elle duit genre (Chemin introuvable),
Je vous poste mon code,
Merci par avance de votre aide,
Sub Importer()
Sheets("Export").Select
Rows("1:1").Select
Selection.Copy
Workbooks.Open Filename:="Z:\ESSAI\4 - ETAL\DONNES EXPORTEE VERIFICATION\Export_Verif_Temp.xlsx"
Range("A1").Select
Do While ActiveCell.Value <> "" Or ActiveCell.Offset(0, 1).Value <> "" Or ActiveCell.Offset(0, 2).Value <> ""
ActiveCell.Offset(1#).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Données Métrologiques Brutes").Activate
Range("R87").Select
Application.ScreenUpdating = True
End Sub