Problème de Macro VBA

Bonjour a l'ensemble de la communauté,

J'ai travaillé sans mérite grace a tout vos conseils sur le developpement d'un petit fichier pour réaliser nos offres de prix.
Avec 1 petite macro
pour faire l'enregistrement de forecast

Pour commencer j'ai un répertoire nommé "Propal Macro juin 2015" dans ce répertoire j'ai 2 fichiers
1 - Analyse de prix Juin 2015.xlsm
2 - Forecasts IC.xlsx
Nous travaillons sur l'Analyse de prix et lorsque nous avons terminé déclenchons 2 macros
N°1 Forecast (le soucis)
N°2 Sauvegarde (tout fonctionne)

Voila le problème, sur mon poste pas de soucis cet ensemble fonctionne parfaitement, mais quand je mets le dossier "Propal Macro juin 2015" sur la Dropbox, mes collègues ont des messages d'erreur, logique car la macro N°1 ne reconnait pas le chemin pour trouver le dossier et le fichier Forecasts IC , et je ne trouve pas la solution pour que cette macro puisse s'effectuer.
Je suis un peu contraint de faire le Hotliner et configurer cela sur chaque poste....

Auriez vous la gentillesse de m'aider pour resoudre ce petit problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Forecast() ' ' Forecast Macro ' Workbooks.Open (ActiveWorkbook.Path & "Forecasts IC.xlsx") Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Windows("Analyse de prix Juin 2015.xlsm").Activate Range("N2:Q2").Select Selection.Copy Windows("Forecasts IC.xlsx").Activate Range("A6").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("E3").Select Application.CutCopyMode = False Selection.Copy Range("E6").Select ActiveSheet.Paste Range("F10").Select Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close End Sub

---

d'avance merci

Salut, à essayer : remplace

Code:

---

ActiveWorkbook.Path .....

---

par

Code:

---

ThisWorkbook.Path & Application.PathSeparator & .....

---

Bonjour

Code:

---

1 2 3 4 5 6 7

Workbooks.Open (ThisWorkbook.Path & "\Forecasts IC.xlsx")'notez le \ Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Windows("Analyse de prix Juin 2015.xlsm").Range("N2:Q2").Copy Range("A6").PasteSpecial Paste:=xlValues Range("E6") = Windows("Analyse de prix Juin 2015.xlsm").Range("E3") ActiveWindow.Close True

---

Bonjour,

Citation:

---

Envoyé par Muzzik

Bonjour a l'ensemble de la communauté,
sur mon poste pas de soucis cet ensemble fonctionne parfaitement

---

comme l'a souligné keygen08, j'en doute!

Workbooks.Open (ActiveWorkbook.Path & "Forecasts IC.xlsx") ! pour : Workbooks.Open (ThisWorkbook.Path & "\Forecasts IC.xlsx")

Merci pour prendre du temps sur ma demande.
Mais ni l'une ni l'autre ne fonctionne
J'ai un message erreur execution 1004
A mon avis le chemin du fichier est trop long car stocké sur une Dropbox un peu plus de 85 caractères, cela pose-t-il un problème.

En allant chercher le bon nom de variable depuis la dropbox ?

Code:

---

1 2 3

sub machin() Source = Application.GetOpenFilename("Fichiers excel (*.xlsx),*.xlsx") end sub

---

En principe, tous les utilisateur ont un dossier dropbox dans leur pc, dropbox n'est la que pour synchronisé tout ces fichiers
donc thisworkbook.path & "\dudule.xls" fonctionne si les deux fichiers sont dans le meme repertoire

Salut, si mes souvenirs sont exacts le séparateur sur Mac est : et pas \. D'ou l'utilisation de Application.PathSeparator.